ciclos for

Ver el tema anterior Ver el tema siguiente Ir abajo

ciclos for

Mensaje  Israfel el Dom Feb 13, 2011 9:43 pm

programa que muestra la tabla de multiplicar hasta la tabla del 3. (programa no hecho por mi, pero se puede observar como traba este ciclo)

program tabl;
uses
crt;var
tabla,numero:integer;
begin
ClrScr;
for tabla:=1 to 3 do begin
for numero:=1 to 10 do
begin
writeln(tabla,' * ',numero,' = ',tabla*numero);
end; Writeln;
end;
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.