• 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
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.