AYUDA CON ARREGLO EN PASCAL (PROMEDIO)
Publicado por CLARA (2 intervenciones) el 05/02/2018 17:40:41
Determine en cada facultad el estudiante de mayor promedio. Me dan 3 facultades, la cantidad de materias que cursan y las notas de dichas materias. El usuario no debe registrar a ningun estudiante pues estos ya estan asignados con randomize al igual que la cantidad de materias y las notas. AYUDAAAA
MI IDEA ERA
PROCEDURE PROMEDIOFAC( ESTUDIANTES:BYTE);
VAR
SUMA,D,M,MATERIAS:BYTE;
PROMEDIO:=REAL;
BEGIN
SUMA:=0;
FOR D:=1 TO GENTE3 DO BEGIN
WITH ESTUDIANTES [D] DO BEGIN
IF FACULTAD=1 THEN BEGIN
FOR M:=1 TO MATERIAS DO BEGIN
SUMA:=SUMA+NOTAS[M];
PROMEDIO[D]:=SUMA/MATERIAS;
PERO LUEGO NO SE COMO SEGUIR
MI IDEA ERA
PROCEDURE PROMEDIOFAC( ESTUDIANTES:BYTE);
VAR
SUMA,D,M,MATERIAS:BYTE;
PROMEDIO:=REAL;
BEGIN
SUMA:=0;
FOR D:=1 TO GENTE3 DO BEGIN
WITH ESTUDIANTES [D] DO BEGIN
IF FACULTAD=1 THEN BEGIN
FOR M:=1 TO MATERIAS DO BEGIN
SUMA:=SUMA+NOTAS[M];
PROMEDIO[D]:=SUMA/MATERIAS;
PERO LUEGO NO SE COMO SEGUIR
Valora esta pregunta
0