-
Lenguaje
Pascal
-
Descripción
Determinar la cantidad de dinero que recibirá un trabajador por concepto de las horas extras trabajadas en una empresa, sabiendo que cuando las horas de trabajo exceden de 40, el resto se consideran horas extras y que estas se pagan al doble de una hora normal cuando no exceden de 8; si las horas extras exceden de 8 se pagan las primeras 8 al doble de lo que se pagan las horas normales y el resto al triple.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program PagoAUnTrabajadorPorHorasNormalesYExtras;
uses crt;
var cantidad_de_dinero, horas_de_trabajo, pago_por_hora : real;
begin
write ('Ingresa el valor de horas de trabajo: ');
readln (horas_de_trabajo);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
cantidad_de_dinero := horas_de_trabajo*pago_por_hora;
if horas_de_trabajo>40 then
begin
cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-40)*pago_por_hora;
end;
if horas_de_trabajo>48 then
begin
cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-48)*pago_por_hora;
end;
writeln ('Valor de cantidad de dinero: ', cantidad_de_dinero:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_dinero, horas_de_trabajo, pago_por_hora : real;
begin
write ('Ingresa el valor de horas de trabajo: ');
readln (horas_de_trabajo);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
cantidad_de_dinero := horas_de_trabajo*pago_por_hora;
if horas_de_trabajo>40 then
begin
cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-40)*pago_por_hora;
end;
if horas_de_trabajo>48 then
begin
cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-48)*pago_por_hora;
end;
writeln ('Valor de cantidad de dinero: ', cantidad_de_dinero:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.