• Lenguaje

    Pascal

  • Descripción

    Un banco calcula los intereses de las cantidades depositadas por los clientes diariamente con base en las siguientes premisas. Un capital de 1000 euros, con una tasa del 6% anual, renta un interés en un día de 0.06 multiplicado por los 1000 euros y dividido por 365. Esta operación producirá 0.16 euros de interés y el capital acumulado será 1000.16 euros. El interés para el segundo día se calculará multiplicando 0.06 por 1000.16 euros y dividiendo por 365. Diseñar un algoritmo que reciba tres entradas: el capital a depositar en euros, la tasa de interés y la duración del depósito en semanas, y calcule el capital total acumulado al final del periodo de tiempo especificado, se debe pedir N clientes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program CalculoDeIntereses;
uses crt, math;

var i, n : integer;
var capital_a_depositar_en_euros, capital_total_acumulado, duracion_del_deposito_en_semanas, tasa_de_interes : real;
begin
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de capital a depositar en euros: ');
        readln (capital_a_depositar_en_euros);
        write ('Ingresa el valor de duracion del deposito en semanas: ');
        readln (duracion_del_deposito_en_semanas);
        write ('Ingresa el valor de tasa de interes: ');
        readln (tasa_de_interes);
        capital_total_acumulado := capital_a_depositar_en_euros*power(1.0+tasa_de_interes/100/365,duracion_del_deposito_en_semanas*7);
        writeln ('Valor de capital total acumulado: ', capital_total_acumulado:0:6);
        writeln;
    end;
end.