-
Lenguaje
Pascal
-
Descripción
Calcular el salario neto de un trabajador. Él está en base a una jornada de 40 horas semanales. Si el trabajador supera las 40 horas por cada hora extra ganara 1.62 veces el precio normal de su hora. Si el trabajador labora menos de 40 horas el precio de la hora se recauda a 0.8 veces del precio por hora.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program SalarioNetoDeUnTrabajador2;
uses crt;
var horas_trabajadas, pago_por_hora, salario_neto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
salario_neto := 0;
if horas_trabajadas=40 then
begin
salario_neto := horas_trabajadas*pago_por_hora;
end;
if horas_trabajadas>40 then
begin
salario_neto := 40.0*pago_por_hora+(horas_trabajadas-40)*pago_por_hora*1.62;
end;
if horas_trabajadas<40 then
begin
salario_neto := horas_trabajadas*pago_por_hora*0.8;
end;
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_trabajadas, pago_por_hora, salario_neto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
salario_neto := 0;
if horas_trabajadas=40 then
begin
salario_neto := horas_trabajadas*pago_por_hora;
end;
if horas_trabajadas>40 then
begin
salario_neto := 40.0*pago_por_hora+(horas_trabajadas-40)*pago_por_hora*1.62;
end;
if horas_trabajadas<40 then
begin
salario_neto := horas_trabajadas*pago_por_hora*0.8;
end;
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.