Pascal/Turbo Pascal - tabal multiplicar

   
Vista:

tabal multiplicar

Publicado por yo mismo (4 intervenciones) el 15/10/2007 16:09:17
Espero que alguien pueda ayudarme.El objetivo del problema es realizar la tabla de multiplicar de los numero introducidos por teclado.Cuando introduzca el -1 saldra SIN MOSTRAR la tabla del -1.Se hacerlo con repeat pero me muestra la tabla del -1 y asi que hay que hacerlo con un while.

Este es mi codigo pero no se repite el programa solo me deja introducir un numero y muestra la tabla y se sale.

program multiplicar;
Var
num,mult,i,c:integer;
BEGIN

while not num=-1 do
begin
writeln("Introduzca un numero");
readln(num);

for i:=1 to 10 do
begin
mult:=num*i;
writeln("",num,"*",i," es ",mult,"");
end;
end;

END.



GRACIAS POR SU AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:tabal multiplicar

Publicado por Diego Romero (997 intervenciones) el 15/10/2007 20:36:53
program multiplicar;
Var
num,mult,i,c:integer;
BEGIN
writeln("Introduzca un numero");
readln(num);
while not num=-1 do
begin
for i:=1 to 10 do
begin
mult:=num*i;
writeln("",num,"*",i," es ",mult,"");
end; { for }
writeln("Introduzca un numero");
readln(num);
end; { while }

end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:tabal multiplicar

Publicado por Yenny (1 intervención) el 04/06/2009 23:28:48
Les agradesco su ayuda, pero otra cosa más si sse puede hacer lka tabl de multiplicar solo con el while y no incluyendo el for
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar