Cliente de un banco en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un cliente de un banco deposita equis cantidad de pesos cada mes en una cuenta de ahorros. La cuenta percibe un interés fijo durante un año de 10 % anual. Realice un algoritmo para determinar el total de la inversión final de cada año en los próximos N años.

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
45
46
47
48
49

program ClienteDeUnBanco;

uses crt;

var i, n : integer;

var cantidad_01_enero, cantidad_02_febrero, cantidad_03_marzo, cantidad_04_abril, cantidad_05_mayo : real;

var cantidad_06_junio, cantidad_07_julio, cantidad_08_agosto, cantidad_09_septiembre, cantidad_10_octubre : real;

var cantidad_11_noviembre, cantidad_12_diciembre, intereses, inversion_final, total : real;

begin

    total := 0;

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

    readln (n);

    for i:=1 to n do

    begin

        writeln ('PROCESO ', i);

        write ('Ingresa el valor de cantidad 01 enero: ');

        readln (cantidad_01_enero);

        write ('Ingresa el valor de cantidad 02 febrero: ');

        readln (cantidad_02_febrero);

        write ('Ingresa el valor de cantidad 03 marzo: ');

        readln (cantidad_03_marzo);

        write ('Ingresa el valor de cantidad 04 abril: ');

        readln (cantidad_04_abril);

        write ('Ingresa el valor de cantidad 05 mayo: ');

        readln (cantidad_05_mayo);

        write ('Ingresa el valor de cantidad 06 junio: ');

        readln (cantidad_06_junio);

        write ('Ingresa el valor de cantidad 07 julio: ');

        readln (cantidad_07_julio);

        write ('Ingresa el valor de cantidad 08 agosto: ');

        readln (cantidad_08_agosto);

        write ('Ingresa el valor de cantidad 09 septiembre: ');

        readln (cantidad_09_septiembre);

        write ('Ingresa el valor de cantidad 10 octubre: ');

        readln (cantidad_10_octubre);

        write ('Ingresa el valor de cantidad 11 noviembre: ');

        readln (cantidad_11_noviembre);

        write ('Ingresa el valor de cantidad 12 diciembre: ');

        readln (cantidad_12_diciembre);

        intereses := total*0.1;

        total := total+intereses+cantidad_01_enero+cantidad_02_febrero+cantidad_03_marzo+cantidad_04_abril+cantidad_05_mayo+cantidad_06_junio+cantidad_07_julio+cantidad_08_agosto+cantidad_09_septiembre+cantidad_10_octubre+cantidad_11_noviembre+cantidad_12_diciembre;

        inversion_final := total;

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

        writeln ('Valor de inversion final: ', inversion_final:0:6);

        writeln;

    end;

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

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

    readkey;

end.