Calculo de Notas IUTCM

El Siguiente Programa nos Ayudara a Determinar si un Alumno del IUTCM reprueba o aprueba la Materia de Lógica de Programación, Tomando en cuenta que las Notas son de 0 - 100 corte a corte y que luego debemos transformarlas para que nos de una nota lógica es decir de 0 - 20, y nos diga si un alumno esta Aprobado o Reprobado....!!! A Practicar y a Inventar Programas


PROGRAM IUTCM; USES WINCRT; VAR A1C,A2C,A3C,A4C,Total:INTEGER; Pro,Nota:Real; BEGIN {eL ClrScr sirve para limpiar la Pantalla} ClrScr; WRITELN ('*** Programa Calculo de Notas IUTCM'); WRITELN (''); WRITELN ('Ingrese nota del 1er Corte'); READLN(A1C); WRITELN ('Ingrese nota del 2do Corte'); READLN(A2C); WRITELN ('Ingrese nota del 3er Corte'); READLN(A3C); WRITELN ('Ingrese nota del 4to Corte'); READLN(A4C); Total:= A1C + A2C + A3C + A4C; Pro:= Total/4; Nota:= (Pro*20)/100; WRITELN (''); WRITELN ('La Sumatoria de los Cortes es: ',Total); WRITELN ('La Nota Final en Base 0 - 100 es: ',Pro:3:2); WRITELN ('La Nota Final es: ',Nota:3:2); WRITELN (''); IF Nota < 10 THEN WRITELN ('El Alumno esta Reprobado') ELSE WRITELN ('El Alumno esta Aprobado') END.

0 comentarios:

Publicar un comentario en la entrada