-
Lenguaje
Pascal
-
Descripción
Calcular el sueldo de un obrero cuyo trabajo se paga por horas tomando en cuenta los siguiente las primeras 35 horas a 8 dolares y las horas extras se pagan 1.50 mas que las normales.
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 SueldoDeUnObrero;
uses crt;
var horas_trabajadas, sueldo : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo := 8.0*horas_trabajadas;
if horas_trabajadas>35 then
begin
sueldo := sueldo+1.5*(horas_trabajadas-35);
end;
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_trabajadas, sueldo : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
sueldo := 8.0*horas_trabajadas;
if horas_trabajadas>35 then
begin
sueldo := sueldo+1.5*(horas_trabajadas-35);
end;
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.