Затем выводит во внешний файл таблицу роста вклада по месяцам, в которой включён дополнительный столбец роста вклада с предположением отсутствия периодических платежей.

program Bank;

var

nach_vn, summa_bez_plat, prots_st, plat: real;

i: integer;

rez: text;

label 1,2,3;

begin

assign(rez,'rez.txt');

rewrite(rez);

writeln('***************************************************');

1: writeln('***************************************************');

writeln('vvedite summu nachalnogo vklada');

readln(nach_vn);

if nach_vn<1000 then

begin

writeln('neverno vvedeno znachenie');

goto 1;

end;

if nach_vn>10000 then

begin

writeln('neverno vvedeno znachenie');

goto 1;

end;

2: writeln('***************************************************');

writeln('vvedite normu protsentnoy stavki');

readln(prots_st);

if prots_st<0.5 then

begin

writeln('neverno vvedeno znachenie');

goto 2;

end;

if prots_st>4 then

begin

writeln('neverno vvedeno znachenie');

goto 2;

end;

3: writeln('***************************************************');

writeln('vvedite protsent pereodicheskih platezhey');

readln(plat);

if plat<1 then

begin

writeln('neverno vvedeno znachenie');

goto 3;

end;

if plat>10 then

begin

writeln('neverno vvedeno znachenie');

goto 3;

end;

writeln(rez,'*******************************');

plat:=nach_vn/100*plat;

i:=0;

writeln(rez,'| mes |na schetu|bez platezhey ');

writeln(rez,'----------------------------');

writeln(rez,'| ', i , ' | ', nach_vn:6:2, ' | ');

writeln(rez,'----------------------------');

i:=1;

summa_bez_plat:=nach_vn;

for i:=1 to 18 do

begin

summa_bez_plat:=summa_bez_plat+nach_vn/100*prots_st;

nach_vn:=nach_vn+nach_vn*0.01*prots_st-plat;

if i<10 then

writeln(rez,'| ',i, ' | ', nach_vn:6:2, ' | ', summa_bez_plat:6:2)

else

writeln(rez,'| ',i, ' | ', nach_vn:5:2, ' | ', summa_bez_plat:6:2);

writeln(rez,'----------------------------');

end;

readln;

end.

3.2. Блок-схема к программе

_+

+

–

+

_ + _

+

–

– +