• Lenguaje

    Pascal

  • Descripción

    Calcular el pago de un trabajador en base a las horas trabajadas, a los años de trabajo en la empresa y a las siguientes condiciones que establece la empresa:
    - Cada hora laborada se le paga a $76.5
    - Tiene prestaciones equivalentes al 5% parte del sueldo base por concepto de ahorro.
    - A todos los trabajadores se les otorga la 10% del sueldo base por concepto de despensa.
    - Además por cada 5 años de trabajo en la empresa se otorga un bono equivalente a $30
    - Se le retiene del sueldo bruto 7.5% por concepto de ISR.

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
program PagoDeUnTrabajador;
uses crt;

var ISR, ahorro, anos_de_trabajo, bono, despensa : real;
var horas_trabajadas, pago, sueldo_base : real;
begin
    write ('Ingresa el valor de anos de trabajo: ');
    readln (anos_de_trabajo);
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    sueldo_base := horas_trabajadas*76.5;
    ahorro := sueldo_base*0.05;
    despensa := sueldo_base*0.1;
    bono := anos_de_trabajo*30;
    ISR := sueldo_base*0.075;
    pago := sueldo_base+ahorro+despensa+bono-ISR;
    writeln ('Valor de ISR: ', ISR:0:6);
    writeln ('Valor de ahorro: ', ahorro:0:6);
    writeln ('Valor de bono: ', bono:0:6);
    writeln ('Valor de despensa: ', despensa:0:6);
    writeln ('Valor de pago: ', pago:0:6);
    writeln ('Valor de sueldo base: ', sueldo_base:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.