[pascal] programa cronometro

ETraud Qua Out 29, 2008 9:01 pm

Um programa que metes um X tempo, e ele vai cronometrar isso até que seja 0...

Código:

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.