Algoritmo #01

Antes de mais nada gostaria de justificar minha ausência: PROJETOS.

Trabalhos de faculdade e futuros projetos para trabalho tem me tirado o sono. Sem reclamações, voltarei a ativa, ou pelo menos espero.

Como prometido a galera de grupo de pesquisa na FATEC, iniciarei uma lista de algoritmos em português estruturado, para futuramente passarmos a alguma linguagem.
#01. Apresentar os quadrados dos números inteiros de 1 a N.

Algoritmo Exercicio1;
Variavel
	n, i : inteiro;
	resultado : inteiro;
Inicio
	repita
		leia(n);
	até que (n > 1);
	i <- 1;
	enquanto i <= n faça
		resultado <- i * i;
		escreva(resultado);
		i <- i + 1;
	fim-enquanto

Fim

Servidor SAMBA

Mais uma ferramenta que estou estudando nos últimos dias. Como frizado no último post, estou estudando softwares livres para soluções a uma empresa que demanda de uma grande rede de computadores, com diversas necessidades a serem gerenciadas, e para melhorar, com mais de um sistema operacional online.

Entrando no assunto, SAMBA é um servidor de rede NetBEUI altamente flexível para compartilhamento de serviços e arquivos em rede mista. Essa flexibilidade quebra um grande problema em corporações que precisam colocar máquinas com sistemas operacionais diferentes, como um simples exemplo Windows e Linux, em comunicação na rede.

Hoje possui funções de segurança que permite um controle mais rigoroso que a implementação da Microsoft para gerenciamento de redes, demonstrando alto suporte e compatibilidade de versões diferentes de Windows (problema presente em empresas que possuem sua rede totalmente Microsoft, e mesmo assim não ficam livres de alguns apuros! ).

Segue abaixo algumas características:

• Controle de acesso aos recursos compartilhados no servidor através de diversos métodos (compartilhamento, usuário, domínio, servidor)
• Controle de acesso de leitura/gravação por compartilhamento
• Controle de acesso de leitura/gravação por usuário
• Permite ocultar o conteúdo de determinados diretórios que não podem ser exibidos ao usuário de forma fácil
• Suporte completo ao controlador de domínio Windows (PDC)
• Possui suporte completo ao servidor WINS (também chamado de NBNS – NetBIOS Name Service) de rede. A configuração é bastante fácil
• Permite a configuração de recursos simples através de programas de configuração gráficos, tanto via sistema, como via Web
• Entre muitas outras funções

Estudei sobre a ferramenta, dentre muitos materiais, gostei muito do material do Guia Foca GNU/Linux. Porém minha tarefa para a empresa “XXX” que estou prestando serviços é a seguinte: comparar o SAMBA 3.x instalado na empresa com a versão SAMBA 4.0, última versão lançada. Preciso comparar as novidades e buscar a viabilidade da implementação da ferramenta na empresa, parametrizando em cima de uma vasta lista de regras de negócio.

Essa é a minha missão nesse projeto no mês de julho. Quem disse que seriam férias?

Mas esse projeto é muito interessante, lidando somente com software livre. O que traz um retorno de experiência profissional indispensável para projetos futuros.

Desde então, fica o meu convite. Se você conhece SAMBA, e melhor ainda se conhece a versão SAMBA 4.0, comente a vontade neste blog. Largue o cacete nessa matéria!

Abraços

[release]Depois do comentário do Cristian, e por maiores exigências do estágio, percebi que a versão SAMBA 4.0 é apenas para uma exibição e ainda não está estável. Foi até mesmo um equivocação da empresa e minha, afirmar nesse momento que a versão já estava estável.

Abraços a todos.

13/07/2007[/release]

Debian 4.0

Post de hoje é sobre Linux com caráter auto-estudo. Não conheço muito sobre o assunto mas tenho vontade de me aperfeiçoar. Por isso postarei para o incentivo, participação e contribuição de colegas, para sempre esclarecermos mais dúvidas.

Quando li a matéria na INFO Exame do mês de Junho, não podia deixar passar a oportunidade. Ainda mais que como já dito, sou um pouco leigo no assunto e quero aprender a mexer no mais promissor sistema operacional.

A distribuição Debian 4.0 GNU/Linux foi feita sob medida para usuários avançados, que gostam de programar e estão na área de TI a um bom tempo. O Debian 4.0 vem com uma coleção de aproximadamente 19 mil pacotes, o que facilita encontrar softwares, aplicativos, tutoriais, IDE’s, entre outras ferramentas para desenvolver. Grande diferença para o Ubuntu, onde acredito que não venha preparada, ou pelo menos não na versão básica, para desenvolvedores e para usuários avançados. O Ubuntu é realmente voltado ao público usuário inicial, mas também um fantástico sistema operacional.

