-
Lenguaje
Pascal
-
Descripción
Calcule el sueldo final de un empleado que se le paga S/.30.00 por cada hora trabajada en el mes; así mismo, todos los empleados reciben un pago de gratificación de acuerdo a los años de servicios que tiene el empleado, como se muestra en el siguiente cuadro:
Años de Servicios | % de Gratificación
0 a 5 | 60%
6 a 10 | 80%
11 a más | 100%
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
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
program GratificacionPorAnosDeServicio;
uses crt;
var anos_de_servicio, gratificacion, horas_trabajadas, sueldo_bruto, sueldo_final : real;
begin
write ('Ingresa el valor de anos de servicio: ');
readln (anos_de_servicio);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
gratificacion := 0;
sueldo_bruto := horas_trabajadas*30;
if anos_de_servicio<6 then
begin
gratificacion := sueldo_bruto*0.6;
end;
if (anos_de_servicio>=6) and (anos_de_servicio<11) then
begin
gratificacion := sueldo_bruto*0.8;
end;
if anos_de_servicio>=11 then
begin
gratificacion := sueldo_bruto;
end;
sueldo_final := sueldo_bruto+gratificacion;
writeln ('Valor de gratificacion: ', gratificacion:0:6);
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var anos_de_servicio, gratificacion, horas_trabajadas, sueldo_bruto, sueldo_final : real;
begin
write ('Ingresa el valor de anos de servicio: ');
readln (anos_de_servicio);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
gratificacion := 0;
sueldo_bruto := horas_trabajadas*30;
if anos_de_servicio<6 then
begin
gratificacion := sueldo_bruto*0.6;
end;
if (anos_de_servicio>=6) and (anos_de_servicio<11) then
begin
gratificacion := sueldo_bruto*0.8;
end;
if anos_de_servicio>=11 then
begin
gratificacion := sueldo_bruto;
end;
sueldo_final := sueldo_bruto+gratificacion;
writeln ('Valor de gratificacion: ', gratificacion:0:6);
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.