• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ber0x88

Cronómetro básico

5 mensagens neste tópico

Um cronómetro básico em pascal:

Program Cronom ;
var tempo:integer;
Begin
  // Solicita o tempo para o cronometro
  write ('Digite o tempo que voce deseja que o programa cronometre (s): ');
  read (tempo);

  // Repeticao ate o tempo chegar a zero
  while (tempo<>0) do
  Begin
    delay (1000);    
    clrscr;
    writeln ('Cronometrando: ',tempo,' segundos');
    tempo := tempo - 1;
  End;
  
  writeln ('');
  Write ('     Tempo esgotado !');
  readkey;
End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem um pequeno, aparte passado muito tempo, mas mesmo algum os segundos não dao bem  :thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

LoooL! isso vem nos samples do PASCAL ZIM! ...já agora punhas um TAR com os samples todos!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

looool...foi apanhado..xD

mas mesmo assim ajuda para as pessoas que nam usam o PascalZim!....eu agora ja tenho quase todas as versoes postadas aqui no forum do pascal...agora so as vou começar a testar...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora