FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda Urgente ej, de pascal
No sabia donde postear disculpen si no es el lugar indicado!!!
Hola a todos tengo un problema con un programa en pascal estoy intentando hacer un programa que me calcule 3 materias y 3 notas encada materia, con sus respectivos cortes. Sacar el promedio de cada materia despues cargar la matriz y sacar el promedio final si me entienden.. Pero la parte de la matriz y el promedio final por mas que lo intento no me sale ayuda porfa. Esto es lo que llevo estaria muy agradecido si alguien me puede ayudar... Código:
Program promedio_materias; Uses wincrt; Type Vector=array [1..4] of string; Matriz=array [1..4,1..3] of real; Promedio=array [1..4] of real; Var Vecmateria: vector; Mat: matriz; P: promedio; I, f: integer; suma: real; Begin For I:=1 to 3 do Begin Writeln ('Indicar Materia', I); Readln (vecmateria[i]); End; vecmateria[4]:= 'Promedio'; For I:=1 to 3 do begin Suma:=0; For f:=1 to 3 do Begin Writeln ('Indicar nota de la materia: ', vecmateria[i], ' En el corte Numero: ', f ); Readln (mat[I,f]); suma:=mat[I,f]+suma; p[i]:=suma/3; end; for I:= 1 to 3 do Begin writeln ('El promedio es ', p[i]:2:2); end; writeln; end; end. |
#2
|
||||
|
||||
Hola, bienvenido a clubdelphi, recuerda leer nuestra guía de estilo, gracias por tu colaboración.
|
#3
|
||||
|
||||
Lo que puedes hacer es dividir los pasos que das...
En un primer paso pides las materias, En un segundo paso pides las notas En un tercer paso calculas los promedios Finalmente en el cuarto paso muestras los resultados. Creo que estás mezclando el segundo y el tercer paso.
|
|
|
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 |
Ayuda urgente... | fide | Internet | 6 | 11-12-2007 16:35:25 |
Ayuda Urgente!!! | nikotina | SQL | 1 | 08-02-2007 07:22:42 |
ayuda con pascal!!! | Babas | Lazarus, FreePascal, Kylix, etc. | 3 | 20-10-2006 22:13:41 |
manual de excepciones de object pascal para free pascal??? | Garion | OOP | 3 | 27-05-2005 00:42:29 |
|