FOR anidado en Turbo Pascal

Se tiene una comisión de 25 alumnos en la materia Programación Lógica y se tomarán 5 examenes. Ingresar las notas de cada alumno y deacuerdo a su promedio mostrar respectivamente por pantalla aprobado o desaprobado. Además mostrar la cantidad de aprobados y desaprobados respectivamente.

{ASK FOR 5 EXMS OVER 25 STUDENTS, PRINT IF IS APPROVED OR NOT AND TOTAL OF APPROVED AND DESAPPROVED}
USES
    WINCRT;
VAR
ALU, EXM, APR, DES, I, NOTA, K, ACUM: INTEGER;
PROM: REAL;
BEGIN
ALU:=25;
EXM:=5;
ACUM:=0;
NOTA:=1;
FOR I :=1 TO ALU DO
    BEGIN
         ACUM:=0;
         FOR K:=1 TO EXM DO
             BEGIN
                  REPEAT
                  WRITE (‘Ingrese la ‘, K, ‘ª nota del ‘, I, ‘º alumno: ‘);
                  READLN(NOTA);
                  UNTIL (NOTA >=0) AND (NOTA<=10);
                  ACUM:=ACUM+NOTA;
             END;
         PROM:=ACUM/EXM;
         IF PROM>=4 THEN
            BEGIN
                 APR:=APR+1;
                 WRITELN(‘El alumno ‘, I,’ fue aprobado.’);
            END
         ELSE
             BEGIN
                  DES:=DES+1;
                  WRITELN (‘El alumno ‘, I,’ fue desaprobado.’);
             END;
    WRITELN;
    END;
    WRITELN;
    WRITE (‘La cantidad de alumnos aprobados es: ‘, APR,’ desaprobados: ‘, DES);
    READKEY;
    CLRSCR;
END.


About these ads
Esta entrada fue publicada en Turbo Pascal. Guarda el enlace permanente.

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s