RSS
Facebook
G+

Buscador de IntercambioSOS:


Retroceder   Foro de Ayuda IntercambiosvirtualeS > Soporte Sobre: Educación & Entretenimiento > Zona Académica > Programación

Respuesta
 
Herramientas Desplegado
Antiguo 14-feb-2011     #1
Predeterminado 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.
Responder Citando
Usuarios que han agradecido este mensaje de Xmas
baduser (15-feb-2011)
Antiguo 15-feb-2011     #2
Post

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
Responder Citando
Respuesta


(0 miembros y 1 visitantes)
 
Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado

Ir al Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Hola necesito ayuda urgente j30vann1 Peticiones 4 15-ene-2011 15:15
Ayuda Urgente con Laptop Error al instalar ESET Ghost Peticiones 5 28-jul-2010 21:43
Descargar Videos Flash (FLV) Necesito Ayuda Urgente Cangry06 Peticiones 9 26-may-2010 11:33
Ayuda urgente sobre combinar impresoras horacioduar Laptops & Netbooks 4 03-abr-2010 00:09
al green.¡ es urgente ayuda ! shoker Peticiones 2 24-feb-2010 17:30


Desarrollado por: vBulletin® Versión 3.8.1
Derechos de Autor ©2000 - 2024, Jelsoft Enterprises Ltd.
Ad Management by RedTyger