Сортировка по возрастанию, Двумерный список Опции

[habi]

Вот код, работает, сортирует окна, по увеличению гипотенузы(расстояния от нижнего правого угла до верхнего левого экрана)
Но при повторном вызове Invalid floating point operation

процедура vivod лишь прорисовывает окна в одинарной рамке, а если конец списка, то в двойной.
Помогите исправить ошибку.

Рад буду услышать совет по оптимизации или другой алгоритм.

Сообщение отредактировано: habi - 28.05.2008 17:37

[volvo]

1. В процедуре сортировки у тебя идет попытка обращения к неинициализированному указателю, ибо память под CCC^ ты не выделяешь нигде... Как оно у тебя работало, и КУДА записывало информацию - никому не ведомо

         k1:=sqr(round(tek^.x2/2)+tek^.x1);
         k2:=sqr(round(tek^.y2/2)+tek^.y1);
         k1t:=sqr(round(tmp^.x2/2)+tmp^.x1);
         k2t:=sqr(round(tmp^.y2/2)+tmp^.y1);
         if sqrt(abs(k1+k2)) > sqrt(abs(k1t+k2t)) then
           begin
              new(ccc); { <--- Добавить }

              ccc^.x1:=tmp^.x1; ccc^.x2:=tmp^.x2; ccc^.y2:=tmp^.y2; ccc^.y1:=tmp^.y1; ccc^.fonec:=tmp^.fonec;

+ ниже (после обмена) не забудь удалить, иначе получишь утечку...

2. Внутри For-цикла запрещено менять параметр (если уж так надо - пользуйся While-ом), а ты меняешь, там же, в процедуре Sortirovka:

              tek:=tek^.next;
              tmp:=tmp^.next;
              k1t:=0;k2t:=0;k1:=0;k2:=0;i:=i+1; { <--- раз }
           end
         else
          begin
            k1t:=0;k2t:=0;k1:=0;k2:=0;i:=i+1; { <--- два }
            tek:=tek^.next;
            tmp:=tmp^.next;

- результат может быть непредсказуем... Я для теста поменял на While...

3. Если б ты сразу отделил информационное поле от next/prev, т.е., делал как-нибудь так:

type
  InfoType = record
    x1,x2,y1,y2,j,textc,fonec,k:word;
    text:string;
  end;
  Wind = ^win;
  win = record
    info: InfoType;
    Next,pred: Wind;
  end;

, то вместо поэлементного копирования полей мог бы записать:

              CCC^.info := tmp^.info;
              tmp^.info := tek^.info;
              tek^.info := CCC^.info;
...

, да и вообще можно было бы обойтись без выделения памяти под CCC, достаточно было бы описать статически структуру типа InfoType. Так что выбирай, или оставляешь все, как есть, или делаешь, как лучше

Сообщение отредактировано: volvo - 28.05.2008 8:01