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