-
Lenguaje
Pascal
-
Descripción
Permita convertir calificaciones numéricas, según la siguiente tabla:
A: 19 y 20
B: 16 y 18
C: 13, 14 y 15
D: 10, 11 y 12
E: 1 hasta el 9
Se asume que la nota está comprendida entre 1 y 20.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program CalificacionesNumericas;
uses crt;
var calificacion : integer;
begin
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if (calificacion=19) or (calificacion=20) then
begin
writeln ('A');
end;
if (calificacion=16) or (calificacion=18) then
begin
writeln ('B');
end;
if (calificacion>=13) and (calificacion<=15) then
begin
writeln ('C');
end;
if (calificacion>=10) and (calificacion<=12) then
begin
writeln ('D');
end;
if (calificacion>=1) and (calificacion<=9) then
begin
writeln ('E');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var calificacion : integer;
begin
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if (calificacion=19) or (calificacion=20) then
begin
writeln ('A');
end;
if (calificacion=16) or (calificacion=18) then
begin
writeln ('B');
end;
if (calificacion>=13) and (calificacion<=15) then
begin
writeln ('C');
end;
if (calificacion>=10) and (calificacion<=12) then
begin
writeln ('D');
end;
if (calificacion>=1) and (calificacion<=9) then
begin
writeln ('E');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.