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

[habi]

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

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

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

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

[volvo]

У тебя практически одно и то же делается дважды. Первый раз - со Словами, второй - с Окнами. И там и там создается список (только в первом случае он односвязный, а во втором - двухсвязный, но что тебе мешает сделать и в первом случае поле Prev, но не использовать его?)

Классическая задача на многократное использование кода (а не так как у тебя сейчас - отдельно - код для WordList, отдельно - для списка Wind). Поскольку задача решается тобой в процедурном стиле (а не ООП) - то могу предложить использование директивы {$i filename} для написания более компактной программы... Ее будет гораздо проще поддерживать... В том, что есть у тебя сейчас разбираться очень сложно...

Если интересно - покажу, как это делается...