Índiceciclos for
Principal :: Como comenzar :: pascal :: Nivel medio :: Programas complejos
Página 1 de 1.
ciclos for
Israfel 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.
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 : 34
Principal :: Como comenzar :: pascal :: Nivel medio :: Programas complejos
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.|
|
|