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