Empresa de construcción en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
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

Proceso EmpresaDeConstruccion

    Repetir

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

        Escribir Sin Saltar "Ingresa el valor de costo de la casa:";

        Leer costo_de_la_casa;

        Escribir Sin Saltar "Ingresa el valor de ingreso mensual:";

        Leer ingreso_mensual;

        ingreso <- ingreso_mensual;

        casa <- costo_de_la_casa;

        Si ingreso_mensual<=1000000 Entonces

            cuota_inicial <- costo_de_la_casa*0.15;

            pagos <- 10*12;

        SiNo

            cuota_inicial <- costo_de_la_casa*0.3;

            pagos <- 7*12;

        FinSi

        cuota_mensual <- (costo_de_la_casa-cuota_inicial)/pagos;

        Escribir "Nombre: ", nombre;

        Escribir "Valor de casa: ", casa;

        Escribir "Valor de cuota inicial: ", cuota_inicial;

        Escribir "Valor de cuota mensual: ", cuota_mensual;

        Escribir "Valor de ingreso: ", ingreso;

        Escribir "Valor de pagos: ", pagos;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

FinProceso