14/02/2011, 14:36
|
| | | Fecha de Ingreso: febrero-2011
Mensajes: 1
Antigüedad: 14 años, 1 mes Puntos: 0 | |
| Hola ayuda por favor
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...
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. |