S7sRuss
What is folding?
Olá pessoal.
Estive a escrever o programa em baixo no Turbo Pascal for Windows 1.5 (TPW 1.5)
e quando fiz compilar deu o erro Error 3: Unknown Identifier na função delay(1).
Como posso resolver o problema?
program cronometro;
uses wincrt;
var mil,seg,min:integer;
begin
mil:=0;
seg:=0;
min:=0;
read;
while(min<60) do
begin
delay(1); {erro!}
mil:=mil+1;
if(mil=60) then
begin
seg:=seg+1;
mil:=0;
end;
if (seg=60) then
begin
min:=min+1;
seg:=0;
end;
gotoxy(3,5);
write(min,':',seg,':',mil);
end;
end.
Estive a escrever o programa em baixo no Turbo Pascal for Windows 1.5 (TPW 1.5)
e quando fiz compilar deu o erro Error 3: Unknown Identifier na função delay(1).
Como posso resolver o problema?
program cronometro;
uses wincrt;
var mil,seg,min:integer;
begin
mil:=0;
seg:=0;
min:=0;
read;
while(min<60) do
begin
delay(1); {erro!}
mil:=mil+1;
if(mil=60) then
begin
seg:=seg+1;
mil:=0;
end;
if (seg=60) then
begin
min:=min+1;
seg:=0;
end;
gotoxy(3,5);
write(min,':',seg,':',mil);
end;
end.
Última edição: