Banco bandido de peluche de N clientes en lenguaje Pascal

Lenguaje

Pascal
Descripción

El banco "Bandido de peluche" desea calcular para cada uno de sus N clientes su saldo actual, su pago mínimo y su pago para no generar intereses. Además, quiere calcular el monto de lo que ganó por concepto interés con los clientes morosos. Los datos que se conocen de cada cliente son: saldo anterior, monto de las compras que realizó y pago que depositó en el corte anterior. Para calcular el pago mínimo se considera 15% del saldo actual, y el pago para no generar intereses corresponde a 85% del saldo actual, considerando que el saldo actual debe incluir 12% de los intereses causados por no realizar el pago mínimo y $200 de 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
35
36
37
38
39
40
41
42
43
44

program BancoBandidoDePelucheDeNClientes;

uses crt;

var i, n : integer;

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

var pago_minimo, pago_para_no_generar_intereses, saldo_actual, saldo_anterior : real;

begin

    ganacia_por_intereses := 0;

    write ('Ingresa el valor de n: ');

    readln (n);

    for i:=1 to n do

    begin

        writeln ('PROCESO ', i);

        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;

        ganacia_por_intereses := ganacia_por_intereses+intereses;

        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;

    end;

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

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

    readkey;

end.