-
Lenguaje
Pascal
-
Descripción
Calcule el sueldo bruto, el descuento por ESSALUD, el descuento por AFP y el sueldo neto del empleado de una empresa de acuerdo a los siguientes criterios:
- El sueldo bruto se calcula multiplicando el número de horas trabajadas por una tarifa horaria.
- El descuento por ESSALUD es igual al 9% del sueldo bruto.
- El descuento por AFP es igual al 11.5% del sueldo bruto.
- El sueldo neto es la diferencia entre el sueldo bruto y el descuento total.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program DescuentoPorEssaludYAfp;
uses crt;
var AFP, ESSALUD, descuento_total, horas_trabajadas, sueldo_bruto : real;
var sueldo_neto, tarifa_horaria : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de tarifa horaria: ');
readln (tarifa_horaria);
sueldo_bruto := horas_trabajadas*tarifa_horaria;
ESSALUD := sueldo_bruto*0.09;
AFP := sueldo_bruto*0.115;
descuento_total := ESSALUD+AFP;
sueldo_neto := sueldo_bruto-descuento_total;
writeln ('Valor de AFP: ', AFP:0:6);
writeln ('Valor de ESSALUD: ', ESSALUD:0:6);
writeln ('Valor de descuento total: ', descuento_total:0:6);
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var AFP, ESSALUD, descuento_total, horas_trabajadas, sueldo_bruto : real;
var sueldo_neto, tarifa_horaria : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de tarifa horaria: ');
readln (tarifa_horaria);
sueldo_bruto := horas_trabajadas*tarifa_horaria;
ESSALUD := sueldo_bruto*0.09;
AFP := sueldo_bruto*0.115;
descuento_total := ESSALUD+AFP;
sueldo_neto := sueldo_bruto-descuento_total;
writeln ('Valor de AFP: ', AFP:0:6);
writeln ('Valor de ESSALUD: ', ESSALUD:0:6);
writeln ('Valor de descuento total: ', descuento_total:0:6);
writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.