-
Lenguaje
Pascal
-
Descripción
Una empresa paga a sus empleados del sueldo base y una bonificación especial de 80 soles por cada hijo realice un algoritmo que 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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program BonificacionPorCadaHijo;
uses crt;
var bonificacion, numero_de_hijos, sueldo_base, total_a_pagar : integer;
begin
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo base: ');
readln (sueldo_base);
bonificacion := numero_de_hijos*80;
total_a_pagar := sueldo_base+bonificacion;
writeln ('Valor de bonificacion: ', bonificacion);
writeln ('Valor de total a pagar: ', total_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bonificacion, numero_de_hijos, sueldo_base, total_a_pagar : integer;
begin
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo base: ');
readln (sueldo_base);
bonificacion := numero_de_hijos*80;
total_a_pagar := sueldo_base+bonificacion;
writeln ('Valor de bonificacion: ', bonificacion);
writeln ('Valor de total a pagar: ', total_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.