VPF::Черти что с массивами в двойном цикле

TheAviator

Дата 29.11.2003, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

Вот кусочек процедуры

Код

   
   ind:=16;
   for m:=0 to 10 do for n:=m to 13 do
   begin
    Param:=W*f[m]*f[n];
    new[ind]:=NewSum(Param,Q,old[ind]);
    U[m,n]:=new[ind];U[n,m]:=new[ind];
    inc(ind);
   end;

Где i,ind,m,n:integer;
U:TU;
TU=array[0..10,0..13] of Extended; (Тип)
W,Param:Extended;
f:array [0..13] of Extended;
new:array[0..199] of Extended;

При ind=92 , n=16390 (!)
Если строку U[m,n]:=new[ind];U[n,m]:=new[ind]; убрать, то пашет. А так вылетает с foating point operation. Пробовал эту строчку выносить в отдельный цикл - та же самая фигня. А загнать значения из new в матрицу U мне надо!

Cheba

Дата 29.11.2003, 01:44 (ссылка)

(нет голосов)

Загрузка ...

pointless one

Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: 1
Всего: 62

Фишка вот в чем:
У тебя U[0..10, 0..13]. m и n изменяются от 0 до 13, а ты пишешь:
U[m,n] := new[ind]; U[n,m] := new[ind];
Вот когда у тебя что-то больше 10 (n на первом же цикле примет значение 11) вылазит Access violation, а не floating point.

--------------------

Как правильно задавать вопросы

TheAviator

Дата 29.11.2003, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

Тьфу. Как я не заметил... Действительно, мне нужно было отражать матрицу 10*10.

TheAviator

Дата 29.11.2003, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

Интересно, почему в этом варианте тож вылетает с Акцес Виолейшн? Ну и с переменной n та же малина и точно на том же шаге...

Код

   
   ind:=16;
   for m:=0 to 10 do for n:=m to 13 do
   begin
    new[ind]:=NewSum(W*f[m]*f[n],Q,old[ind]);
    if n<11 then U[m,n]:=new[ind];U[n,m]:=new[ind];
    inc(ind);
   end;

markowww

Дата 29.11.2003, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 27.2.2003
Где: В Вологде-где

Репутация: нет
Всего: нет

Та же самая ошибка. У тебя If обрабатывает только первое присваивание. Пиши:

Код


if n<11 then begin
   U[m,n]:=new[ind];
   U[n,m]:=new[ind];
end;

TheAviator

Дата 29.11.2003, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 28.9.2003
Где: Николаев-Киев

Репутация: нет
Всего: нет

ГыГ.. Лопух, студент, лопух..
И микрофон при нем.. при нем..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »