FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Programa de calculadora en Pascal
Hola a todos,
Necesito que me ayudeis con una práctica de programación en Lazarus, pues no sé por dónde empezar... La práctica consiste en hacer una especie de calculadora que sume, divida, etc., partiendo de un menu principal para elegir la opción que se desea ejecutar. Y bien, hasta ahi no tuve ningún problema, pero ahora me piden que añada algo más a ese menú de la calculadora, y es lo siguiente: 11. Leer una frase por pantalla (compuesta por un máximo de 25 palabras separadas por blancos, cada una de ellas con un tamaño máximo de 15 caracteres) y realice lo siguiente: • Construir un array de palabras guardando en sus posiciones las palabras de la frase y la longitud de cada una de ellas. • Muestre la palabra de tamaño mayor y menor de la lista. • Calcule la media de caracteres de la palabras introducidas. • Muestre por pantalla las palabras cuyo tamaño supera la media. • pida una palabra - se considerará que una palabra es cualquier sucesión de caracteres sin blancos - y averigüe si dicha palabra está o no en el frase. La búsqueda se deberá realizar de dos formas alternativas: primero sobre la frase y después sobre el array. 12. Dadas 2 matrices cuadrada de hasta 10×10 (M1 y M2): • Mostrar las matrices por pantalla. • Sumar ambas matrices empleando función suma. • Restar ambas matrices empleando función suma. • Visualizar el mayor y el menor de sus elementos. • Intercambiar los elementos de la matriz. Como podeis observar, cada ejercicio tiene una serie de apartados, estos tendrían que ir en un submenú. Espero vuestra ayuda, pues tengo que entregarlo el lunes día 9 de enero. Muhísimas gracias por vuestra atención. Un saludo |
#2
|
||||
|
||||
__________________
all your base are belong to us |
#3
|
||||
|
||||
Pues no te entretengas, venga, que está fácil si te lo propones
Por cierto, bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración. |
#4
|
||||
|
||||
Bienvenido al Club, lo que te encargaron si bien tú lo ves muy complejo, en realidad es adecuado para el nivel en que estás estudiando. Yo te recomiendo que trabajes dividiendo todo en partes y sin olvidar de hacer seudocódigos o pensando como harías tú cada una de las tareas manualmente. Ya cuando tengas claro como lo harías entonces lo pasas a código.
Aplica el famoso divide y vencerás, concéntrate primero en una sola tarea, termínala y continúa. Trata de seguir la secuencia porque en cada tarea utilizarás cosas que ya hiciste en las previas. Puedes empezar por la primera: 11. Leer una frase por pantalla (compuesta por un máximo de 25 palabras separadas por blancos, cada una de ellas con un tamaño máximo de 15 caracteres). Obviamente empezamos por leer una cadena en pantalla (ahorita vemos lo de las palabras, pues para en lenguaje es una simple cadena). Ok, ahora, ¿Como sabemos cuantas palabras contiene? Una forma sencilla es ir leyendo caracter por caracter y al encontrar un espacio contarla como palabra, tienes que llevar la cuenta de cuantos caracteres has leido porque recuerda que el máximo son 25 (aqui ya tienes una tarea mas) así hasta el final.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#5
|
|||
|
|||
Busca en delphi al limite y en codegearguru y encontraras algunas guias de lo que quieres hacer y como arrancar
|
#6
|
|||
|
|||
Muchísimas gracias por vuestra ayuda, aunque para ser sincero estoy casi como al principio. Mi problema en sí es que no soy capaz de hacer esos dos ejercicios, he seguido vuestros consejos y no he encontrado información suficiente para poder hacerlo, pues no sé ni como empezarlos, mi material de estudio es muy reducido y mi profesor no puso demasiado incapié en explicar estas partes, y estoy muy perdido.
Aun así muchas gracias. Un saludo. |
#7
|
||||
|
||||
Pero si son cosas básicas, empieza por pedir al usuario que escriba algo.
Luego usas una función que te dice los caracteres que tiene, así controlas la longitud. Para empezar puedes hacer eso y ya después te podemos ir ayudando. |
#8
|
|||
|
|||
Muchas gracias, pero para hacer eso ¿no necesitaría poner constantes (para los máximos), tipos y por último variables?
Perdonad mi ignorancia, pero no sé si en un procedimiento o función se pueden poner constantes y tipos, y si se puede no sé por qué pero no me compila y me da errores en esas partes... Y si no se puede, no sé cómo hacerlo, lo siento. Gracias de nuevo |
#9
|
||||
|
||||
Hola
Me parece que la primera parte es: 1- encontrar los espacios (blancos) entre las palabras (se puede usar un ciclo para la búsqueda) 2- usar la funcion Length para obtener la cantidad de letras por palabra. 3- Guardar las cantidades y hacer una comparacion de ellas (integer). 4- Sume la totalidad de estos datos y los divida entre la cantidad de palabras para sacar la media. 5- con una palabra determinada hacer una comparacion usando por ejemplo la funcion AnsiCompareText. Aqui y aqui podras ver ejemplos de esto. Saludos
__________________
Siempre Novato Última edición por Caral fecha: 07-01-2012 a las 18:17:57. |
#10
|
||||
|
||||
¿Quieres que te hagamos TU TAREA para la universidad o quieres que te ayudemos a desarrollarla?
|
#11
|
|||
|
|||
De momento he llegado hasta aquí:
He puesto asteriscos para diferenciar dónde tengo dudas, en la primera linea marcada el Lazarus me da error y no entiendo a qué se debe, y en la segunda linea marcada no se muy bien cómo poner "si s es mayor o menor que la última palabra". Gracias Caral por tu respuesta. Muchas gracias por vuestra ayuda! Última edición por Casimiro Notevi fecha: 07-01-2012 a las 22:34:31. |
#12
|
|||
|
|||
Respecto a tu respuesta Maxium, no pretendo que me lo hagan, básicamente porque a parte de mi TAREA también tendré un examen, y en ese examen no creo que me pueda meter aquí para que me lo hagan.
Si pretendes ayudarme, muchas gracias. Pero si lo que pretendes es que haya mal rollo es este tema, mejor no respondas más. |
#14
|
||||
|
||||
RadamantiS, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.
No olvides poner etiquetas al código, ejemplo: . |
#15
|
|||
|
|||
Hola, ya tengo hecho todo, pero cuando ejecuto el programa no me saca los elementos mayor y menor de la matriz bien, ni me hace el intercambio entre ambos elementos. Los procedimientos que he empleado son los siguientes:
CONST max=10; mm=10; TYPE matriz=ARRAY[1..mm,1..max] OF integer; VAR {Estas son las variables del programa principal} mat,mat1,mat2:matriz; lado_i,lado_j:integer; i,j:integer; n_mayor,n_menor:integer; p_mayor,p_menor:ARRAY[1..2] OF integer; procedure mayor_menor_matriz(var n_mayor,n_menor:integer); var mat:matriz; begin leer_matriz(lado_i,lado_j,mat); FOR i:=1 TO mm DO n_mayor:=mat[1,1]; n_menor:=mat[1,1]; FOR i:=1 TO mm DO FOR j:=1 TO max DO IF mat[i,j]>n_mayor THEN begin n_mayor:=mat[i,j]; p_mayor[2]:=j; p_mayor[1]:=i; end; IF mat[i,j]<n_menor THEN begin n_menor:=mat[i,j]; p_menor[2]:=j; p_menor[1]:=i; end; writeln ('El menor elemento es ',n_menor); writeln ('El mayor es ',n_mayor); readln; end; procedure intercambio_matriz(var n_mayor,n_menor:integer;mat:matriz); var nmenor,nmayor:integer; i,j:integer; mat_inter:matriz; begin mat_inter:=mat; mayor_menor_matriz(n_mayor,n_menor); nmenor:=n_menor; nmayor:=n_mayor; FOR i:=1 TO lado_i DO FOR j:=1 TO lado_j DO begin IF nmenor=mat[i,j] THEN mat_inter[i,j]:=nmayor; IF nmayor=mat[i,j] THEN mat_inter[i,j]:=nmenor; end; Mostrar_matriz (mat_inter,lado_i,lado_j); readln; Muchas gracias! P.D.: Al final me dieron una semana más para entregarlo |
#16
|
||||
|
||||
Hola RadamantiS.
¿ No leiste el mensaje #14 de Casimiro ?, creo que es muy claro: Cuando incluyas código en tus mensajes, enciérralo entre las etiquetas correspondientes. Saludos y gracias por tu colaboración.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#17
|
|||
|
|||
|
#18
|
||||
|
||||
Hola RadamantiS.
No me queda bién en claro si deseas cambiar los valores de las variables máximo y mínimo, en cuyo caso es tan simple como: o deseas que intercambien las posiciciones dentro de la matriz. Si este último es el caso, te hice un ejemplo muy simple para que te sirva de guía: Ahora bién, hay que tomar en cuenta que al cargarse de forma aleatoria puede haber repetición de valores. Es decir que si en la matriz tenemos duplicados los valores mínimos y máximos posibles (en el ejemplo 0 y 99), sólo se hará un intercambio. Un saludo. Edito: Dos comentarios, no olvides incluir Types en la cláusula uses. La función MaxMinValues bién podría prescindir de los argumentos por referencia Mayor y Menor, pero los dejé por si necesitas utilizar su valor en otra parte del programa.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 15-01-2012 a las 19:36:07. |
#19
|
|||
|
|||
Muchísimas gracias!!
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Comparativa entre Free Pascal 2.2.0 y Turbo Pascal 7.0 | esocrates | Varios | 2 | 14-07-2008 14:56:24 |
crear un programa tipo pascal que funcione con el disco de inicio ms-dos | kurono | Varios | 5 | 14-03-2008 22:28:17 |
Calculadora | sebaguillen | Varios | 17 | 28-08-2007 15:27:23 |
Calculadora | Epunamun | OOP | 3 | 19-12-2005 22:33:11 |
manual de excepciones de object pascal para free pascal??? | Garion | OOP | 3 | 27-05-2005 00:42:29 |
|