-
Lenguaje
Pascal
-
Descripción
Calcular el sueldo de un operario. Para lo cual se debe leer sus horas de trabajo normal, sus horas extras en la semana y el pago por hora. Teniendo en cuenta que por cada hora extra el pago es 50 % más que el pago normal por hora. Obtener el pago semanal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program SueldoSemanalDeUnOperario;
uses crt;
var horas_de_trabajo_normal, horas_extras_en_la_semana, pago_por_hora, pago_semanal : real;
begin
write ('Ingresa el valor de horas de trabajo normal: ');
readln (horas_de_trabajo_normal);
write ('Ingresa el valor de horas extras en la semana: ');
readln (horas_extras_en_la_semana);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
pago_semanal := horas_de_trabajo_normal*pago_por_hora+horas_extras_en_la_semana*pago_por_hora*1.5;
writeln ('Valor de pago semanal: ', pago_semanal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_de_trabajo_normal, horas_extras_en_la_semana, pago_por_hora, pago_semanal : real;
begin
write ('Ingresa el valor de horas de trabajo normal: ');
readln (horas_de_trabajo_normal);
write ('Ingresa el valor de horas extras en la semana: ');
readln (horas_extras_en_la_semana);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
pago_semanal := horas_de_trabajo_normal*pago_por_hora+horas_extras_en_la_semana*pago_por_hora*1.5;
writeln ('Valor de pago semanal: ', pago_semanal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.