Banco bandido de peluche en lenguaje Pascal

Lenguaje

Pascal
Descripción

El banco "Bandido de peluche" desea calcular para uno de sus clientes el saldo actual, el pago mínimo y el pago para no generar intereses.
Los datos que se conocen son: saldo anterior del cliente, monto de las compras que realizó y el pago que depositó en el corte anterior. Para calcular el pago mínimo se debe considerar 15% del saldo actual, y para no generar intereses corresponde 85% del saldo actual, considerando que este saldo debe incluir 12% de los intereses causados por no realizar el pago mínimo y $200 por multa por el mismo motivo.

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
28
29
30
31
32
33
34

program BancoBandidoDePeluche;

uses crt;

var compras_realizadas, intereses, multa, pago_del_corte_anterior, pago_minimo : real;

var pago_para_no_generar_intereses, saldo_actual, saldo_anterior : real;

begin

    write ('Ingresa el valor de compras realizadas: ');

    readln (compras_realizadas);

    write ('Ingresa el valor de pago del corte anterior: ');

    readln (pago_del_corte_anterior);

    write ('Ingresa el valor de saldo anterior: ');

    readln (saldo_anterior);

    if saldo_anterior*0.15>pago_del_corte_anterior then

        begin

            intereses := saldo_anterior*0.12;

            multa := 200;

        end

    else

        begin

            intereses := 0;

            multa := 0;

        end;

    saldo_actual := saldo_anterior+compras_realizadas-pago_del_corte_anterior+intereses+multa;

    pago_minimo := saldo_actual*0.15;

    pago_para_no_generar_intereses := saldo_actual*0.85;

    writeln ('Valor de intereses: ', intereses:0:6);

    writeln ('Valor de multa: ', multa:0:6);

    writeln ('Valor de pago minimo: ', pago_minimo:0:6);

    writeln ('Valor de pago para no generar intereses: ', pago_para_no_generar_intereses:0:6);

    writeln ('Valor de saldo actual: ', saldo_actual:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.