• Lenguaje

    Pascal

  • Descripción

    El sueldo bruto de los empleados de una empresa se calcula multiplicando las horas trabajadas por una tarifa horaria que depende de la categoría del empleado de acuerdo con la siguiente tabla:
    Categoría | Tarifa
    A | 45.0
    B | 42.5
    C | 40.0
    D | 37.5

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
39
40
41
program SueldoBrutoPorCategoria;
uses crt;

var categoria : integer;
var horas_trabajadas, sueldo_bruto : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    sueldo_bruto := 0;
    writeln ('Selecciona el valor de categoria.');
    writeln ('    1.- A');
    writeln ('    2.- B');
    writeln ('    3.- C');
    writeln ('    4.- D');
    write ('    : ');
    repeat
        readln (categoria);
        if (categoria<1) or (categoria>4) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (categoria>=1) and (categoria<=4);
    if categoria=1 then
        begin
            sueldo_bruto := 45.0*horas_trabajadas;
        end;
    if categoria=2 then
        begin
            sueldo_bruto := 42.5*horas_trabajadas;
        end;
    if categoria=3 then
        begin
            sueldo_bruto := 40.0*horas_trabajadas;
        end;
    if categoria=4 then
        begin
            sueldo_bruto := 37.5*horas_trabajadas;
        end;
    writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.