-
Lenguaje
Pascal
-
Descripción
Se dará un bono a los 20 empleados de la empresa. Éste saldrá de acuerdo al número de hijos que tengan. Si el número de hijos está entre 2 y 3, por cada hijo le daremos 100000. Si tiene más de 3 le daremos 150000 por cada hijo. En caso de tener menos de 2 le daremos 50000 por cada hijo. Determinar el valor del bono dado a cada empleado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program BonoPorNumeroDeHijos;
uses crt;
var i : integer;
var bono, numero_de_hijos : real;
begin
for i:=1 to 20 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
bono := 0;
if (numero_de_hijos>=2) and (numero_de_hijos<=3) then
begin
bono := numero_de_hijos*100000;
end;
if numero_de_hijos>=3 then
begin
bono := numero_de_hijos*150000;
end;
if numero_de_hijos=1 then
begin
bono := 50000;
end;
writeln ('Valor de bono: ', bono:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var bono, numero_de_hijos : real;
begin
for i:=1 to 20 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
bono := 0;
if (numero_de_hijos>=2) and (numero_de_hijos<=3) then
begin
bono := numero_de_hijos*100000;
end;
if numero_de_hijos>=3 then
begin
bono := numero_de_hijos*150000;
end;
if numero_de_hijos=1 then
begin
bono := 50000;
end;
writeln ('Valor de bono: ', bono:0:6);
writeln;
end;
end.