P_17_E15-Notas

=__**Leer la nota numérica e indicar si suspenso, aprobador, ...**__= Escribe un programa que lea desde teclado el valor numérico de la nota de un alumno y muestre por pantalla el rango de notas al que corresponde (suspenso, aprobado, notable, sobresaliente o matrícula). >> Suspenso: Nota < 5.0 >> Aprobado: 5.0 <= Nota < 7.0 >> Notable: 7.0 <= Nota < 9.0 >> Sobresaliente: 9.0 <= Nota < 10.0 >> Matrícula de honor: Nota = 10.0 code format="pascal" PROGRAM Nota_numero_letra ; VAR rNota : Real ; BEGIN Writeln ; Write (' Indica el valor num‚rico de la nota: ') ; ReadLn (rNota) ; Writeln ;

Write (' Nota obtenida: ', rNota:0:2) ;

IF ((0 - rNota) > 0.00000001) XOR ((rNota - 10.0) > 0.00000001) THEN Writeln (' -> Error: la nota debe ser un valor entre 0.0 y 10.0') ELSE IF rNota< 0.0 THEN Writeln (' -> Error: No se puede obtener una nota negativa') ELSE IF rNota < 5.0 THEN Writeln (' -> SUSPENSO') ELSE IF rNota < 7.0 THEN Writeln (' -> APROBADO') ELSE IF rNota < 9.0 THEN Writeln (' -> NOTABLE') ELSE IF rNota < 10.0 THEN Writeln (' -> SOBRESALIENTE') ELSE Writeln (' -> MATRICULA DE HONOR') ;

ReadLn ; END. { Fin de Nota_Numero_Letra.PAS } code