-
Lenguaje
Pascal
-
Descripción
Bienestar familiar está concediendo una bonificación para 10 afiliados según los siguientes criterios.
- Menores de 2 años, bono de $2,000 pesos por cada mes cumplido.
- Mayores de 2 años hasta 10 años, bono de $15,000 pesos por cada medio año cumplidos.
- Mayores de 10 años hasta 17 años, bono de $5,000 pesos por cada cinco años cumplidos.
Por lo anterior está solicitando un desarrollo de software que permita establecer la bonificacion de cada persona y el total pagado en bonificaciones.
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
29
30
31
32
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
29
30
31
32
program BonificacionPara10Afiliados;
uses crt;
var bono, i, meses_cumplidos, total_pagado : integer;
begin
total_pagado := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de meses cumplidos: ');
readln (meses_cumplidos);
bono := 0;
if meses_cumplidos<24 then
begin
bono := 2000*meses_cumplidos;
end;
if (meses_cumplidos>=24) and (meses_cumplidos<120) then
begin
bono := 15000*(meses_cumplidos-meses_cumplidos mod 6) div 6;
end;
if (meses_cumplidos>=120) and (meses_cumplidos<204) then
begin
bono := 5000*(meses_cumplidos-meses_cumplidos mod 60) div 60;
end;
total_pagado := total_pagado+bono;
writeln ('Valor de bono: ', bono);
writeln;
end;
writeln ('Valor de total pagado: ', total_pagado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bono, i, meses_cumplidos, total_pagado : integer;
begin
total_pagado := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de meses cumplidos: ');
readln (meses_cumplidos);
bono := 0;
if meses_cumplidos<24 then
begin
bono := 2000*meses_cumplidos;
end;
if (meses_cumplidos>=24) and (meses_cumplidos<120) then
begin
bono := 15000*(meses_cumplidos-meses_cumplidos mod 6) div 6;
end;
if (meses_cumplidos>=120) and (meses_cumplidos<204) then
begin
bono := 5000*(meses_cumplidos-meses_cumplidos mod 60) div 60;
end;
total_pagado := total_pagado+bono;
writeln ('Valor de bono: ', bono);
writeln;
end;
writeln ('Valor de total pagado: ', total_pagado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.