-
Lenguaje
Pascal
-
Descripción
Los empleados de una empresa requieren realizar el cálculo de su salario mediante un sistema en donde un empleado: Si trabaja 8 horas extras después de las 40 horas se le dará el pago doble del costo normal de la hora, pero si las horas extras superan las 8 horas, se le pagará al triple. El sistema solicitara el costo de la hora y el número de horas trabajadas, presentando así el sueldo que deberá recibir el empleado.
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 CalculoDelSalarioDeUnEmpleado;
uses crt;
var costo_normal, horas_trabajadas, salario : real;
begin
write ('Ingresa el valor de costo normal: ');
readln (costo_normal);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
salario := horas_trabajadas*costo_normal;
if horas_trabajadas>40 then
begin
salario := salario+(horas_trabajadas-40)*costo_normal;
end;
if horas_trabajadas>48 then
begin
salario := salario+(horas_trabajadas-48)*costo_normal;
end;
writeln ('Valor de salario: ', salario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_normal, horas_trabajadas, salario : real;
begin
write ('Ingresa el valor de costo normal: ');
readln (costo_normal);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
salario := horas_trabajadas*costo_normal;
if horas_trabajadas>40 then
begin
salario := salario+(horas_trabajadas-40)*costo_normal;
end;
if horas_trabajadas>48 then
begin
salario := salario+(horas_trabajadas-48)*costo_normal;
end;
writeln ('Valor de salario: ', salario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.