• Lenguaje

    Pascal

  • Descripción

    Un obrero necesita calcular su salario semanal, el cual se obtiene de la siguiente manera: Si trabaja 40 horas se le paga $20 por hora. Si trabaja mas de 40 horas se le paga $20 por cada una de las primeras 40 horas y $25 por cada hora extra.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program SalarioSemanalDeUnObrero2;
uses crt;

var horas_trabajadas, salario_semanal : integer;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    if horas_trabajadas>40 then
        begin
            salario_semanal := 40*20+(horas_trabajadas-40)*25;
        end
    else
        begin
            salario_semanal := horas_trabajadas*20;
        end;
    writeln ('Valor de salario semanal: ', salario_semanal);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.