• Lenguaje

    Pascal

  • Descripción

    Una fábrica de zapatos paga semanalmente a sus empleados dependiendo de las horas trabajadas, y lo ha seleccionado a ud. para que realice un programa y poder realizar los cálculos de forma automatizada. El programa debe leer la cantidad de horas trabajadas por un empleado y multiplicarlo por el precio de la hora que es de 5000 pesos cada hora. Al total a pagar se le debe restar el 6% (0.06) por concepto de Salud y el 8% (0.08) por pensión, además se debe sumar el subsidio de transporte igual a 20000 pesos. Al final se le debe mostrar al usuario el Neto a pagar.
    Ejemplo
    El empleado trabaja 40 horas en una semana:
    40 horas X 5000 = 200000
    -12000 ( 6% Salud)
    -16000 (8% Pensión)
    +20000 (sub. Transporte)
    ---------------
    Neto a Pagar = 192000 Pesos

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 PagaSemanalDeFabricaDeZapatos;
uses crt;

var concepto_de_pension, concepto_de_salud, horas trabajadas, neto_a_pagar, precio_de_la_hora : real;
var subsidio_de_transporte, total_a_pagar : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas trabajadas);
    precio_de_la_hora := 5000;
    subsidio_de_transporte := 20000;
    total_a_pagar := horas trabajadas*precio_de_la_hora;
    concepto_de_salud := total_a_pagar*0.06;
    concepto_de_pension := total_a_pagar*0.08;
    neto_a_pagar := total_a_pagar-concepto_de_salud-concepto_de_pension+subsidio_de_transporte;
    writeln ('Valor de concepto de pension: ', concepto_de_pension:0:6);
    writeln ('Valor de concepto de salud: ', concepto_de_salud:0:6);
    writeln ('Valor de neto a pagar: ', neto_a_pagar:0:6);
    writeln ('Valor de precio de la hora: ', precio_de_la_hora:0:6);
    writeln ('Valor de subsidio de transporte: ', subsidio_de_transporte:0:6);
    writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.