Pascal/Turbo Pascal - Problema con el formato de un producto

   
Vista:

Problema con el formato de un producto

Publicado por DarkisX (2 intervenciones) el 04/10/2007 23:27:09
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
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:Problema con el formato de un producto

Publicado por DarkisX (2 intervenciones) el 04/10/2007 23:34:19
Hay un pequeño detalle en el resultado:

Los resultados son:

-----325
-----426
---_____
----1950
----650
-1300
---_____
-138450

El primer cero del 1300 debe quedar alineado.

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 =(
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:Problema con el formato de un producto

Publicado por Diego Romero (997 intervenciones) el 05/10/2007 06:33:07
Considera usar GotoXY() para situal el cursor en un lugar de la pantalla.
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