• Lenguaje

    Pascal

  • Descripción

    Ingresar un valor y dar su clasificación.
    - 1 a 2.99 es Bajo.
    - 3 a 4.99 es Regular.
    - 5 a 6.99 es Medio.
    - 7 a 8.99 es Bueno.
    - 9 a 10 es Excelente.
    Controle en el caso de valores negativos, cero o mayores a 10 que esta fuera de rango.

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
34
35
program ClasificacionDeUnValor;
uses crt;

var un_numero : real;
begin
    write ('Ingresa el valor de un numero: ');
    readln (un_numero);
    if (un_numero<1) or (un_numero>10) then
        begin
            writeln ('Fuera de rango');
        end;
    if (un_numero>=1) and (un_numero<3) then
        begin
            writeln ('Bajo');
        end;
    if (un_numero>=3) and (un_numero<5) then
        begin
            writeln ('Regular');
        end;
    if (un_numero>=5) and (un_numero<7) then
        begin
            writeln ('Medio');
        end;
    if (un_numero>=7) and (un_numero<9) then
        begin
            writeln ('Bueno');
        end;
    if (un_numero>=9) and (un_numero<=10) then
        begin
            writeln ('Excelente');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.