-
Lenguaje
Pascal
-
Descripción
Cierta empresa proporciona un bono mensual a sus trabajadores (su sueldo es calculado en base a las horas trabajadas y al costo por hora), el cual puede ser por su antigüedad o bien por el monto de su sueldo (el que sea mayor), de la siguiente forma:
- Cuando la antigüedad es mayor a 2 años pero menor a 5, se otorga 20 % de su sueldo; cuando es de 5 años o más, 30 %. Ahora bien, el bono por concepto de sueldo, si éste es menor a $1000, se da 25 % de éste, cuando éste es mayor a $1000, pero menor o igual a $3500, se otorga 15% de su sueldo, para más de $3500. 10%.
Realice el algoritmo correspondiente para calcular los dos tipos de bono, asignando el mayor, luego de haber calculado el sueldo, considerar que a los trabajadores tienen los siguientes beneficios:
- Si tienen hijos se les entrega un incentivo de 90 soles por hijo.
- Si son casados se les entrega un incentivo del 11%.
- Si tiene menos de 40 años de dad se le brinda un incentivo del 11%, caso contrario solo del 4%.
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
uses crt;
var estado_civil : integer;
var antiguedad, bono_mensual, bono_por_antiguedad, bono_por_concepto_de_sueldo, costo_por_hora : real;
var horas_trabajadas, incentivo, numero_de_hijos, sueldo, total_de_beneficios : real;
begin
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
write ('Ingresa el valor de costo por hora: ');
readln (costo_por_hora);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
writeln ('Selecciona el valor de estado civil.');
writeln (' 1.- Casado');
writeln (' 2.- Soltero');
write (' : ');
repeat
readln (estado_civil);
if (estado_civil<1) or (estado_civil>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (estado_civil>=1) and (estado_civil<=2);
sueldo := horas_trabajadas*costo_por_hora;
bono_por_antiguedad := 0;
if (antiguedad>2) and (antiguedad<5) then
begin
bono_por_antiguedad := sueldo*0.2;
end;
if antiguedad>=5 then
begin
bono_por_antiguedad := sueldo*0.2;
end;
bono_por_concepto_de_sueldo := 0;
if sueldo<=1000 then
begin
bono_por_concepto_de_sueldo := sueldo*0.25;
end;
if (sueldo>1000) and (sueldo<=3500) then
begin
bono_por_concepto_de_sueldo := sueldo*0.15;
end;
if sueldo>3500 then
begin
bono_por_concepto_de_sueldo := sueldo*0.1;
end;
if bono_por_antiguedad>bono_por_concepto_de_sueldo then
begin
bono_mensual := bono_por_antiguedad;
end
else
begin
bono_mensual := bono_por_concepto_de_sueldo;
end;
incentivo := numero_de_hijos*90;
if estado_civil=1 then
begin
incentivo := incentivo+sueldo*0.11;
end;
if antiguedad>40 then
begin
incentivo := incentivo+sueldo*0.11;
end
else
begin
incentivo := incentivo+sueldo*0.04;
end;
total_de_beneficios := bono_mensual+incentivo;
writeln ('Valor de bono mensual: ', bono_mensual:0:6);
writeln ('Valor de bono por antiguedad: ', bono_por_antiguedad:0:6);
writeln ('Valor de bono por concepto de sueldo: ', bono_por_concepto_de_sueldo:0:6);
writeln ('Valor de incentivo: ', incentivo:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln ('Valor de total de beneficios: ', total_de_beneficios:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.