|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - DarkisX
Páginas: [1]
1
« en: Jueves 18 de Octubre de 2007, 00:32 »
Hola! Anteriormente, ya le había presentado mi agradecimiento a RoMaNo, y ahora lo hago públicamente  Pues él, lo resolvió.  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); readln end.
¡Gracias amigo mío!  
2
« en: Viernes 5 de Octubre de 2007, 23:58 »
La cuestión está en emular una multiplicación de tres cifras a como se haría en un cuaderno normal, a mano. Allí está el objetivo.
Primero tomamos un numerito y multiplicamos por lo de arriba. Seguimos, dejamos un espacio y realizamos la multiplicación por la siguiente cifra, o el siguiente número. Otro espacio, y el tercer número por lo de arriba. Al final el resultado.
Es lo que se pretende, pero no sé cómo hacer para que funcione con cualquier número.
3
« en: Viernes 5 de Octubre de 2007, 23:27 »
Ante todo Enko, muchas gracias por tu respuesta y por tu tiempo. Mira, en realidad lo que hice fue forzar el programa para que imitara el ejemplo que ponen allí en el ejercicio propuesto, para que uno vea el formato de la salida que debe aparecer, por eso puse: primerresultado:=numero1*6;
Sin embargo, lo que quiero hacer es que aparezca algo como: primerresultado:=numero1*[primerdigitodenumero2];
En vez de 6, porque se supone el programa debería funcionar si tomo 2 números cualesquiera, ya sea: 756 y 345, 980 y 123, etc. Yo creo que la otra pregunta más apropiada sería, ¿Puedo hacer esto? ¿Puedo hacer que el programa funcione para dos números cualesquiera? Una vez más, gracias Enko.
4
« en: Viernes 5 de Octubre de 2007, 00:49 »
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 =(
Páginas: [1]
|
|
|
Mostrar Mensajes
