Programación General > Pascal

 Duda Con Formato Para Mostrar Un Producto

<< < (2/2)

DarkisX:
Hola! Anteriormente, ya le había presentado mi agradecimiento a RoMaNo, y ahora lo hago públicamente :P
Pues él, lo resolvió. :kicking:


--- Código: Text --- program Project1; (* Ejercicio propuesto por Luis Joyanes.   Empezado por Mí xD   Y solucionado para funcionar con cualquier número de tres dígitos por RoMaNo *) uses  Crt;const  rayita = #95;var   unidad,decena,centena,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;  writeln('Los resultados son: ');writeln;  Unidad := numero2 mod 10;  Decena := numero2 mod 100 - Unidad;  Centena:= numero2 - numero2 mod 100;  primerresultado:=numero1 * unidad;  segundoresultado:=numero1 * decena;  tercerresultado:=numero1 * centena;  resultado:=primerresultado + segundoresultado + tercerresultado;  writeln(numero1:6);  writeln(numero2:6);  writeln(rayita,rayita,rayita,rayita,rayita,rayita);  writeln(primerresultado:6);  writeln(segundoresultado div 10:5);  writeln(tercerresultado div 100:4);  writeln(rayita,rayita,rayita,rayita,rayita,rayita);  writeln(resultado:6);  readlnend.  
¡Gracias amigo mío! :smartass:

 :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior