• Lenguaje

    Pascal

  • Descripción

    En una empresa de computadoras, los salarios de los empleados se van a aumentar de acuerdo a su contrato actual:

    1) Los contratos que están de $0 a $9,000 el aumento es de un 20%.
    2) Los contratos de $9,001 a $15,000 el aumento es de un 10%.
    3) Los contratos de $15,001 a $20,000 el aumento es de 5%.
    4) Los contratos más de $20,000 el aumento es de 0.

    Permita conocer las cantidad de empleados en cada uno de los rangos y cuento les corresponde de aumento.

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
program AumentoPorRango;
uses crt;

var rango_1, rango_2, rango_3, rango_4 : integer;
var aumento, salario, salario_aumentado : real;
var tecla_repetir : char;
begin
    rango_1 := 0;
    rango_2 := 0;
    rango_3 := 0;
    rango_4 := 0;
    repeat
        clrscr;
        write ('Ingresa el valor de salario: ');
        readln (salario);
        aumento := 0;
        if (salario>=0) and (salario<=9000) then
            begin
                rango_1 := rango_1+1;
                aumento := salario*0.2;
            end;
        if (salario>9000) and (salario<=15000) then
            begin
                rango_2 := rango_2+1;
                aumento := salario*0.1;
            end;
        if (salario>15000) and (salario<=20000) then
            begin
                rango_3 := rango_3+1;
                aumento := salario*0.05;
            end;
        if salario>20000 then
            begin
                rango_4 := rango_4+1;
            end;
        salario_aumentado := salario+aumento;
        writeln ('Valor de aumento: ', aumento:0:6);
        writeln ('Valor de salario aumentado: ', salario_aumentado:0:6);
        writeln;
        write (#168'Deseas repetir el proceso? (S/N): ');
        repeat
            tecla_repetir := readkey;
        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
    writeln ('Valor de rango 1: ', rango_1);
    writeln ('Valor de rango 2: ', rango_2);
    writeln ('Valor de rango 3: ', rango_3);
    writeln ('Valor de rango 4: ', rango_4);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.