• Lenguaje

    Pascal

  • Descripción

    Solicite el apellido del trabajador y su sueldo básico. Con estos datos hallará:
    - AFP (11% del sueldo básico).
    - Essalud (9% del sueldo básico).
    - 5ta categoría (Si el trabajador tiene un sueldo básico mayor o igual a 3000, el impuesto de 5ta categoría será igual a: 5ta categoría = ((14 x Sueldo básico) – 29050) x 15%)/12. Si el trabajador gana menos de 3000 la 5ta Categoría será 0.
    - Sueldo Neto (Sueldo básico – AFP – 5ta Categoría)
    Muestre como resultado el apellido del trabajador y los datos solicitados.

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

var AFP, Essalud, quinta_categoria, sueldo_basico, sueldo_neto : real;
var apellido : string;
begin
    write ('Ingresa el apellido: ');
    readln (apellido);
    write ('Ingresa el valor de sueldo basico: ');
    readln (sueldo_basico);
    AFP := sueldo_basico*0.11;
    Essalud := sueldo_basico*0.09;
    if sueldo_basico>=3000 then
        begin
            quinta_categoria := (14.0*sueldo_basico-29050)*0.15/12;
        end
    else
        begin
            quinta_categoria := 0;
        end;
    sueldo_neto := sueldo_basico-AFP-quinta_categoria;
    writeln ('Apellido: ', apellido);
    writeln ('Valor de AFP: ', AFP:0:6);
    writeln ('Valor de Essalud: ', Essalud:0:6);
    writeln ('Valor de quinta categoria: ', quinta_categoria:0:6);
    writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.