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