-
Lenguaje
Pascal
-
Descripción
Un trabajador gana $84.50 la hora de trabajo en una jornada de 8 horas.
Si el trabajador hace horas extras gana $22 mas por cada hora extra laborada.
Si el trabajador excede de dos jornadas laborales gana $33 mas por cada hora extra laborada de la tercera jornada.
Realizar un programa que calcule el sueldo a partir de las horas ingresadas por el trabajador.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program SueldoAPartirDeLasHorasIngresadas;
uses crt;
var horas_trabajadas, sueldo : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo := horas_trabajadas*84.5;
if horas_trabajadas>8 then
begin
sueldo := sueldo+(horas_trabajadas-8)*22;
end;
if horas_trabajadas>16 then
begin
sueldo := sueldo+(horas_trabajadas-16)*11;
end;
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_trabajadas, sueldo : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo := horas_trabajadas*84.5;
if horas_trabajadas>8 then
begin
sueldo := sueldo+(horas_trabajadas-8)*22;
end;
if horas_trabajadas>16 then
begin
sueldo := sueldo+(horas_trabajadas-16)*11;
end;
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.