A INFO Exame destrinchou o Debian 4.0 em 5 destaques. Citou sobre a instalação, a interface, a super-coleção, os servidores e o desktop.

• Instalação: processo similar como todas as outras distribuições. Diga-se de passagem que um pouco complicada, podendo causar complicações para alguns usuários sem muita experiência. O pessoal da INFOlab chegou a achar que o S.O. não tinha instalação com interface gráfica, mas os INFOhackers fuçaram muito e descobriram que era necessário a inserção de um código secreto. Quando se insere o DVD de instalação, vem em seguinte uma mensagem, em inglês:”Pressione F1 para ajuda ou Enter para a inicialização.”, neste momento é necessário digitar a senha expertgui.
• Interface: o Debian logo assumiu a interface GNOME, a mesma do Ubuntu. Constataram que o Debian tem uma característica para trabalhar com servidores, e não economiza em sua gama de aplicativos. Tem redundância de softwares. Dois browsers, por exemplo. Em minha opinião isso não é nada ruim.
• Super-coleção: só para lembrar os usuários de Linux, o Debian é a distribuição de maior coleção de pacotes: quase 19 mil.
• Servidores: dá inveja para outros S.O.’s quando o assunto é software para servidor: internet, rede local, banco de dados, linguagens… Divirta-se no Synaptic!
• Desktop: apenas uma referência, o Ubuntu até a versão 6.0 não tocava arquivos mp3, o que já é possível no Debian 4.0 . Fora a vasta opção de codecs para multimídia disponível.

Fonte: INFO Exame.

Sem mais galera.

Pascal – O básico – Desafio Fibonacci

Segue desafio da seqüência de Fibonacci. Se alguém tem um algoritmo mais eficaz, mandem aí! Gostaria de comparar com outras resoluções.

Program DesafioFibonacci;
Uses  

    crt;  

Var  

   x, y, z : integer;  

Begin  

     ClrScr;  

     WriteLn('Sequencia de Fibonacci menor que 50');  

     x:=0;  

     y:=1;  

     z:=1;  

     repeat  

       Write(x,' ');  

       x:=y;  

       y:=z;  

       z:=x+y;  

     until x>50;  

     ReadKey;  

End.

Abraços galera.

Pascal – O básico – Mais biblioteca DOS

Seguindo mais um exercício com funções da biblioteca DOS. Desta vez, além de motrar a hora do sistema, também apresentaremos data completa.

=============código fonte=============

Program BibliotecaDos2;

Uses  

    crt, dos;  

Var  

   ano, mes, dia, diaDaSemana, horas, minutos, segundos, centesimos : word;  

Begin  

     ClrScr;  

     TextBackground(Blue);  

     TextColor(Black);  

     GetDate(ano,mes,dia,diaDaSemana);  

     Write('Hoje e: ');  

     Case diaDaSemana of  

          0: Write('Domingo, ');  

          1: Write('Segunda, ');  

          2: Write('Ter‡a, ');  

          3: Write('Quarta, ');  

          4: Write('Quinta, ');  

          5: Write('Sexta, ');  

          6: Write('Sabado, ');  

     End;  

     Write(dia);  

     Case mes of  

          1: Write(' de Janeiro de ');  

          2: Write(' de Fevereiro de ');  

          3: Write(' de Mar‡o de ');  

          4: Write(' de Abril de ');  

          5: Write(' de Maio de ');  

          6: Write(' de Junho de ');  

          7: Write(' de Julho de ');  

          8: Write(' de Agosto de ');  

          9: Write(' de Setembro de ');  

          10: Write(' de Outubro de ');  

          11: Write(' de Novembro de ');  

          12: Write(' de Dezembro de ');  

     End;  

     WriteLn(ano);  

     GetTime(horas,minutos,segundos,centesimos);  

     Write('Sao ',horas,' horas, ',minutos,' minutos, ',segundos,' segundos e ',centesimos,' centesimos.');  

     ReadKey;  

End.

=============código fonte=============

Bom estudos galera! Estou aberto a melhores resoluções e novos exercícios!

Até mais.

Pascal – O básico – Biblioteca DOS

Depois de muuuuuuuito tempo, voltei a falar pascalês, javanês, hmtlês, entre outras linguagens do mundo virtual (0110100110110).

Estava com saudades de programar e revi todos os meus posts sobre Pascal e decidi estudar mais sobre a linguagem.

Falamos muito sobre a biblioteca CRT. Todos nossos exemplos até o momento, trabalhava apenas com essa biblioteca de funções e procedures.

