Program Boletadecalif;
Uses Crt;
var nota:array [1..5] of real;
var i:integer;
prom:real;
materias:array [1..5] of string;
F:integer;
promedio,folio:real;
alumno: string;
ins:string;
Begin
ClrScr;
Textcolor(white);
write('Inserte el nombre de la institución : ');readln(ins); write('FOLIO: '); readln(folio);
write('Nombre de alumno: '); readln(alumno);
writeln('======================================'); writeln('HOJA DE LLENADO DE CALIFICACIONES'); writeln('======================================'); write('dame el nombre de la materia 1: '); readln(materias[1]);
write('dame el nombre de la materia 2: '); readln(materias[2]);
write('dame el nombre de la materia 3: '); readln(materias[3]);
write('dame el nombre de la materia 4: '); readln(materias[4]);
write('dame el nombre de la materia 5: '); readln(materias[5]);
writeln(' '); write('dame la calificacion de :',materias[1],' :'); readln(nota[1]);
write('dame la calificacion de :',materias[2],' :'); readln(nota[2]);
write('dame la calificacion de :',materias[3],' :'); readln(nota[3]);
write('dame la calificacion de :',materias[4],' :'); readln(nota[4]);
write('dame la calificacion de :',materias[5],' :'); readln(nota[5]);
writeln(' '); writeln('-la materia de ',materias[1],'=',nota[1]:00:00); writeln('-la materia de ',materias[2],'=',nota[2]:00:00); writeln('-la materia de ',materias[3],'=',nota[3]:00:00); writeln('-la materia de ',materias[4],'=',nota[4]:00:00); writeln('-la materia de ',materias[5],'=',nota[5]:00:00); writeln('============================================'); prom:=((nota[1]+nota[2]+nota[3]+nota[4]+nota[5])/5);
textcolor(42);
writeln(ins);
writeln('El promedio es:',prom:00:00); writeln('El folio es:',FOLIO:00:00); writeln('El alumno es:',alumno); writeln('============================================'); if prom >= 6 then writeln(' EL ALUMNO ESTA APROBADO ') else writeln('EL ALUMNO ESTA REPROBADO'); readkey
end.
Crear cuenta
Comentarios sobre la versión: 1.0 (0)
No hay comentarios