• Lenguaje

    Pascal

  • Descripción

    Un estudiante se encuentra realizando el proceso de pasantías, para lo cual deberá ingresar el número de horas que realiza semanalmente (considere un mes de trabajo).
    De acuerdo al número de horas trabajadas mensualmente se hará acreedor a una bonificación de acuerdo a los siguientes criterios.
    - El número de horas consideradas como base son 40.
    - El sueldo que percibe por las horas base es de $400.
    - Si el número de horas supera las horas base por el exceso de horas trabajadas se le cancelará $15 por cada hora adicional trabajada.
    - Si el número de horas trabajadas se encuentra entre 30 y 39, se les cancelará el sueldo asignado a las horas base menos un 15%.
    - Si el número de horas trabajadas es inferior a 30 por cada hora trabajada se le cancelará $10.
    Mostrar al fina las horas trabajadas al mes y cuál será el valor a recibir.

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

var horas_trabajadas, pago : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    pago := horas_trabajadas*400;
    if horas_trabajadas<30 then
        begin
            pago := horas_trabajadas*10;
        end;
    if (horas_trabajadas>=30) and (horas_trabajadas<40) then
        begin
            pago := pago*0.85;
        end;
    if horas_trabajadas>40 then
        begin
            pago := pago+(horas_trabajadas-40)*15;
        end;
    writeln ('Valor de pago: ', pago:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.