• 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
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.