-
Lenguaje
Pascal
-
Descripción
Calcular el pago de un trabajador en base a las horas trabajadas, a los años de trabajo en la empresa y a las siguientes condiciones que establece la empresa:
- Cada hora laborada se le paga a $76.5
- Tiene prestaciones equivalentes al 5% parte del sueldo base por concepto de ahorro.
- A todos los trabajadores se les otorga la 10% del sueldo base por concepto de despensa.
- Además por cada 5 años de trabajo en la empresa se otorga un bono equivalente a $30
- Se le retiene del sueldo bruto 7.5% por concepto de ISR.
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
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
program PagoDeUnTrabajador;
uses crt;
var ISR, ahorro, anos_de_trabajo, bono, despensa : real;
var horas_trabajadas, pago, sueldo_base : real;
begin
write ('Ingresa el valor de anos de trabajo: ');
readln (anos_de_trabajo);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo_base := horas_trabajadas*76.5;
ahorro := sueldo_base*0.05;
despensa := sueldo_base*0.1;
bono := anos_de_trabajo*30;
ISR := sueldo_base*0.075;
pago := sueldo_base+ahorro+despensa+bono-ISR;
writeln ('Valor de ISR: ', ISR:0:6);
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de despensa: ', despensa:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de sueldo base: ', sueldo_base:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ISR, ahorro, anos_de_trabajo, bono, despensa : real;
var horas_trabajadas, pago, sueldo_base : real;
begin
write ('Ingresa el valor de anos de trabajo: ');
readln (anos_de_trabajo);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo_base := horas_trabajadas*76.5;
ahorro := sueldo_base*0.05;
despensa := sueldo_base*0.1;
bono := anos_de_trabajo*30;
ISR := sueldo_base*0.075;
pago := sueldo_base+ahorro+despensa+bono-ISR;
writeln ('Valor de ISR: ', ISR:0:6);
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln ('Valor de bono: ', bono:0:6);
writeln ('Valor de despensa: ', despensa:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de sueldo base: ', sueldo_base:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.