Использование for...to...do

← →
alexab © (2005-11-20 15:10) [0]

Здравствуйте! Ескли кто-нибудь сможет поготите пожалуйста! Дело такое: нужно последовательно вычислить значения х[i,j] и у[i,j], что делаю следующим образом:
...
//Определение координт х
begin
i:=1;
j:=1;
for i:=1 to 8 do
for j:=1 to 8 do
begin
x[i,j]:=(y[i-1,j]-y[i,j-1]+A[i,j]*x[i,j-1]-B[i,j]*x[i-1,j])/(A[i,j]-B[i,j]);
end;
end;

//Определение координт y
begin
i:=1;
j:=1;
for i:=1 to 8 do
for j:=1 to 8 do
begin
y[i,j]:=y[i,j-1]+A[i,j]*(x[i,j]-x[i,j-1]);
end;
end;
...

A[i,j] B[i,j] вычисляет правильно (там тоже алгоритм составил и работает нормально). Заранее задаю x[i,1], x[1,j], y[i,1] и y[1,j] через Edit. Должно вычислять следуущий параметр взависимости от предыдущих, а получается что, например, x[2,2] зависит от y[8,1] или y[1,7] и всё в таком духе. Может я как-нибудь не задаю условие выполнения? Если кто знает что с этим делать помогите пожалуйста. Заранее благодарен.

← →
Defunct © (2005-11-20 20:18) [1]

> Если кто знает что с этим делать помогите пожалуйста.

Решить задачку вначале на листочке для i=1..2, j=1..2, а потом для i=1..3, j=1..3, потом возможно для i=1..4, j=1..4. написать алгоритм и затем реализовать его на delphi.

← →
Fay © (2005-11-21 02:10) [2]

2 alexab © (20.11.05 15:10)
Я тут не всё читал, просто заинтересовался кое-чем...

Это зачем?
i:=1; j:=1;

← →
Brother © (2005-11-21 05:57) [3]

> Это зачем?
> i:=1;
> j:=1;

Это для ПОЛНОГО обединичивания переменных :)

← →
Brother © (2005-11-21 06:00) [4]

а при i и j =1 предыдущее значение от куда берется? вот кажись она и берет от куда попало! надо писать исключение

← →
alexab © (2005-11-21 08:11) [5]

Первые значения, т. е. x[i,1], x[1,j], y[i,1] и y[1,j] известны и я их сам ввожу. Просто посчитал получаются правильные значения, но как только начинаю считать по алгоритму приведённому выше всё начинает работать как попало... Что делать?

alexab © (21.11.05 08:11) [5]
> как только начинаю считать по алгоритму приведённому выше

Выше алгоритм не приводился...

Использование for...to...do Найти похожие ветки