Сортировка по возрастанию, Двумерный список |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сортировка по возрастанию, Двумерный список |
habi |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 44 Пол: Мужской Реальное имя: Артём Репутация: 0 |
Вот код, работает, сортирует окна, по увеличению гипотенузы(расстояния от нижнего правого угла до верхнего левого экрана) Но при повторном вызове Invalid floating point operation процедура vivod лишь прорисовывает окна в одинарной рамке, а если конец списка, то в двойной. Помогите исправить ошибку. Рад буду услышать совет по оптимизации или другой алгоритм. Сообщение отредактировано: habi - |
volvo |
Сообщение
#2
|
Гость |
У тебя практически одно и то же делается дважды. Первый раз - со Словами, второй - с Окнами. И там и там создается список (только в первом случае он односвязный, а во втором - двухсвязный, но что тебе мешает сделать и в первом случае поле Prev, но не использовать его?)
Классическая задача на многократное использование кода (а не так как у тебя сейчас - отдельно - код для WordList, отдельно - для списка Wind). Поскольку задача решается тобой в процедурном стиле (а не ООП) - то могу предложить использование директивы {$i filename} для написания более компактной программы... Ее будет гораздо проще поддерживать... В том, что есть у тебя сейчас разбираться очень сложно... Если интересно - покажу, как это делается... |
Текстовая версия | 29.04.2024 18:29 |