Pseudocódigo/Diagramas de Flujo - Algoritmo para calificar 40 alumnos

Proceso programa55

	//escriba un algoritmo para calificar 40 alumnos, el programa debe leer el nombre, sus 4 calificaciones de cada alumno, debe calcular el promedio para cada uno y 

	//despues determinar si el aluno aprobo o no aprobo, se requiere un promedio de 7 minimo para aprobar el curso y la salida debe ser la siguiente: nombre, calificaciones, 

	//promedio, aprobo o no aprobo, indicar cuantos alumnos aprobaron y el numero de ellos que obtuvieron 8 de promedio.

	Definir nom como cadena

	Definir a,x,n,n1,n2,n3,n4,c1,c2,c3,c4,p,z,q,ap,re,och Como Entero

	x=0;

	a=1;

	n=0;

	n1=0;

	n2=0;

	n3=0;

	n4=0;

	p=0;

	z=0;

	q=1;

	ap=0;

	re=0;

	och=0;

	Repetir

		x=x+1;

		a=a+1;

		Escribir "Alumno No. ",a;

		Escribir "Nombre: ",nom;

		n=n+nom;

		Escribir "Calificacion 1: ";

		Leer c1;

		n1=n1+c1;

		Escribir "Calificacion 2: ";

		Leer c2;

		n2=n2+c2;

		Escribir "Calificacion 3: ";

		Leer c3;

		n3=n3+c3;

		Escribir "Calificacion 4: ";

		Leer c4;

		n4=n4+c4;

		prom=((n1+n2+n3+n4)/4);

		p=p+prom;

	Hasta Que x=5;

	Repetir

		z=z+1;

		Escribir "Alumno No. ",q;

		q=q+1;

		Escribir "Nombre: ",n;

		Escribir "Calificacion 1: ",n1;

		Escribir "Calificacion 2: ",n2;

		Escribir "Calificacion 3: ",n3;

		Escribir "Calificacion 4: ",n4;

		Escribir "Promedio: ",p;

		si(p>7)Entonces

			ap=ap+1;

			Escribir "Aprobo";

		SiNo

			si(p<7)Entonces

				re=re+1;

				Escribir "Reprobo";

			SiNo

				si(p=8)Entonces

					och=och+1;

				FinSi

			FinSi

		FinSi

	Hasta Que z=x;

	Escribir "Alumnos aprobados: ",ap;

	Escribir "Alumnos Rerobados: ",re;

	Escribir "Alumnos con promedio de 8: ",och;

FinProceso

uses crt;

const

	alumnos = 3;

type estudiantes = record

	nombre:string;

	cal1,cal2,cal3,cal4:real;

end;

var

	datos:array[1..100] of estudiantes;

	i:byte;

	s,c,promedio:real;

begin

	clrscr;

	for i:=1 to alumnos do begin

		writeln('Alumnos # ',i);

		with datos[i] do begin

			write('Nombre: ');

			readln(nombre);

			write('Calificacion 1: ');

			readln(cal1);

			write('Calificacion 2: ');

			readln(cal2);

			write('Calificacion 3: ');

			readln(cal3);

			write('Calificacion 4: ');

			readln(cal4);

			writeln;

		end;

	end;

	//promedio de cada uno

	for i:=1 to alumnos do begin

		s:=0;

		promedio:=0;

		with datos[i] do begin

			writeln('Alumno: ',nombre);

			write('Calificaciones: ');

			write(cal1:4:2,' ',cal2:4:2,' ',cal3:4:2,' ',cal4:4:2);

			writeln;

			c:=(cal1 + cal2 + cal3 + cal4);

			s:=s + c;

			promedio:=s/4;

			writeln('Promedio: ',promedio:4:2);

			if promedio > 6 then

				writeln('Aprobado')

			else

				writeln('No aprobado');

		end;

		writeln;

	end;

end.