Ejercicio 1: Promedio de Alumnos
Objetivo: Calcular el promedio de notas de alumnos, cantidad y porcentaje de aprobados y desaprobados.
Program EjRep1;
uses
Crt;
var
CA,C,T1,T2,T3,CAA,CAD:Integer;
P,PAA,PAD:Real;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de alumnos y las notas de los tres trimestres;');
WriteLn('Podr saber el promedio de cada alumno, la cantidad y porcentaje de aprobados y desaprobados.');
WriteLn('Ingrese la cantidad de alumnos.');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese las notas de cada trimestre.');
ReadLn(T1,T2,T3);
P:=(T1+T2+T3)/3;
WriteLn('El promedio del alumno es de ',P:0:0);
If (P>=6) then
CAA:=CAA+1
else
CAD:=CAD+1
End;
PAA:=CAA*100/CA;
PAD:=CAD*100/CA;
WriteLn('La cantidad de alumnos aprobados
...
Continuar leyendo "Ejercicios de Programación en Pascal" »