-
Lenguaje
Pascal
-
Descripción
Se desea obtener el salario neto de un empleado de una empresa cuyo trabajo se paga por horas de la siguiente manera:
a. Si la cantidad de horas trabajadas es menor o igual a 35, se pagan con la tarifa de hora normal.
b. Si la cantidad es mayor a 35, las horas superiores a 35 se pagan con la tarifa de hora extra.
c. El usuario debe ingresar las horas trabajadas y el precio de la tarifa normal.
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 SalarioNetoPorHoras;
uses crt;
var horas_trabajadas, salario_neto, tarifa_hora_extra, tarifa_normal : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de tarifa hora extra: ');
readln (tarifa_hora_extra);
write ('Ingresa el valor de tarifa normal: ');
readln (tarifa_normal);
if horas_trabajadas>35 then
begin
salario_neto := tarifa_normal*horas_trabajadas;
end
else
begin
salario_neto := tarifa_normal*35+(horas_trabajadas-35)*tarifa_hora_extra;
end;
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_trabajadas, salario_neto, tarifa_hora_extra, tarifa_normal : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de tarifa hora extra: ');
readln (tarifa_hora_extra);
write ('Ingresa el valor de tarifa normal: ');
readln (tarifa_normal);
if horas_trabajadas>35 then
begin
salario_neto := tarifa_normal*horas_trabajadas;
end
else
begin
salario_neto := tarifa_normal*35+(horas_trabajadas-35)*tarifa_hora_extra;
end;
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.