Cronómetro

Original

Este código simula um cronómetro que, terminado um tempo definido em segundos pelo utilizador, mostra uma mensagem de alerta.

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.

Estendido

program cronometro;
uses crt;
var tempo:integer;
    escolha:char;
begin
 repeat
  repeat
   writeln ('Indique o tempo a cronometrar:');
   readln (tempo);
   if (tempo = 0) then
    writeln ('Valor invalido. Por favor insira um valor numerico');
  until (tempo <> 0);
  while (tempo <> 0) do
   begin
    delay (1000);
    clrscr;
    writeln ('|-----------------------------------------|');
    writeln ('|              A cronometrar...           |');
    writeln ('|-----------------------------------------|');
    writeln ('| Tempo Restante: ',tempo,' segundos              |');
    writeln ('|-----------------------------------------|');
    tempo := tempo - 1;
   end;
  clrscr;
  writeln ('|-----------------------------------------|');
  writeln ('|              A cronometrar...           |');
  writeln ('|-----------------------------------------|');
  writeln ('| Tempo Esgotado!!!                       |');
  writeln ('|-----------------------------------------|');
  writeln ('');
  writeln ('Voltar a Cronometrar? Sim (s) Nao (n)');
  escolha := readkey;
  clrscr;
 until (escolha = 'n');
end.