• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Iskas

Cronometro!!

3 mensagens neste tópico

Boas

alguem me sabe dizer como posso parar o cronometro ao inserir uma letra ou numero

Aki fica o program:

program cronometro;

uses crt;

var
min,seg: 0..60;
milesimos:0..65;

begin
    min:=0;
    seg:=0;
    milesimos:=0;
    writeln('Pressione enter para continuar');
    readln;
    while min<=59 do
          begin
               delay(1);
               milesimos:=milesimos+1;
               if milesimos=65 then
                  begin
                       milesimos:=0;
                       seg:=seg+1;
                  end;
               if seg=60 then
                  begin
                       seg:=0;
                       min:=min+1;
                  end;
               gotoxy(20,10);
               write(min:2,':',seg:2,':',milesimos:2);
          end;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Iskas experimenta utilizar um REPEAT.... UNTIL readkey.

e dentro do repeat fica aquele while ate ao fim... Acho que assim faz aquilo que queres...

Abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora