IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Списки, Списки
сообщение
Сообщение #1


Гость






Кто-нибудь знает как сформировать список.
Везде есть добавление в начало списка, а мне надо в конец.
Напишите код если можно.
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов(1 - 11)
сообщение
Сообщение #2


Прогрессор
****

Группа: Пользователи
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

Репутация: -  9  +


Я делал список как раз с добавлением в конец... Но у меня был список объектов класса "Матрица", причём сам реализованный в виде класса. Впрочем, наверное, можно и переделать. Если надо файл, напиши.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Ну вы даете! ... angry.gif
Какого .... я выложил сюда модуль для списков?:
http://forum.pascal.net.ru/index.php?showtopic=1852
----
P.S.
Procedure BListAddLast(var L: TList; E: TElem);
добавление в хвост!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Спасибо за ответ.
Это действительно хороший модуль.
Но проблема в том что у меня список с головным элементом, и никак не получается обойтись без цикла, но ведь можно, так даже у Вирта написано.
Так вопрос в том: как добавить элемент в хвост без цикла использую дополнительный элемент вроде last или же что тоже самое с помощью головного элемента?
Спасибо за ответ.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






И вообще в этом модуле какой-то странный головной элемент. Вообще то он выглядит так:
Type
Head = ^P_head;
P_head = record
First : P_el;
Last : P_el;
Name : string;
Count : byte;
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


В этом модуле есть процедуры для работы с головным элементом и без него.
Цитата
Но проблема в том что у меня список с головным элементом, и никак не получается обойтись без цикла

А там без цикла, там рекурсия!
Цитата
, но ведь можно, так даже у Вирта написано

В какой книге Вирта это написанно?


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






"Алгоритмы и структуры данных"
а конструкцию while я называю циклом, хотя в принципе здесь это и рекурсия так вот мне надо бы чтобы без неё, у меня вообще то однонаправленный циклический с головным. Я всё нужные мне операции сделал уже вот только осталось что нибудь придумать с этим головным, не просто так ведь он указан.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
И вообще в этом модуле какой-то странный головной элемент. Вообще то он выглядит так:
Type
Head = ^P_head;
P_head = record
First : P_el;
Last : P_el;
Name : string;
Count : byte;
end;

Вы написали тип ДВУСВЯЗНОГО списка, а модуль для ОДНОСВЯЗНЫХ!
Цитата
В какой книге Вирта это написанно?

Я спрашивал, потому что ищу "Алгоритмы+структуры данных=программы"


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Так кто-нибудь может написать или нет??
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


попробую


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Что то долго пробуешь? но теперь можешь не стараться, я сам сделал то о чём писал, даже в двух вариантах
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Цитата(Гость_Alex @ 28.04.04 11:53)
Что то долго пробуешь? но теперь можешь не стараться, я сам сделал то о чём писал, даже в двух вариантах

Тогда закрываю тему.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.04.2024 19:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name