Cronometrando o tempo, rápido e fácil com algortimo

Como cronometrar seu tempo com um simples programa elaborado em Pascal. Há uma maneira bem simples de você automatizar uma tarefa de cronometragem, em poucas linhas e em pouco tempo utilizando algoritmo.

Por Programação Pular para comentários
Cronometrando o tempo, rápido e fácil com algortimo H? uma maneira bem simples de voc? automatizar uma tarefa de cronometragem, em poucas linhas e em pouco tempo utilizando algoritmo. No exemplo abaixo, ? demonstrado um programa elaborado em Pascal, por ser uma linguagem simples e bem did?tica, mas nada impede que voc? utilize o c?digo abaixo em sua linguagem preferida, basta alterar a sintaxe, pois a l?gica utilizada ser? a mesma.

Observe que o c?digo em si est? todo em negrito e os s?mbolos ?//? servem para delimitar um in?cio de coment?rio sobre o c?digo descrito, portanto, serve apenas para fins de tutorial, ou se para anota?es preferenciais para futuras consultas ao c?digo, mas que n?o ir?o influenciar na execu??o do programa.

Program cronometro;     // Onde ?cronometro? ? o nome do programa
var tempo:integer;          // A vari?vel tempo deve ser declarada como do tipo integer (inteiro)
//Digite corretamente as linhas abaixo
BEGIN
    write ('Digite o tempo em segundos que deseja cronometrar: ');
    read (tempo);
    while (tempo<>0) do
    // Para os comandos abaixo funcionarem corretamente, o c?digo foi inserido em um bloco de execu??o (BEGIN e END). A? ent?o come?ara a cronometragem com uma mensagem na tela
    BEGIN                        
        delay (1000);    
        clrscr;
        writeln ('Cronometragem iniciada, faltam: ',tempo,' segundos');
        tempo := tempo -1;
    END;
    // Ap?s execu??o do bloco acima, inicia-se o c?digo final, para finaliza??o do programa, tamb?m com uma mensagem
    writeln (' ');
    write ('   O TEMPO ACABOU!!!');
END. // FIM DO PROGRAMA

Voc? pode testar o c?digo acima com diversos compiladores compat?veis com a linguagem, mas fica a dica: Use o Free Pascal ou PascalZim (compilador brasileiro desenvolvido no Departamento de Ci?ncia da Computa??o da Universidade de Bras?lia), enfim, alternativas gratuitas, dispon?veis para download nos sites a seguir:

Free Pascal: http://www.freepascal.org/
PascalZim: http://pascalzim.tripod.com/index.html

Compartilhe com seus amigos:
Quer conversar com o(a) Fabiano, comente:
Carregar comentários
Últimas notícias