-
Lenguaje
Pascal
-
Descripción
En una empresa se requiere calcular el salario semanal de cada uno de los n obreros que laboraron en ella. El salario se obtiene de la siguiente forma:
- Si el obrero trabaja 40 horas o menos se la paga $20 por hora.
- Si trabaja más de 40 horas se le paga $20 por cada una de las primeras 40 horas y $25 por cada hora extra.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program SalarioDeNObreros;
uses crt;
var horas_trabajadas, i, n, salario_semanal : integer;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
salario_semanal := horas_trabajadas*20;
if horas_trabajadas>40 then
begin
salario_semanal := salario_semanal+(horas_trabajadas-40)*5;
end;
writeln ('Valor de salario semanal: ', salario_semanal);
writeln;
end;
end.
uses crt;
var horas_trabajadas, i, n, salario_semanal : integer;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
salario_semanal := horas_trabajadas*20;
if horas_trabajadas>40 then
begin
salario_semanal := salario_semanal+(horas_trabajadas-40)*5;
end;
writeln ('Valor de salario semanal: ', salario_semanal);
writeln;
end;
end.