-
Lenguaje
Pascal
-
Descripción
Una empresa paga a sus empleados además del sueldo base una bonificación especial de $120,000 por cada hijo. Además, entrega un bono de alimentación de $112,000 quincenal. Determine el monto de la bonificación y el monto total a pagar al trabajador.
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
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
program BonificacionYPagoAUnTrabajador;
uses crt;
var i, n : integer;
var bonificacion_especial, bono_alimentacion, monto_de_bonificacion, monto_total, numero_de_hijos : real;
var sueldo_base : real;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo base: ');
readln (sueldo_base);
bonificacion_especial := 120000*numero_de_hijos;
bono_alimentacion := 112000;
monto_de_bonificacion := bonificacion_especial+bono_alimentacion;
monto_total := sueldo_base+monto_de_bonificacion;
writeln ('Valor de bonificacion especial: ', bonificacion_especial:0:6);
writeln ('Valor de bono alimentacion: ', bono_alimentacion:0:6);
writeln ('Valor de monto de bonificacion: ', monto_de_bonificacion:0:6);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
end;
end.
uses crt;
var i, n : integer;
var bonificacion_especial, bono_alimentacion, monto_de_bonificacion, monto_total, numero_de_hijos : real;
var sueldo_base : real;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo base: ');
readln (sueldo_base);
bonificacion_especial := 120000*numero_de_hijos;
bono_alimentacion := 112000;
monto_de_bonificacion := bonificacion_especial+bono_alimentacion;
monto_total := sueldo_base+monto_de_bonificacion;
writeln ('Valor de bonificacion especial: ', bonificacion_especial:0:6);
writeln ('Valor de bono alimentacion: ', bono_alimentacion:0:6);
writeln ('Valor de monto de bonificacion: ', monto_de_bonificacion:0:6);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
end;
end.