-
Lenguaje
Pascal
-
Descripción
Un operario de retroexcavadoras le pagan por horas trabajadas ($70,000 la hora), si al final de la semana el cumple más de 40 horas recibirá un incentivo del 15% sobre el valor pagado, caso contrario, no recibe remuneración extra. Realizar el cálculo del valor a pagar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program OperarioDeRetroexcavadoras;
uses crt;
var a_pagar, horas_trabajadas, incentivo, pagado : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
pagado := horas_trabajadas*70000;
if horas_trabajadas>40 then
begin
incentivo := pagado*0.15;
end
else
begin
incentivo := 0;
end;
a_pagar := pagado+incentivo;
writeln ('Valor de a pagar: ', a_pagar:0:6);
writeln ('Valor de incentivo: ', incentivo:0:6);
writeln ('Valor de pagado: ', pagado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var a_pagar, horas_trabajadas, incentivo, pagado : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
pagado := horas_trabajadas*70000;
if horas_trabajadas>40 then
begin
incentivo := pagado*0.15;
end
else
begin
incentivo := 0;
end;
a_pagar := pagado+incentivo;
writeln ('Valor de a pagar: ', a_pagar:0:6);
writeln ('Valor de incentivo: ', incentivo:0:6);
writeln ('Valor de pagado: ', pagado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.