-
Lenguaje
Pascal
-
Descripción
Jardines de la paz vende parcelas a crédito, donde el cliente da una inicial y el resto lo paga en 24 cuotas, pero con un incremento del 20% sobre lo que quedó debiendo. Teniendo como dato de entrada el precio de la parcela determine el monto de cada cuota y el precio final de la parcela.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program VentaDeParcelasEn24Cuotas;
uses crt, math;
var cuota_inicial, monto_de_cada_cuota, precio_de_la_parcela, precio_final : real;
begin
write ('Ingresa el valor de cuota inicial: ');
readln (cuota_inicial);
write ('Ingresa el valor de precio de la parcela: ');
readln (precio_de_la_parcela);
monto_de_cada_cuota := (precio_de_la_parcela-cuota_inicial)*1.2/24;
monto_de_cada_cuota := floor(monto_de_cada_cuota*100+0.5)/100;
precio_final := cuota_inicial+monto_de_cada_cuota*24;
writeln ('Valor de monto de cada cuota: ', monto_de_cada_cuota:0:6);
writeln ('Valor de precio final: ', precio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var cuota_inicial, monto_de_cada_cuota, precio_de_la_parcela, precio_final : real;
begin
write ('Ingresa el valor de cuota inicial: ');
readln (cuota_inicial);
write ('Ingresa el valor de precio de la parcela: ');
readln (precio_de_la_parcela);
monto_de_cada_cuota := (precio_de_la_parcela-cuota_inicial)*1.2/24;
monto_de_cada_cuota := floor(monto_de_cada_cuota*100+0.5)/100;
precio_final := cuota_inicial+monto_de_cada_cuota*24;
writeln ('Valor de monto de cada cuota: ', monto_de_cada_cuota:0:6);
writeln ('Valor de precio final: ', precio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.