• Lenguaje

    Pascal

  • Descripción

    Calcule el sueldo bruto, el descuento por ESSALUD, el descuento por AFP y el sueldo neto del empleado de una empresa de acuerdo a los siguientes criterios:
    - El sueldo bruto se calcula multiplicando el número de horas trabajadas por una tarifa horaria.
    - El descuento por ESSALUD es igual al 9% del sueldo bruto.
    - El descuento por AFP es igual al 11.5% del sueldo bruto.
    - El sueldo neto es la diferencia entre el sueldo bruto y el descuento total.

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

var AFP, ESSALUD, descuento_total, horas_trabajadas, sueldo_bruto : real;
var sueldo_neto, tarifa_horaria : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    write ('Ingresa el valor de tarifa horaria: ');
    readln (tarifa_horaria);
    sueldo_bruto := horas_trabajadas*tarifa_horaria;
    ESSALUD := sueldo_bruto*0.09;
    AFP := sueldo_bruto*0.115;
    descuento_total := ESSALUD+AFP;
    sueldo_neto := sueldo_bruto-descuento_total;
    writeln ('Valor de AFP: ', AFP:0:6);
    writeln ('Valor de ESSALUD: ', ESSALUD:0:6);
    writeln ('Valor de descuento total: ', descuento_total:0:6);
    writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
    writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.