• Lenguaje

    Pascal

  • Descripción

    La empresa Dysan Ltda desea un planteamiento lógico que permita calcular el sueldo neto de sus 10 empleados, para esto dará a cada empleado dos bonos estos dependerán de la antigüedad que lleve el empleado en la empresa, el valor de cada bono saldrá de acuerdo a la siguiente tabla:
    Antigüedad | Bono 1 | Bono 2
    < 11 | 10% | 100.000
    11 y 25 | 15% | 200.000
    > 25 | 40% | 400.000
    El bono 1 saldrá del porcentaje de la tabla por el salario mínimo.
    El bono 2 saldrá del valor de la tabla por cada año de antigüedad.
    Imprimir bono 1, bono 2 y sueldo neto.

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

var i : integer;
var antiguedad, bono_1, bono_2, salario_minimo, sueldo_neto : real;
begin
    for i:=1 to 10 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de antiguedad: ');
        readln (antiguedad);
        write ('Ingresa el valor de salario minimo: ');
        readln (salario_minimo);
        bono_1 := 0;
        bono_2 := 0;
        if antiguedad<11 then
            begin
                bono_1 := salario_minimo*0.1;
                bono_2 := 100000;
            end;
        if (antiguedad>=11) and (antiguedad<=25) then
            begin
                bono_1 := salario_minimo*0.15;
                bono_2 := 200000;
            end;
        if antiguedad>25 then
            begin
                bono_1 := salario_minimo*0.4;
                bono_2 := 400000;
            end;
        sueldo_neto := salario_minimo+bono_1+bono_2;
        writeln ('Valor de bono 1: ', bono_1:0:6);
        writeln ('Valor de bono 2: ', bono_2:0:6);
        writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
        writeln;
    end;
end.