Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Использование for...to...do [D7, XP]

alexab © (2005-11-20 15:10:00)
Здравствуйте! Ескли кто-нибудь сможет поготите пожалуйста! Дело такое: нужно последовательно вычислить значения х[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] и всё в таком духе. Может я как-нибудь не задаю условие выполнения? Если кто знает что с этим делать помогите пожалуйста. Заранее благодарен.

Fay (2005-11-21 10:12:00) [1]
2 alexab © (20.11.05 15:10)
Как объявлены x и y ? Отвечай по-хорошему! 8)

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

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

alexab (2005-11-21 08:11:00) [3]
Первые значения, т. е. x[i,1], x[1,j], y[i,1] и y[1,j] известны и я их сам ввожу. Просто посчитал получаются правильные значения, но как только начинаю считать по алгоритму приведённому выше всё начинает работать как попало... Что делать?

Brother (2005-11-21 06:00:00) [4]
а при i и j =1 предыдущее значение от куда берется? вот кажись она и берет от куда попало! надо писать исключение

Brother (2005-11-21 05:57:00) [5]

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

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

Fay (2005-11-21 02:10:00) [6]
2 alexab © (20.11.05 15:10)
Я тут не всё читал, просто заинтересовался кое-чем...

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

Defunct (2005-11-20 20:18:00) [7]
> Если кто знает что с этим делать помогите пожалуйста.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »