![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Moony |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите пожалуйста найти ошибку в программе. Вроде бы что то в удаление дерева, но не пойму что именно
Это текст задачи Некоторая фирма, совершая экспортные операции, сохраняет всю информацию в файле. Информация включает номер контракта, наименование товара, страну и фирму, импортирующую товар, сведения об общем объеме поставок, дату заключения контракта, дату исполнения контракта в полном объеме, количество товара, поставленного по контракту на данный момент. Создайте бинарное дерево, упорядоченное по наименованиям товара в алфавитном порядке. В процессе формирования дерева должны подсчитываться общий объем поставок товара данного наименования по всем контрактам и общий объем данного товара, поставленный до настоящего момента по всем контрактам. Обеспечти полный просмотр информации, поиск товара данного наименования, вывод наименований тех товаров, поставки по которым выполнены не полностью. Прикрепленные файлы ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата(Moony @ 21.08.05 17:41) Помогите пожалуйста найти ошибку в программе. Вроде бы что то в удаление дерева, но не пойму что именно Прекрасно, но неплохо было бы знать, каковы симптомы ошибки (если они есть), а то получается - "ищи то - не знаю, что" ... Кстати, если бы ты сначала посмотрел вот сюда: FAQ: Динамические структуры - Бинарные деревья, то увидел бы, что обычно процедуры создания, обработки и удаления бинарных деревьев рекурсивны, то есть я бы делал процедуру Clean вот так: Procedure Clean(Tek: PTree);
Begin
If Tek = nil Then Exit;
Clean(Tek^.Right); { удаление правого поддерева }
Clean(Tek^.Left); { удаление левого поддерева }
Dispose(Tek) { удаление корневого узла }
End;
|
![]() ![]() |
![]() |
Текстовая версия | 18.04.2025 11:57 |