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.