-
Lenguaje
Pascal
-
Descripción
Escribir un algoritmo donde se ingrese 3 evaluaciones de un alumno y obtenga además de su promedio un mensaje adicional que indique el nivel del estudiante de acuerdo a la tabla de la figura adjunta.
Promedio Final | Nivel
0-10 | Deficiente
10-15 | Regular
15-18 | Bueno
18-20 | Excelente
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
32
33
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
32
33
program PromedioDeTresEvaluaciones;
uses crt;
var evaluacion_1, evaluacion_2, evaluacion_3, promedio_final : real;
begin
write ('Ingresa el valor de evaluacion 1: ');
readln (evaluacion_1);
write ('Ingresa el valor de evaluacion 2: ');
readln (evaluacion_2);
write ('Ingresa el valor de evaluacion 3: ');
readln (evaluacion_3);
promedio_final := (evaluacion_1+evaluacion_2+evaluacion_3)/3;
if (promedio_final>=0) and (promedio_final<10) then
begin
writeln ('Deficiente');
end;
if (promedio_final>=10) and (promedio_final<15) then
begin
writeln ('Regular');
end;
if (promedio_final>=15) and (promedio_final<18) then
begin
writeln ('Bueno');
end;
if (promedio_final>=18) and (promedio_final<20) then
begin
writeln ('Excelente');
end;
writeln ('Valor de promedio final: ', promedio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var evaluacion_1, evaluacion_2, evaluacion_3, promedio_final : real;
begin
write ('Ingresa el valor de evaluacion 1: ');
readln (evaluacion_1);
write ('Ingresa el valor de evaluacion 2: ');
readln (evaluacion_2);
write ('Ingresa el valor de evaluacion 3: ');
readln (evaluacion_3);
promedio_final := (evaluacion_1+evaluacion_2+evaluacion_3)/3;
if (promedio_final>=0) and (promedio_final<10) then
begin
writeln ('Deficiente');
end;
if (promedio_final>=10) and (promedio_final<15) then
begin
writeln ('Regular');
end;
if (promedio_final>=15) and (promedio_final<18) then
begin
writeln ('Bueno');
end;
if (promedio_final>=18) and (promedio_final<20) then
begin
writeln ('Excelente');
end;
writeln ('Valor de promedio final: ', promedio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.