Hola amigos. Estoy aprendiendo Pascal solita, siguiendo un libro claro está, pero solita porque no tengo ayuda disponible por acá. Ayer se me presentó un problemita, quise hacer un ejercicio que enuncio y resuelvo más abajo. Claro, logré el resultado del ejemplo porque limite los productos a un número (primerresultado:=numero1*6;), sin embargo, el programa no es eficaz puesto que se supone uno debiera poder colocar cualquier número ¿Verdad? Que fuese efectivo para cualquier entero de tres dígitos. Ojala puedan ayudar un poco a ésta novata.
9. Escribir un programa que lea dos enteros de tres dígitos e imprima su producto en el siguiente formato:
-----325
-----426
---_____
----1950
----650
-1300
---_____
-138450
Intento de programa:
Program project1;
uses
crt;
const
rayita = #95;
var
numero1,numero2,primerresultado,segundoresultado,tercerresultado,resultado: integer;
begin
writeln('Por favor introduzca el primer numero entero');
readln(numero1);
writeln('Por favor introduzca el segundo numero entero');
readln(numero2);
writeln('Los resultados son: ');writeln;
primerresultado:=numero1*6;
segundoresultado:=numero1*2;
tercerresultado:=numero1*4;
resultado:=numero1*numero2;
writeln(numero1:6);
writeln(numero2:6);
writeln(rayita,rayita,rayita,rayita,rayita,rayita);
writeln(primerresultado:6);
writeln(segundoresultado:5);
writeln(tercerresultado:4);
writeln(rayita,rayita,rayita,rayita,rayita,rayita);
writeln(resultado:6);
readln
end.
Salida con formato:
Los resultados son:
-----325
-----426
---_____
----1950
----650
-1300
---_____
-138450
Mi pregunta especifica sería: ¿Cómo hago para indicarle al programa que los resultados de los productos deben mostrarse así? Es decir, donde está el 1950 es el producto de 6 por 325, la siguiente línea del 2 por 325, y el 1300 por el 4...Una ayudita por favor =(
Mostrar Mensajes
