[pascal] programa cornometro
Studio-Natch :: PC :: Programação :: Visual basic / Pascal
Página 1 de 1
[pascal] programa cornometro
Um programa que metes um X tempo, e ele vai cronometrar isso até que seja 0...
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.
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.
Tópicos semelhantes
» [pascal] programa cronometro
» [pascal] programa infinito apitando
» Turbo Pascal
» [pascal] Efeito matrix
» [pascal] tabela ASCII
» [pascal] programa infinito apitando
» Turbo Pascal
» [pascal] Efeito matrix
» [pascal] tabela ASCII
Studio-Natch :: PC :: Programação :: Visual basic / Pascal
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|