Foro de Ayuda IntercambiosvirtualeS

Foro de Ayuda IntercambiosvirtualeS (https://www.intercambiosos.org/index.php)
-   Programación (https://www.intercambiosos.org/forumdisplay.php?f=45)
-   -   Ayuda Urgente ej, de pascal (https://www.intercambiosos.org/showthread.php?t=15928)

Xmas 14-feb-2011 22:28
Ayuda Urgente ej, de pascal
 
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...

Spoiler:
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.

Joe Rod 15-feb-2011 13:02
vaya que me pusiste a pensar, también me estoy iniciando en esto de la programación, aquí te lo terminé:

Spoiler:
Program promedio_materias;
Uses wincrt;

type

vector=array [1..3] of string;
matriz=array [1..3,1..3] of real;
promedio=array [1..3] of real;

var

vecmateria: vector;
mat: matriz;
p: promedio;
i, f: integer;
sumas: array [1..3] of real;
suma: real;

BEGIN

for I:=1 to 3 do
Begin
Writeln ('Indicar Materia', I);
Readln (vecmateria[i]);
End;

for i:= 1 to 3 do
begin
For f:=1 to 3 do
Begin
Writeln ('Indicar nota de la materia: ', vecmateria[i], ' En el corte Numero: ', f );
Readln (mat[i,f]);
end;
end;

for i:= 1 to 3 do
begin
suma:= 0;
suma:= suma + mat[i, 1] + mat[i, 2] + mat[i, 3];
sumas[i]:= suma;
end;

for i:=1 to 3 do
begin
p[i]:= sumas[i]/3;
end;

for i:= 1 to 3 do
Begin
writeln ('El promedio de: ' ,vecmateria[i], 'fue de:' ,p[i]:2:2);
end;

readln;
END.


creo que es muy notable lo que hice, en dado caso de que no lo entiendas no dudes en poner tu duda acá y te lo explico con detalle,
Saludos


La franja horaria es GMT -4. Ahora son las 01:28.

Desarrollado por: vBulletin® Versión 3.8.1
Derechos de Autor ©2000 - 2025, Jelsoft Enterprises Ltd.

Ad Management by RedTyger