Com biblioteca nova no pedaço, vamos conferir a novidade, e como sempre estudando exercícios simples.

================código fonte================

Program BibliotecaDos;

Uses
  crt, dos;
Var
  hora, minuto, segundos, centesimos : word; 

Begin
  ClrScr;
  GetTime(hora,minuto,segundos,centesimos);
  WriteLn('Sao: ',hora,'h',minuto,'min',segundos,'s',centesimos);
  Readkey;
End.

================código fonte================

Esse foi um exmplo apenas para mostrar o horário extraído do seu sistema operacional.

Em breve mais exemplos com novas functions e procedures da biblioteca DOS.

Até mais.

Gestão da Qualidade: Ferramenta 5S e Ciclo PDCA

Irei disponibilizar um seminário falando sobre a aplicação da ferramenta 5S e o auxílio do ciclo PDCA, em um estudo de caso de uma empresa onde é necessário melhorar a qualidade de seu produto e aumentar a eficiência de alguns processos.

Neste trabalho detalha-se todas as etapas demarcadas nos posts anteriores.

Uso das Ferramentas da Qualidade.doc

Bom download e ótimos estudos.

[update]Após muitos trabalhos de gestão de qualidade e gestão de negócios, estou iniciando a pesquisa de campo sobre um plano de negócios. Acompanhem a trajetória dessa coleta de dados e desse plano de negócios, é muito interessante.

http://vicouto.wordpress.com/2007/05/22/enquete-pesquisa-de-campo-na-moda/

22/05/07[/update]

Pascal – o básico! – RESUMO

Este é um resumo de todos os exercício estudados até o momento!

Funções simples aritméticas:

Pascal – o básico!
Pascal – o básico – Parte 2
Pascal – o básico – Parte 3
Pascal – o básico – Parte 4
Pascal – o básico – Parte 5
Pascal – o básico – Parte 6
Pascal – o básico – Parte 7
Pascal – o básico – Parte 8
Pascal – o básico – Parte 9
Pascal – o básico – Parte 10
Pascal – o básico – Parte 11
Pascal – o básico – Parte 12
Pascal – o básico – Parte 13
Pascal – o básico – Parte 14
Pascal – o básico – Parte 15
Pascal – o básico – Parte 16
Pascal – o básico – Parte 17
Pascal – o básico – Parte 18

Visite o Blog ChaVerde de André Burgos, com uma dose extra de cafeína! hahaha

Pascal – o básico! – Parte 18

No último exercício da saga funções aritméticas simples da lista do berga, vamos calcular um sistema de compra. Serão digitados valores de 5 compras e vamos imprimir na tela o total a pagar. Após a impressão entraremos com o valor em dinheiro para pagar a conta. No final será impresso o troco do cliente. Neste exemplo ainda não iremos tratar o caso do cliente entrar com um valor abaixo do total a pagar, o que aconteceria um erro. Mais a frente trataremos esses tipos de erros com exercícios mais completos com outros recursos.

==========código fonte==========

Program Ex18;

Uses
Crt;
Var
compra1,compra2,compra3,compra4,compra5,totalAPagar,pagamento,troco : Real;

Begin
ClrScr;
Write(‘Digite o valor da compra 1:’);
ReadLn(compra1);
Write(‘Digite o valor da compra 2:’);
ReadLn(compra2);
Write(‘Digite o valor da compra 3:’);
ReadLn(compra3);
Write(‘Digite o valor da compra 4:’);
ReadLn(compra4);
Write(‘Digite o valor da compra 5:’);
ReadLn(compra5);
totalAPagar:=compra1+compra2+compra3+compra4+compra5;
WriteLn(‘Total a pagar: R$’,totalAPagar:4:2);
Write(‘Digite o valor para efetuar o pagamento:’);
ReadLn(pagamento);
troco:=pagamento-totalAPagar;
WriteLn(‘Troco: R$’,troco:4:2);
ReadKey;
End.

==========código fonte==========

Visite o Blog ChaVerde de André Burgos:

Pascal – o básico! – Parte 17

Exercício 17) vamos entrar com valor x e y. Calcular e exibir x elevado a y.

==========código fonte==========

Program Ex17;

Uses
Crt;
Var
x,y,xElevadoAY : Real;
Begin
ClrScr;
Write(‘Digite o valor de x:’);
ReadLn(x);
Write(‘Digite o valor de y:’);
ReadLn(y);
xElevadoAY:=Exp(y*Ln(x));
WriteLn(‘Resultado da exponenciacao:’,xElevadoAY:4:1);
ReadKey;
End.

==========código fonte==========

Visite o Blog ChaVerde de André Burgos: