-
Lenguaje
Pascal
-
Descripción
Calcular y mostrar el jornal mensual de acuerdo con las siguientes especificaciones:
a) Los trabajadores tienen dos turnos (nocturno y diurno).
b) La tarifa de las horas diurnas es de $10.
c) La tarifa de las nocturnas es de $50.
d) Ningún trabajador recibe nada por feriados.
e) El trabajador será despedido si sus horas trabajadas son menores que 15. (mensual)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program JornalMensual;
uses crt;
var horas_diurnas, horas_nocturnas, jornal_mensual : integer;
begin
write ('Ingresa el valor de horas diurnas: ');
readln (horas_diurnas);
write ('Ingresa el valor de horas nocturnas: ');
readln (horas_nocturnas);
jornal_mensual := horas_diurnas*10+horas_nocturnas*50;
if horas_diurnas+horas_nocturnas<15 then
begin
writeln ('Despedido');
end;
writeln ('Valor de jornal mensual: ', jornal_mensual);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_diurnas, horas_nocturnas, jornal_mensual : integer;
begin
write ('Ingresa el valor de horas diurnas: ');
readln (horas_diurnas);
write ('Ingresa el valor de horas nocturnas: ');
readln (horas_nocturnas);
jornal_mensual := horas_diurnas*10+horas_nocturnas*50;
if horas_diurnas+horas_nocturnas<15 then
begin
writeln ('Despedido');
end;
writeln ('Valor de jornal mensual: ', jornal_mensual);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.