Programación General > Pascal

 Problema con un Ej. de pascal

(1/1)

Xmas92:
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: Pascal ---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 Beginwriteln ('El promedio es ', p[I]:2:2); end;writeln;end; end. 

Navegación

[0] Índice de Mensajes