pascal

Escribir un programa en Pascal que dada una calificación en valor alfabético (A,B,C,D ó E) indique su equivalente en valor numérico (4,5,6,7 u 8).

PROGRAM EJER38;
USES CRT;VAR valor:CHAR;
BEGIN
ClrScr;

WRITE ('Escriba una calificacion entre a y e: ');
READLN (valor);
WRITELN ('');

CASE UPCASE(valor) OF
'A':WRITE ('El valor correspondiente es: 4');
'B': WRITE ('El valor correspondiente es: 5');
'C': WRITE ('El valor correspondiente es: 6');
'D': WRITE ('El valorcorrespondiente es: 7');
'E': WRITE ('El valor correspondiente es: 8')
ELSE
WRITE ('La calificacion no existe');
END;
END.


PROGRAM EJER38;
USES CRT;
VARcal:CHAR;
BEGIN
ClrScr;

WRITE('Introduzca una calificacion (A-E):');
READLN(cal);

CASE cal OF
'A': WriteLn('Calificacion numerica --> 4');
'B':WriteLn('Calificacion numerica --> 5');
'C': WriteLn('Calificacion numerica --> 6');
'D': WriteLn('Calificacion numerica --> 7');
'E': WriteLn('Calificacion numerica -->8');
ELSE
WriteLn('Calificacion incorrecta');
END;
END.


☺Escribir un programa en Pascal que evalúe la siguiente expresión:

(a+7*c)/(b+2-a)+2*b a = 3,b = 6,c = 4PROGRAM EJER08;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
a:=3;
b:=6;
c:=4;

resultado:=(a+7*c)/(b+2-a)+2*b;

ClrScr;WRITE ('RESULTADO:'); WRITE (resultado:5);
END.

PROGRAM EJER8B;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;

BEGIN
{Este programacalcula una expresion algebraica}

ClrScr;

WRITELN ('Este programa sirve para calcular la siguiente expresion:');
WRITELN ('(a+7*c)/(b+2-a)+2*b');
WRITELN (' ');...