Высчитать проценты по вложениям в банке

Категория: Delphi/Pascal
2011-09-05 19:29:16

Кто то положил в банк деньги (программа должна спрашивать у пользователя сумму), под 7%(сложных, т.е. каждый год берётся заново от накопления за предыдущий год), сроком на три года. Программа должна выводить в таблице сколько будет в конце каждого года, и в конце истечения всего срока.

code: #pascal
  1. program Project2;
  2. var
  3. money,sum:real;
  4. persent,year,i:byte;
  5. {money - начальная сумма, year - период лет, persent - процент}
  6.  
  7. {ввод данных}
  8. procedure vvod;
  9. begin
  10.   Write('money = ');
  11.   ReadLn(money);{ввод начальной суммы денег}
  12.   Write('% = ');
  13.   ReadLn(persent);{ввод процента}
  14.   Write('years = ');
  15.   ReadLn(year);{кол-во лет}
  16. end;
  17. {вывод результата}
  18. procedure vivod;
  19. begin
  20. sum:=money;
  21.   for i:= 1 to year do
  22.     begin
  23.       sum:=sum+(sum*(persent/100));
  24.       writeln('after ',i,' years summa = ',sum:7:2);
  25.     end;
  26. end;
  27. begin
  28.   vvod;
  29.   Writeln('----------');
  30.   vivod;
  31.   readln;
  32. end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, процент