Простые и сложные проценты (Dephi)

[tane]

Программа, которая вычисляет доход по вкладу. Программа должна обеспечивать расчет простых и сложных процентов. Простые проценты начисляются в конце срока вклада, сложные — ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму.

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

[type_Oleg]

Вроде бы определение сложных и простых проще.
Простые % - это % только на начальную сумму вклада.
Сложные % - это % на текущую сумму вклада. То есть % на % начисляются. То есть рекапитализация.
Простые вычисляются умножением, сложные - возведением в степень.

[tane]

type_Oleg,я посмотрел на сайтах, степень в фурмуле - это количество периодов капитализации за весь период вклада.
А у меня в лабораторной нужно сделать по такому примеру(рис1).Т.е у нас должен быть пункт Сумма, к-во дней(срок) и % ставка.

[type_Oleg]

Я так понимаю:
Например, сколько % накапает за полгода при 20% годвых?
1 вариант -простой процент. Ответ = 20/2 = 10 %

2 вариант - сложный процент.
Решение: (1+20/100)^(1/2) = 1.095445115
(1.095445115-1)*100 = 9.544511501 %

То же самое , за 10 лет
1 = 200%
2 = 519 %

[tane]

В учебнике по Delphi нашел эту задачу.
Формула для простых процентов: доход:=sum*(pr/100/12)*period
Для сложных:sum2:=sum;
for i:=1 to period do
sum2:=sum2+sum2*(pr/100/12);

Благодарю за отклик.

[type_Oleg]

Пример только для целых периодов. А для 1/2 года например - не годится.

[Serge_Bliznykov]

ну почему не годится?!
На мой взгляд, абсолютно нормальные формулы.
Не забываем, что обычно сложные проценты начисляются ежемесячно.
Именно поэтому период должен быть задан строго в целом числе, равном количеству месяцев, и именно поэтому в формулах присутствует /12 (деление годовых процентов на 12 месяцев).

[tane]

Я учусь не на банкира,так что результат меня более-менее устраивает. Вот код.
Может в будущем кому-то пригодится.
Спасибо господа!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
sum:Real; //сумма вклада
pr:Real; // поцентная ставка
period:Integer; //срок вклада
profit:Real;// доход по вкладу
sum2:Real;// сума пи вычислении сложных процентов 
i:integer;
begin
  sum:=StrToFloat(Edit1.Text);
  pr:=strtofloat(Edit2.Text);
  period:=StrToInt(Edit3.Text);
  if RadioButton1.Checked then
  profit:=sum*(pr/100/12)*period else
  begin
    sum2:=sum;
    for i:=1 to period do
    sum2:=sum2+sum2*(pr/100/12);
    profit:=sum2-sum;
  end;
  sum:=sum+profit;
  Label1.Caption:='Доход:'+floattostrF(profit,ffCurrency,6,2)+#13+'Сумма в конце срока вклада'+floattostrF(sum,ffcurrency,6,2)
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Label1.Caption := 'Срок (дней)';
Label2.Caption := '';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Label1.Caption := 'Срок (мес.)';
Label2.Caption := '';

end;

end.