• Domingo 15 de Septiembre de 2019, 16:42

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Xmas92

Páginas: [1]
1
Pascal / Problema con un Ej. de pascal
« en: Lunes 14 de Febrero de 2011, 22:43 »
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
  1. Program promedio_materias;
  2. Uses wincrt;
  3.  
  4. Type
  5.  
  6. Vector=array [1..4] of string;
  7. Matriz=array [1..4,1..3] of real;
  8. Promedio=array [1..4] of real;
  9.  
  10. Var
  11.  
  12. Vecmateria: vector;
  13. Mat: matriz;
  14. P: promedio;
  15. I, f: integer;
  16. suma: real;
  17.  
  18. Begin
  19.  
  20.  
  21. For I:=1 to 3 do
  22.  
  23. Begin
  24.  
  25. Writeln ('Indicar Materia', I);
  26. Readln (vecmateria[I]);
  27.  
  28. End;
  29. vecmateria[4]:= 'Promedio';
  30. For I:=1 to 3 do
  31.  
  32. begin
  33.  
  34. Suma:=0;
  35. For f:=1 to 3 do
  36.  
  37. Begin
  38.  
  39. Writeln ('Indicar nota de la materia: ', vecmateria[I], ' En el corte Numero: ', f );
  40. Readln (mat[I,f]);
  41. suma:=mat[I,f]+suma;
  42. p[i]:=suma/3;
  43. end;
  44.  
  45.  
  46. for I:= 1 to 3 do
  47.  
  48. Begin
  49. writeln ('El promedio es ', p[I]:2:2);
  50.  
  51. end;
  52. writeln;
  53. end;
  54.  
  55. end.
  56.  

Páginas: [1]