-
Lenguaje
Pascal
-
Descripción
Un empleado trabaja 40 horas semanales en una empresa y recibe un salario de 360.000 pesos semanales. Si excede las 40 horas la empresa debe pagar un recargo del 30% por hora extra trabajada. Dadas las horas semanales trabajadas de un empleado, determinar el salario a pagar.
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 SalarioPorHorasSemanales;
uses crt;
var horas_semanales_trabajadas, pago_por_hora, salario_a_pagar, salario_semanal : real;
begin
write ('Ingresa el valor de horas semanales trabajadas: ');
readln (horas_semanales_trabajadas);
salario_semanal := 360000;
pago_por_hora := salario_semanal/40;
salario_a_pagar := salario_semanal;
if horas_semanales_trabajadas>40 then
begin
salario_a_pagar := salario_a_pagar+pago_por_hora*(horas_semanales_trabajadas-40)*0.3;
end;
writeln ('Valor de pago por hora: ', pago_por_hora:0:6);
writeln ('Valor de salario a pagar: ', salario_a_pagar:0:6);
writeln ('Valor de salario semanal: ', salario_semanal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_semanales_trabajadas, pago_por_hora, salario_a_pagar, salario_semanal : real;
begin
write ('Ingresa el valor de horas semanales trabajadas: ');
readln (horas_semanales_trabajadas);
salario_semanal := 360000;
pago_por_hora := salario_semanal/40;
salario_a_pagar := salario_semanal;
if horas_semanales_trabajadas>40 then
begin
salario_a_pagar := salario_a_pagar+pago_por_hora*(horas_semanales_trabajadas-40)*0.3;
end;
writeln ('Valor de pago por hora: ', pago_por_hora:0:6);
writeln ('Valor de salario a pagar: ', salario_a_pagar:0:6);
writeln ('Valor de salario semanal: ', salario_semanal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.