Вычислить значение функции в Delphi

[StudentYulia]

Rin, спасибо Вам огромное!!!

[StudentYulia]

Alex11223, массивы не изучали, но как по другому это сделать я не знаю...
я филолог, а не программист, мне сложно в этом разобраться...

[Rin]

Юлия, Вы уж проверьте, правильно он считает или нет. Я не отвечаю за правильность решения, т.к. не сильно шарю в матане.

[Alex11223]

Вы уж проверьте, правильно он считает или нет.

Если не считать несколько опечаток типа забытых запятых между индексами и sgr вместо sqr, то она вылетает на 3 итерации вложенного цикла (т.е. i=1, j=3) с делением на 0. Я вообще не понял по какому принципу тут заполняется массив.

[Rin]

Ну это то да. Я не вглядывался, что напечатано Юлией. Невнимателен.
Открыл Delphi спецом и понял, что я не то написал.
Кажется, что Х должен заноситься с клавы, ибо если высчитывать последовательность, типа так:

if j<>10 then x[i,j+1]:= 1 + x[i,j] + (sqr(x[i,j])/2)
 + exp(3*ln(x[i,j]))/3*2
 else
 x[i+1,1]:= 1 + x[i,j] + (sqr(x[i,j])/2)
 + exp(3*ln(x[i,j]))/3*2;

то уже при 10 итерации число настолько велико, что не вмещается даже в extended.
Вам надобно занести на форму ещё StringGrid. В его свойствах:
1.В options-->GoEditing поставить true
2.В FixedCols поставить 0
3.В FixedRows поставить 0
4.В RowCount поставить 10
5.В ColCount поставить 10
Далее в StringGrid вписывать Xi,j.
А потом брать из StringGrid значения Xi,j.
Вот такой код должен выйти:

var 
i, j: Integer;
begin
StringGrid1.cells[0,0]:=2.6;
for i:=0 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
Memo1.Lines.Add('Результат='+FloatToStr(1+StrToFloat(StringGrid1.cells[i,j])
 + (sqr(StrToFloat(StringGrid1.cells[i,j]))/2)
 + exp(3*ln(StrToFloat(StringGrid1.cells[i,j])))/3*2));

Кажется так.

[StudentYulia]

Rin, спасибо, но этот вариант очень сложный, мне надо чуть по-проще )
насколько я поняла, Х11 - константа, которую нужно ввести для обчисления равнения. У меня получился такой код

procedure TForm1.btn1Click(Sender: TObject);
var a, y: double;
begin

  a:=StrToFloat(edt1.Text);
  y:=(1 + a + (sqr(a) / 2) + (exp(3*ln(a)) / 3 * 2));
  mmo1.Lines.Add('Результат');
  mmo1.Lines.Add('y='+FloatToStr(y));

end;

и такая форма:
Где ошибка? Вычесляет не правильно

[Rin]

y:=(1 + a + (sqr(a) / 2) + (exp(3*ln(a)) / (3 * 2)));

У Вас 3*2 не стояло в скобках, поэтому он сначала все делит на три, а потом умножает на 2.

[StudentYulia]

все равно выдает результат 333333... буду еще думать

[denisbrain]

Сообщение от StudentYulia

все равно выдает результат 333333... буду еще думать

а есди заместо EXP&LN Power из Math использовать

r:=1+x+power(x,2*i*j)/2*power(x,3*i*j)/6
FormatFloat('0.00',r);

[StudentYulia]

заместо EXP&LN Power из Math использовать

извините, а это как?