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

[StudentYulia]

Нужно написать програмку. Переменные X, Y вводить с клавиатуры. Константы задать в разделе определения констант.

[Alex11223]

А проблема-то в чем? Что не получается?

[StudentYulia]

Только начала учить Delphi, первая лабораторная работа, не знаю, как это запрограмировать...

[Alex11223]

Ну очевидно же: если ничего не делать, то ничего само не сделается ) Попробуйте начать что-то делать, погуглите, посмотрите учебник. Если на какой-то вопрос никак не удается найти ответ, то покажите код, расскажите, что конкретно не получается.

[StudentYulia]

Alex, спасибо за совет, но я, предже, чем писать на этом форуме, уже все это сделала. Очевидно, что ничего сложного в этой задаче нет, но я пока так и не могу понять, как запрограммировать х с индексами ij

[Антон Лысенко]

Что вы именно сейчас изучаете? Массивы начали изучать? потому что использовать данные индексы, можно разве что только в двумерном массиве. А какой смысл так задавать так переменную не понимаю. Так что поделитесь с нами информацией которую вы изучали на прошлой паре, что бы мы знали как вам помочь.

[Rin]

Ну наверное так:

const
i=1;
j=1;
x11=2.6;
var q,z:integer;
.......
begin
.........
for q:= i to 100 do
for z:=j to 100 do
{твои операторы}

[StudentYulia]

Спасибо, Антон Лысенко.
На паре нам обьясняли, как с помощью Delphi решать квадратные уравнения. С этим у меня все получилось. Массивы мы еще не начинали изучать...

Вот все мои соображения по поводу задачи:

var res, X: Array [0..10] of Real;
i, j: Integer;
begin

for i:=1 to 10 do
x[i]:=x[i+1];
for j:=1 to 10 do
x[j]:=x[j+1];
res:= 1 + x[ij] + (sgr(x[ij])/2) + exp(3*ln(x[ij])/3*2);
Memo1.Lines.Add('Результат');
Memo1.Lines.Add('y=');

выдает ошибку

Наверное, вам это все кажется глупым, но не судите строго, программированием никогда не занималась

[Rin]

var X: Array [1..10,1..10] of Real;
i, j: Integer;
res:extended;
begin
x[1,1]:=2.6;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
res:= 1 + x[ij] + (sgr(x[ij])/2) + exp(3*ln(x[ij])/3*2);
Memo1.Lines.Add('Результат='+FloatToStr(res));
x[i,j]:=x[i,j+1];
end;
if i<>10 then x[i+1,1]:=x[i,j];
end;

А вы не судите строго в математике, потому что я там ничего не понимаю(уроки прогуливал в школе-теперь жалею).

[Alex11223]

Массивы мы еще не начинали изучать

X: Array [0..10] of Real;

Так все-таки изучали или нет? Xij (x[i,j]) обычно означает двухмерный массив (например, X: array [0..10] of array [0..10] of real — массив 11*11).
Но я не очень понял как это относится к этой функции если просят "ввести Х и У с клавиатуры".