Решение уравнения

[Diego_faer]

Здравствуйте Помогите решить задачу а то у меня не получается.
Вот мой код

function TForm1.Pow(A, B: Real): Real;
{ Функция возведения в степень (A^B }
Begin
    If A < 0 Then Pow := (-1)*Exp(B*Ln(A))
       Else Pow := Exp(B*Ln(A));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  A:=StrToInt(Edit1.Text);
  B:=StrToInt(Edit2.Text);
  C:=StrToInt(Edit3.Text);
  D:=StrToInt(Edit4.Text);
  E:=StrToInt(Edit5.Text);
 
  Kmp:=StrToInt(Edit3.Text);
 
  A4:=A/100;
  A5:=(A4/10)*D;  //rodil
  A6:=(A4/10)*E;  //umerl
  
  Kr:=A5;
  Ks:=A6;
 
  Kop:=Kr-Ks+Kmp;
  q:=1+(Kop/1000);
  
  r:=pow(B,q);
    Sn:=A*r;
 
  label10.Caption:=FloatToStrF(Sn,ffFixed,12,3);
  label7.Caption:='Результат за '+FloatToStrF(B,ffFixed,12,0)+' лет ='+ FloatToStrF(Sn,ffFixed,12,3);
  label24.Caption:=FloatToStrF(A5,ffFixed,12,3);
  label26.Caption:=FloatToStrF(A6,ffFixed,12,3);
end;

[Stilet]

Что это за уравнение и что не получается?

[Diego_faer]

Я ввожу с клавиатуры значения
А- Это население (вводится в тысячах в формуле это Sn)
В- количество лет (в формуле это t)
D- это сколько родилось ( вводится в % в формуле это Кр)
E- это сколько умерло ( вводится в % в формуле это Ксм)
Kmp -это коэффициент миграции(вводится в тысячах в формуле этоКмех.пр)

Не получается правильно поднести в степень.
Кр и Ксм нужно еще рассчитывать для каждого Sn разные.
И Sn нужно записать как массив и вывести в Memo.

[Stilet]

Не получается правильно поднести в степень.

Используй функцию power() из модуля math.

Кр и Ксм нужно еще рассчитывать для каждого Sn разные.

И откуда их брать? каждый раз вводить?

И Sn нужно записать как массив и вывести в Memo.

var s:array of double;i:integer;
...
SetLength(s,n);
...
for i:=low(s) to High(s) do begin
 Наполняем s[i];
 Memo.Lines.Append(format('%5.2',[s[i]]));
end;
...
SetLength(s,0);
end;

Идея ясна?

[Stilet]

Не получается правильно поднести в степень.

Используй функцию power() из модуля math.

Кр и Ксм нужно еще рассчитывать для каждого Sn разные.

И откуда их брать? каждый раз вводить?

И Sn нужно записать как массив и вывести в Memo.

var s:array of double;i:integer;
...
SetLength(s,n);
...
for i:=low(s) to High(s) do begin
 Наполняем s[i];
 Memo.Lines.Append(format('%5.2',[s[i]]));
end;
...
SetLength(s,0);
end;

Идея ясна?

[Diego_faer]

Я ввожу
D- это сколько родилось ( вводится в % в формуле это Кр)
E- это сколько умерло ( вводится в % в формуле это Ксм)
а рассчитываются вот здесь
A4:=A/100;
A5:=(A4/10)*D; //rodil
A6:=(A4/10)*E; //umerl
и вводится они всего лиш 1раз и просто высчитываются проценты из каждого Sn новые.

[Diego_faer]

А можете подсказать как записать это уравнение в цыкл с проверкой степени на больше или меньше нуля.