• Lenguaje

    Pascal

  • Descripción

    Genere 10 notas del 1 al 20. Deberá mostrar la nota mas alta y la mas baja. Las notas se dividen por rangos:
    a. 1-5 muy bajas
    b. 6-10 bajas
    c. 11-15 altas
    d. 16-20 muy altas
    El programa mostrará cuantas pertenecen a cada 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program RangosDeNotas;
uses crt;

var i, nota, nota_mas_alta, nota_mas_baja, randomize : integer;
var rango_a, rango_b, rango_c, rango_d : integer;
begin
    nota_mas_alta := 0;
    nota_mas_baja := 0;
    rango_a := 0;
    rango_b := 0;
    rango_c := 0;
    rango_d := 0;
    for i:=1 to 10 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de randomize: ');
        readln (randomize);
        nota := 1+randomize(20);
        if (i=1) or (nota_mas_alta<nota) then
            begin
                nota_mas_alta := nota;
            end;
        if (i=1) or (nota_mas_baja>nota) then
            begin
                nota_mas_baja := nota;
            end;
        if (nota>=1) and (nota<=5) then
            begin
                rango_a := rango_a+1;
                writeln ('Muy baja');
            end;
        if (nota>=6) and (nota<=10) then
            begin
                rango_b := rango_b+1;
                writeln ('Baja');
            end;
        if (nota>=11) and (nota<=15) then
            begin
                rango_c := rango_c+1;
                writeln ('Alta');
            end;
        if (nota>=16) and (nota<=20) then
            begin
                rango_d := rango_d+1;
                writeln ('Muy alta');
            end;
        writeln ('Valor de nota: ', nota);
        writeln;
    end;
    writeln ('Valor de nota mas alta: ', nota_mas_alta);
    writeln ('Valor de nota mas baja: ', nota_mas_baja);
    writeln ('Valor de rango a: ', rango_a);
    writeln ('Valor de rango b: ', rango_b);
    writeln ('Valor de rango c: ', rango_c);
    writeln ('Valor de rango d: ', rango_d);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.