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