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.

Obrigado pela sua visita!

Novamente tenho que agradecer a visita de todos. O quanto enriqueceu meus estudos e minhas opiniões com a movimentação deste humilde blog.

Mais uma vez o recorde de visitas, 278 hits. Espero contribuir muito mais à blogosfera!

Para comemorar o recorde, estou em busca de um novo tema, estou testando! ;)

Abraços.

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: Seminário de Ciclo PDCA

Dessa vez irei disponibilizar um trabalho sobre uma case um tanto quanto inusitada. Foi implantado o ciclo PDCA em um café da manhã onde tínhamos que levar um bolo gelado em pleno sábado de calor. Uma case simples mas que foi solucionada com sucesso.

O trabalho teve uma inspiração didática e mais genérica, portanto, seguindo as etapas passo a passo fica fácil adaptá-las em qualquer outra case.

A utilização do ciclo PDCA no estudo de caso café da manhã.doc

Bom download! Bons estudos!

Obrigado pela visita

Queria agradecer aos visitantes do meu blog, ontem quase batemos o recorde, chegamos a 212 visitas. Estou muito feliz com o movimento do meu blog e com as experiências adquiridas. Foram inúmeros contatos novos.

Obrigado mesmo.

Ass.: Victor de Souza Couto

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]

Gestão da Qualidade: Ciclo PDCA

Uma ótima alternativa para auxiliar processos da gestão da qualidade. O ciclo PDCA definido por algumas etapas básicas pode solucionar problemas convencionais na empresa.

O PDCA é uma sigla formada pela primeira letra de 4 palavras inglesas: Plan, Do, Check, Action.

Seguindo tal ordem, irei fazer uma breve explicação da metodologia.

• Plan (Planejar)

1. Identificação do problema (com brainstorming);

2. Observação/visão sistêmica do problema (com brainstorming);

3. Análise das causas principais (causa/efeito/histograma);

4. Plano de ação (o que fazer? como? quando? quem?);

• Do (Fazer)

5. Executar o plano de ação;

• Check (Checar)

6. Verificar a efetividade da ação;

• Action (Ação)

7. Padronização;

8. Conclusão/revisão das ações.