• Lenguaje

    Pascal

  • Descripción

    Calcula el pago a un trabajador teniendo en cuenta su sueldo y las horas extra trabajadas. Para el pago de horas se toma en cuenta la categoría del trabajador:
    Categoría | Precio (hora extra)
    1 | $30
    2 | $38
    3 | $50
    4 | $70
    Cada trabajador puede tener como máximo 30 horas extras, si tienen más, sólo se les pagaran 30. A los trabajadores con categoria mayor a 4 no debemos pagarles horas extras.

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

var categoria, horas_extra_trabajadas, pago, pago_por_hora_extra, sueldo : integer;
begin
    write ('Ingresa el valor de categoria: ');
    readln (categoria);
    write ('Ingresa el valor de horas extra trabajadas: ');
    readln (horas_extra_trabajadas);
    write ('Ingresa el valor de sueldo: ');
    readln (sueldo);
    pago_por_hora_extra := 0;
    if categoria=1 then
        begin
            pago_por_hora_extra := 30;
        end;
    if categoria=2 then
        begin
            pago_por_hora_extra := 38;
        end;
    if categoria=3 then
        begin
            pago_por_hora_extra := 50;
        end;
    if horas_extra_trabajadas>30 then
        begin
            pago := sueldo+pago_por_hora_extra*30;
        end
    else
        begin
            pago := sueldo+pago_por_hora_extra*horas_extra_trabajadas;
        end;
    writeln ('Valor de pago: ', pago);
    writeln ('Valor de pago por hora extra: ', pago_por_hora_extra);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.