• Lenguaje

    Pascal

  • Descripción

    Una empresa de bienes raíces ofrece casas, bajo las siguientes condiciones:
    - Si los ingresos del comprador son de $2.000.000 o más el anticipo será del 35% del costo de la casa y el resto se distribuirá en pagos mensuales, a pagar en 7 años.
    - Si los ingresos del comprador son menores, el anticipo será del 20% del costo de la casa y el resto se distribuirá en pagos mensuales a pagar en 15 años.
    La empresa quiere contar con un programa que indique cuanto debe pagar un comprador por concepto de anticipo y cuánto por cada pago mensual. El programa solo solicitará por teclado el valor de la casa y el valor de los ingresos mensuales del comprador.

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
program EmpresaDeBienesRaices;
uses crt;

var anticipo, costo_de_la_casa, ingresos, pago_mensual, pagos : real;
begin
    write ('Ingresa el valor de costo de la casa: ');
    readln (costo_de_la_casa);
    write ('Ingresa el valor de ingresos: ');
    readln (ingresos);
    if ingresos>2000000 then
        begin
            anticipo := costo_de_la_casa*0.35;
            pagos := 7*12;
        end
    else
        begin
            anticipo := costo_de_la_casa*0.2;
            pagos := 15*12;
        end;
    pago_mensual := (costo_de_la_casa-anticipo)/pagos;
    writeln ('Valor de anticipo: ', anticipo:0:6);
    writeln ('Valor de pago mensual: ', pago_mensual:0:6);
    writeln ('Valor de pagos: ', pagos:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.