-
Lenguaje
Pascal
-
Descripción
Se les dará un bono por antigüedad a los empleados de una tienda. Si tienen un año, se les dará S/. 100; si tienen 2 años, S/. 200, y así sucesivamente hasta los 5 años. Para los que tengan más de 5, el bono será de S/. 1000. El dueño también considera que si trabajan en el área de ventas o en vigilancia se le adiciona otro bono de S/. 250.
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
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
program BonoPorAntiguedadYAdicional;
uses crt;
var area_de_trabajo : integer;
var antiguedad, bono_adicional, bono_por_antiguedad, total_de_bonos : real;
begin
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
writeln ('Selecciona el valor de area de trabajo.');
writeln (' 1.- Facturas');
writeln (' 2.- Inventario');
writeln (' 3.- Mantenimiento');
writeln (' 4.- Recursos Humanos');
writeln (' 5.- Ventas');
writeln (' 6.- Vigilancia');
write (' : ');
repeat
readln (area_de_trabajo);
if (area_de_trabajo<1) or (area_de_trabajo>6) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (area_de_trabajo>=1) and (area_de_trabajo<=6);
if antiguedad<=5 then
begin
bono_por_antiguedad := antiguedad*100;
end
else
begin
bono_por_antiguedad := 1000;
end;
if (area_de_trabajo=6) and (area_de_trabajo=7) then
begin
bono_adicional := 250;
end
else
begin
bono_adicional := 0;
end;
total_de_bonos := bono_por_antiguedad+bono_adicional;
writeln ('Valor de bono adicional: ', bono_adicional:0:6);
writeln ('Valor de bono por antiguedad: ', bono_por_antiguedad:0:6);
writeln ('Valor de total de bonos: ', total_de_bonos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var area_de_trabajo : integer;
var antiguedad, bono_adicional, bono_por_antiguedad, total_de_bonos : real;
begin
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
writeln ('Selecciona el valor de area de trabajo.');
writeln (' 1.- Facturas');
writeln (' 2.- Inventario');
writeln (' 3.- Mantenimiento');
writeln (' 4.- Recursos Humanos');
writeln (' 5.- Ventas');
writeln (' 6.- Vigilancia');
write (' : ');
repeat
readln (area_de_trabajo);
if (area_de_trabajo<1) or (area_de_trabajo>6) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (area_de_trabajo>=1) and (area_de_trabajo<=6);
if antiguedad<=5 then
begin
bono_por_antiguedad := antiguedad*100;
end
else
begin
bono_por_antiguedad := 1000;
end;
if (area_de_trabajo=6) and (area_de_trabajo=7) then
begin
bono_adicional := 250;
end
else
begin
bono_adicional := 0;
end;
total_de_bonos := bono_por_antiguedad+bono_adicional;
writeln ('Valor de bono adicional: ', bono_adicional:0:6);
writeln ('Valor de bono por antiguedad: ', bono_por_antiguedad:0:6);
writeln ('Valor de total de bonos: ', total_de_bonos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.