Contador y mostrar en pantalla

Ver el tema anterior Ver el tema siguiente Ir abajo

Contador y mostrar en pantalla

Mensaje  Israfel el Dom Feb 13, 2011 7:06 pm

crear un contador hasta en numero 10 y mandar una mensaje una vez terminado (mostrando todo en pantalla).

program contador;
uses crt;
var
x,con:integer;
begin
clrscr;
con:=0;
repeat
con:=con+1;
delay(1000);
writeln(con);
until
(con=10);
if(con=10)then
Write('Hemos terminado');
readkey;
end.

------------------------
program contador;
uses crt;
var
x,con:integer;
begin
clrscr;
con:=0;
repeat {habre el ciclo de repeticion}
con:=con+1; {contador: sumara 1 cada ves que se repita el ciclo de repeticion}
delay(1000); {comando para reducir o aumentar la velocidad del ciclo (1000=1 segundo)}
writeln(con); {mostrara el valor del contador en pantalla}
until {until= hasta, se repetira el ciclo hasta que se cunpla una condicion}
(con=10); {Condicion de parada del cliclo}
if(con=10)then {condicion, una vez el contador llegue a 10 entonces:}
Write('Hemos terminado'); {mostrara el mensaje}
readkey;
end.

Israfel

Mensajes : 28
Fecha de inscripción : 12/02/2011
Edad : 27

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.