Sueldo de un empleado en lenguaje Pascal

Lenguaje

Pascal
Descripción

En una farmacia, se desea calcular el sueldo de un empleado, el mismo gana un sueldo base en función de sus horas trabajadas, se le paga un bono adicional de $35,000 por cada hijo y se le descuenta el 3% de su sueldo base por salud. Calcular sueldo final que recibe.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program SueldoDeUnEmpleado;

uses crt;

var bono_adicional, horas_trabajadas, numero_de_hijos, pago_por_hora, salud : real;

var sueldo_base, sueldo_final : real;

begin

    write ('Ingresa el valor de horas trabajadas: ');

    readln (horas_trabajadas);

    write ('Ingresa el valor de numero de hijos: ');

    readln (numero_de_hijos);

    write ('Ingresa el valor de pago por hora: ');

    readln (pago_por_hora);

    sueldo_base := pago_por_hora*horas_trabajadas;

    bono_adicional := 35000*numero_de_hijos;

    salud := sueldo_base*0.03;

    sueldo_final := sueldo_base+bono_adicional-salud;

    writeln ('Valor de bono adicional: ', bono_adicional:0:6);

    writeln ('Valor de salud: ', salud:0:6);

    writeln ('Valor de sueldo base: ', sueldo_base:0:6);

    writeln ('Valor de sueldo final: ', sueldo_final:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.