-
Lenguaje
Pascal
-
Descripción
Una empresa de bienes raíces ofrece casas de interés social bajo las siguientes condiciones:
- Si los ingresos del comprador son menores de $8,000, el enganche será del 15% del costo de la casa y el resto de distribuirá en pagos mensuales a pagar en 10 años.
- Si los ingresos del comprador son igual o mayores de $8,000, el enganche será del 30% del costo de la casa y el resto se distribuirá en pagos mensuales a pagar en 7 años.
La empresa quiere obtener cuanto debe pagar un comprador por concepto de enganche y cuanto por cada pago parcial parcial.
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 EmpresaDeBienesRaices2;
uses crt;
var anos, costo_de_la_casa, enganche, ingresos, pago_parcial : 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<8000 then
begin
enganche := costo_de_la_casa*0.15;
anos := 10;
end
else
begin
enganche := costo_de_la_casa*0.3;
anos := 7;
end;
pago_parcial := (costo_de_la_casa-enganche)/12/anos;
writeln ('Valor de anos: ', anos:0:6);
writeln ('Valor de enganche: ', enganche:0:6);
writeln ('Valor de pago parcial: ', pago_parcial:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var anos, costo_de_la_casa, enganche, ingresos, pago_parcial : 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<8000 then
begin
enganche := costo_de_la_casa*0.15;
anos := 10;
end
else
begin
enganche := costo_de_la_casa*0.3;
anos := 7;
end;
pago_parcial := (costo_de_la_casa-enganche)/12/anos;
writeln ('Valor de anos: ', anos:0:6);
writeln ('Valor de enganche: ', enganche:0:6);
writeln ('Valor de pago parcial: ', pago_parcial:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.