• Lenguaje

    Pascal

  • Descripción

    Determinar el salario neto de un empleado de una compañía con base en el salario básico, bonificación, descuento y categoría. Considere la siguiente tabla:
    Categoría | Bonificación | Descuento
    1 | 15% | 4%
    2 | 13% | 3%
    3 | 12% | 2%
    4 | 9.5% | 0%

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
31
32
33
34
35
36
37
38
program SalarioPorBonificacionDescuentoYCategoria;
uses crt;

var bonificacion, categoria, descuento, salario_basico, salario_neto : real;
begin
    write ('Ingresa el valor de categoria: ');
    readln (categoria);
    write ('Ingresa el valor de salario basico: ');
    readln (salario_basico);
    bonificacion := 0;
    descuento := 0;
    if categoria=1 then
        begin
            bonificacion := salario_basico*0.15;
            descuento := salario_basico*0.04;
        end;
    if categoria=2 then
        begin
            bonificacion := salario_basico*0.13;
            descuento := salario_basico*0.03;
        end;
    if categoria=3 then
        begin
            bonificacion := salario_basico*0.12;
            descuento := salario_basico*0.02;
        end;
    if categoria=4 then
        begin
            bonificacion := salario_basico*0.095;
        end;
    salario_neto := salario_basico+bonificacion-descuento;
    writeln ('Valor de bonificacion: ', bonificacion:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de salario neto: ', salario_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.