-
Lenguaje
Pascal
-
Descripción
El gobierno a implementado como parte de su programa social un subsidio familiar bajo la siguiente reglamentación: Las familias que tienen hasta 2 hijos reciben $70, las que tienen entre 3 y 5 hijos reciben $90 y las que tienen 6 hijos o más reciben $120.00 mensuales. Por cada hijo reciben $10 adicionales. Si la madre de familia fuera viuda, la familia recibe $20 adicionales. Determinar el monto mensual que recibirá una familia de acuerdo a su propia realidad familiar.
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
33
34
35
36
37
38
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
33
34
35
36
37
38
program SubsidioFamiliar;
uses crt;
var madre_es_viuda, numero_de_hijos, subsidio_familiar : integer;
begin
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
writeln ('Selecciona el valor de madre es viuda.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (madre_es_viuda);
if (madre_es_viuda<1) or (madre_es_viuda>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (madre_es_viuda>=1) and (madre_es_viuda<=2);
subsidio_familiar := numero_de_hijos*10;
if (numero_de_hijos=1) or (numero_de_hijos=2) then
begin
subsidio_familiar := subsidio_familiar+70;
end;
if (numero_de_hijos>=3) or (numero_de_hijos<=5) then
begin
subsidio_familiar := subsidio_familiar+90;
end;
if numero_de_hijos>=6 then
begin
subsidio_familiar := subsidio_familiar+120;
end;
if madre_es_viuda=1 then
begin
subsidio_familiar := subsidio_familiar+20;
end;
writeln ('Valor de subsidio familiar: ', subsidio_familiar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var madre_es_viuda, numero_de_hijos, subsidio_familiar : integer;
begin
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
writeln ('Selecciona el valor de madre es viuda.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (madre_es_viuda);
if (madre_es_viuda<1) or (madre_es_viuda>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (madre_es_viuda>=1) and (madre_es_viuda<=2);
subsidio_familiar := numero_de_hijos*10;
if (numero_de_hijos=1) or (numero_de_hijos=2) then
begin
subsidio_familiar := subsidio_familiar+70;
end;
if (numero_de_hijos>=3) or (numero_de_hijos<=5) then
begin
subsidio_familiar := subsidio_familiar+90;
end;
if numero_de_hijos>=6 then
begin
subsidio_familiar := subsidio_familiar+120;
end;
if madre_es_viuda=1 then
begin
subsidio_familiar := subsidio_familiar+20;
end;
writeln ('Valor de subsidio familiar: ', subsidio_familiar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.