• 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
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.