• Lenguaje

    Pascal

  • Descripción

    Se requiere calcular el sueldo de un trabajador de acuerdo a los siguientes condiciones:
    - Valor de la hora $100,000
    - La cantidad de horas laborales las debe ingresarlas el auxiliar contable de la empresa.
    - Hay que descontar la salud y pensión que es el 12% del subtotal del sueldo.
    - El trabajador tiene derecho a un subsidio de transporte que es $117,172, si no excede los dos salarios mínimos. (valor del salario mínimo $1,160,000)
    - Mostrar el total devengado del 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
28
29
program TotalDevengadoDeUnTrabajador;
uses crt;

var horas_laborales, salario_minimo, salud_y_pension, subsidio_de_transporte, subtotal : real;
var total_devengado : real;
begin
    write ('Ingresa el valor de horas laborales: ');
    readln (horas_laborales);
    salario_minimo := 1160000;
    subtotal := 100000.0*horas_laborales;
    salud_y_pension := subtotal*0.12;
    if subtotal<=salario_minimo*2 then
        begin
            subsidio_de_transporte := 117172;
        end
    else
        begin
            subsidio_de_transporte := 0;
        end;
    total_devengado := subtotal-salud_y_pension+subsidio_de_transporte;
    writeln ('Valor de salario minimo: ', salario_minimo:0:6);
    writeln ('Valor de salud y pension: ', salud_y_pension:0:6);
    writeln ('Valor de subsidio de transporte: ', subsidio_de_transporte:0:6);
    writeln ('Valor de subtotal: ', subtotal:0:6);
    writeln ('Valor de total devengado: ', total_devengado:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.