Cronômetro de 10 até 0

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Cronômetro de 10 até 0

Mensagem por Allan em Dom Nov 18, 2012 1:40 pm

Código:
program testes;
uses crt;
var seg:integer;
begin
   for seg := 10 downto 0 do begin
      clrscr;
      writeln(seg);
      delay(1000);
   end;
end.
Modifique o programa e estude junto!
cheers
avatar
Allan
Administrador
Administrador

Mensagens : 255
Data de inscrição : 06/07/2011
Idade : 19
Localização : Paraná

http://zetasecurity.forumeiros.com/

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum