-
Lenguaje
PSeInt (Pseudocódigo)
-
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Proceso EmpresaDeBienesRaices
Escribir Sin Saltar "Ingresa el valor de costo de la casa:";
Leer costo_de_la_casa;
Escribir Sin Saltar "Ingresa el valor de ingresos:";
Leer ingresos;
Si ingresos>2000000 Entonces
anticipo <- costo_de_la_casa*0.35;
pagos <- 7*12;
SiNo
anticipo <- costo_de_la_casa*0.2;
pagos <- 15*12;
FinSi
pago_mensual <- (costo_de_la_casa-anticipo)/pagos;
Escribir "Valor de anticipo: ", anticipo;
Escribir "Valor de pago mensual: ", pago_mensual;
Escribir "Valor de pagos: ", pagos;
FinProceso
Escribir Sin Saltar "Ingresa el valor de costo de la casa:";
Leer costo_de_la_casa;
Escribir Sin Saltar "Ingresa el valor de ingresos:";
Leer ingresos;
Si ingresos>2000000 Entonces
anticipo <- costo_de_la_casa*0.35;
pagos <- 7*12;
SiNo
anticipo <- costo_de_la_casa*0.2;
pagos <- 15*12;
FinSi
pago_mensual <- (costo_de_la_casa-anticipo)/pagos;
Escribir "Valor de anticipo: ", anticipo;
Escribir "Valor de pago mensual: ", pago_mensual;
Escribir "Valor de pagos: ", pagos;
FinProceso