PROGRAMA DE REGISTRO

PROGRAM cedula_notas;
Uses
winCrt;
Const
numalumnos = 5;
Type
tnotas = record
ci2 : longint;
n_parcial12,n_parcial2,n_parcial_1, n_par2: real;
end;
notas = Array[1..numalumnos] of tnotas;
var
clase : notas;
ci: longint;
n_parcial1, n_parcial, n_par, n_media: real;
i: Integer;
Begin
ClrScr;
For i := 1 to numalumnos Do
Begin
WRITE('Introduzca cedula del alumno ',i,' : ');
READLN(ci);
WRITE('Introduzca su nota parcial: ');
READLN(n_parcial1);
WRITE('Introduzca su nota parcial: ');
READLN(n_parcial);
WRITE('Introduzca su nota parcial : ');
READLN(n_par);
WRITELN;
With clase[i] Do
Begin
n_parcial12 := n_parcial1;
n_parcial2 :=n_parcial;
n_par2 := n_par;
ci2 := ci;
End;
End;
ClrScr;
WRITELN('C.i.':25,'Par1':8,'Parc2':8,'Parc3':8,'Media':8);
WRITELN;
For i := 1 to numalumnos do
With clase[i] do
Begin
n_media := (n_parcial12 + n_parcial2 + n_par2) / 3;
WRITE(ci2:25,n_parcial12:8:2,n_parcial2:8:2,n_par2:8:2);
WRITELN(n_media:8:2);
End;
End.

JONATHAN PABON
15756902 III SEMESTRE DE INFORMATICA