Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Двусвязный список 
V
    Опции темы
scai
Дата 8.2.2007, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Неофит
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.1.2007
Где: г. Загорск

Репутация: 2
Всего: 2
на словах опишу, а то там текста...

модуль для двусвязного списка, да. тип для элемента(пред, след, data), тип для списка(текущий, первый, последний, буферы), во все процедуры передаётся ссылка на список + параметры.
работает в программе как стек. при создании всех списков зачищается предыдущий с освобождением памяти.
создаем список, добавляем n элементов в через начало. каждому усанавливаем соотв значения полей. просим вывести на экран.

так вот глюк в том, что при первом вводе, правильно отображает только первый элемент, значения остальных - "8".

погоди, не все еще.

в следующих списках корректно отображаются элементы, порядковый номер которых меньше или равен максимальному числу элементов  в предыдущих списках, остальные теперь - "0". 

при рестарте - все сначала.

все проверил, код, адреса "объектов" при вводе и выводе... smile 

ошибка, такая, с характером. есть идеи?

Добавлено @ 01:41 
да, на всякий случай, хотя, врядли в этом дело. data - pointer, все операции с ним - через модуль, перенаправляющий вызовы в соответствии с типом в data + распаковка pointero'в. в типе списка, соотв, есть поле для типа data.  
--------------------
 
PM MAIL   Вверх
volvo877
Дата 8.2.2007, 01:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Цитата(scai @  8.2.2007,  00:36 Найти цитируемый пост)
есть идеи?
Есть... Код присоединяй. Причем полностью, до последней запятой, а не какой-нибудь кусочек... Тут в любом месте может быть неверно...

Без кода получится гадание на кофейной гуще, это ты форумом ошибся...
PM MAIL   Вверх
scai
Дата 8.2.2007, 02:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Неофит
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.1.2007
Где: г. Загорск

Репутация: 2
Всего: 2
ну вот, смотри.... test(ранабл), un_menu, и my_crt - препод писал. я б по другому сделал smile  

неужели ты будешь пытаться найти ее?

я думал, можт ошибка характерная: по симптомам, пириблизительно, где искать....  оч стыдно будет, если там все из-за глупости какой-нить...

Это сообщение отредактировал(а) scai - 8.2.2007, 02:46

Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  stack.zip 25,07 Kb
--------------------
 
PM MAIL   Вверх
volvo877
Дата 8.2.2007, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
 smile 
Что характерно - я не могу найти ошибку, ибо у меня под Free Pascal-ем описанных тобой симптомов просто нет... Все списки выводятся как положено, никакими восьмерками и не пахнет... Что вводил, то и получаю...
PM MAIL   Вверх
Rodman
Дата 8.2.2007, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
мож компилятор перебить!!!


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
scai
Дата 9.2.2007, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Неофит
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.1.2007
Где: г. Загорск

Репутация: 2
Всего: 2
Да... Странно... На FreePascal все работает.... Странно почему TP не хочет компилиить.
Реально, в чем разница между древним, и типа, хорошо себя зарекомендовавшим tp и FPC, что первый не может нормально собрать вроде бы простую прогу?

И еще вопрос про FPC. Судя по listbox, компилятор постоянно обращается к модулю i386-Win32 и достает оттудова вещи типа  mysql\system.pp, opengl\system.pp, Вообще непонятно зачем... С таким подходом компилятора к делу, на 386-м с DOS'ом прога будет работать. если нет, то как "заставить"?

Это сообщение отредактировал(а) scai - 9.2.2007, 23:19
--------------------
 
PM MAIL   Вверх
JAPH
Дата 9.2.2007, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 23
С DOS-ом это работает, после устранения пары огрехов. Но с восьмёрками smile
TP не хочет компилировать, потому что:
1. Yorn.pas - надо добавить {$N+} (иначе ошибка must be in 8087 mode to compile this со ссылкой на строку 65)
2. Typesel.pas и Stack.pas - циклические ссылки друг на друга. Если их объединить, то всё нормально.


--------------------
Что непонятно - спрашиваем smile
PM MAIL ICQ   Вверх
scai
Дата 9.2.2007, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Неофит
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.1.2007
Где: г. Загорск

Репутация: 2
Всего: 2
JAPH, а у тебя в TP тоже восьмерки вылазят. А то я уже думаю, что это из-за системы моей: со дня надень переставлю, потомучто нехорошо очень ведет себя.
А с  FPC( АЗС smile ) проблем с восьмерками не возникает. опять же, очень странно, откуда они в TP-версии появляются. 

а так  все компилится, и циклические ссылки, и yorn.(у меня наверное в настройках компилятора где-нить флажок стоит) 

а скажите, пожалуйста,что надо сделать, чтоб скомпилированная FPC прога под DOS'ом работала?

Добавлено @ 23:01 
странно, если бы с циклическими ссылками не компилилось, потому что, по логике, подобная структура должна двумя модулями быть представлена. один - модуль списка, законченный. а другой - модуль "перенаправления", который правишь при добавлении новых типов для помещения в список. Чтоб цикличности избежать, можно было б тип списка и элемента списка в отделльный модуль вынести, но, опять же - нелогично, да и зачем...

Думаю, до изобретения полиморфизма, так как я сделал, делали сплошь и рядом.

Это сообщение отредактировал(а) scai - 9.2.2007, 23:09
--------------------
 
PM MAIL   Вверх
JAPH
Дата 10.2.2007, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 23
Нашёл, где появляются восьмёрки - строка 193 в stack.pas
rootlnk^.prevlnk := sbuffer[1];

Причина:
rootlnk^ расположена по адресу 163B:0008, введённое число - по 163C:0000.
Но rootlnk^ занимает 12 байт, поэтому пересекается с числом. А мы записываем в последние 4 байта rootlnk^, вот число и затирается!
Наверное, дальше паскаль более внимательно выделяет память.

А, может, дело и не в паскале. Если заменить строку 67 в stack.pas на
elemsize:=12;
то у меня вроде всё работает.

Ещё можно rSize сделать равным 2 (fielddat.pas, строка 9).

Это сообщение отредактировал(а) JAPH - 10.2.2007, 12:51


--------------------
Что непонятно - спрашиваем smile
PM MAIL ICQ   Вверх
scai
Дата 10.2.2007, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Неофит
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.1.2007
Где: г. Загорск

Репутация: 2
Всего: 2
ПОСТАВЬТЕ JAPH "+" ! Или два! потому что искать ошибки в чужой программе...

СПасибо! Двойное!!!! Ни за что не подумал бы, что в размерах дело 

Это сообщение отредактировал(а) scai - 10.2.2007, 15:26
--------------------
 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0503 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.