Empresa de construcción en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una empresa de construcción ofrece casas bajo las siguientes condiciones:
Si los ingresos del comprador son menores o iguales a $1,000,000, la cuota inicial será del 15% del costo de la casa y el resto se distribuirá uniformemente en pagos mensuales a 10 años.
Si los ingresos son mayores a $1,000,000, la cuota inicial será del 30% del costo de la casa, y el resto se distribuirá uniformemente en cuotas mensuales a 7 años.

Dado el valor de la casa y el ingreso mensual, ¿Cuánto se debe pagar de cuota inicial y de cuota mensual? Muestre el nombre, ingreso, valor de la casa, cuota inicial y cuota mensual. Debe permitir el proceso con varios posibles compradores.

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
39
40
41
42

program EmpresaDeConstruccion;

uses crt;

var casa, costo_de_la_casa, cuota_inicial, cuota_mensual, ingreso : real;

var ingreso_mensual, pagos : real;

var nombre : string;

var tecla_repetir : char;

begin

    repeat

        clrscr;

        write ('Ingresa el nombre: ');

        readln (nombre);

        write ('Ingresa el valor de costo de la casa: ');

        readln (costo_de_la_casa);

        write ('Ingresa el valor de ingreso mensual: ');

        readln (ingreso_mensual);

        ingreso := ingreso_mensual;

        casa := costo_de_la_casa;

        if ingreso_mensual<=1000000 then

            begin

                cuota_inicial := costo_de_la_casa*0.15;

                pagos := 10*12;

            end

        else

            begin

                cuota_inicial := costo_de_la_casa*0.3;

                pagos := 7*12;

            end;

        cuota_mensual := (costo_de_la_casa-cuota_inicial)/pagos;

        writeln ('Nombre: ', nombre);

        writeln ('Valor de casa: ', casa:0:6);

        writeln ('Valor de cuota inicial: ', cuota_inicial:0:6);

        writeln ('Valor de cuota mensual: ', cuota_mensual:0:6);

        writeln ('Valor de ingreso: ', ingreso:0:6);

        writeln ('Valor de pagos: ', pagos:0:6);

        writeln;

        write (#168'Deseas repetir el proceso? (S/N): ');

        repeat

            tecla_repetir := readkey;

        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');

    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');

end.