Организация стека

[SoftKoc]

Здравствуйте!

Мне нужно организовать стек очереди для любого типа данных не используя массивы в том числе и динамические.

Помогите пожалуйста.

Не когда не имел дело со стеком, вот почему и создал эту тему. Если можно с описанием, очень нужно.

Заранее очень благодарен!

[Greek9000]

Мне кажется, что Вы не совсем понимаете, чего хотите.
Нельзя организовать стек очереди. Можно организовать стек, очередь, стек очередей или очередь стеков

Тем не менее, посмотрите модуль Contnrs, там скорее всего есть то, что Вам нужно. Это стандартный (по крайней мере для Delphi 7) модуль, в котором есть такие классы:
TStack - реализация стека для указателей
TQueue - реализация очереди для указателей
TObjectList - список объектов
TObjectQueue - очередь объектов
TObjectStack - стэк объектов
и много другого, нужного и полезного

Это если надо уже что-то готовое. Если же надо написать собственную реализацию для учебных целей, то можно почитать книгу "Фундаментальные алгоритмы и структуры данных в Delphi". Найти и скачать её будет не очень трудно.

[SoftKoc]

Сообщение от Greek9000

Мне кажется, что Вы не совсем понимаете, чего хотите.
Нельзя организовать стек очереди. Можно организовать стек, очередь, стек очередей или очередь стеков

Тем не менее, посмотрите модуль Contnrs, там скорее всего есть то, что Вам нужно. Это стандартный (по крайней мере для Delphi 7) модуль, в котором есть такие классы:
TStack - реализация стека для указателей
TQueue - реализация очереди для указателей
TObjectList - список объектов
TObjectQueue - очередь объектов
TObjectStack - стэк объектов
и много другого, нужного и полезного

Это если надо уже что-то готовое. Если же надо написать собственную реализацию для учебных целей, то можно почитать книгу "Фундаментальные алгоритмы и структуры данных в Delphi". Найти и скачать её будет не очень трудно.

Да вы правы я сам не до конца понимаю что и как.
Можно либо какой примерчик по поводу организации стека хотя бы.

[Stilet]

TStack чем не устроил? Примеры в хелпе есть. Описание там же.

[Я_и]

Организация стека:
Type
DataType=Pointer;//Тип данных стека.. Можно использовать указатель на
//что угодно или лобой тип (Integer,TPoint и т.д.)
PStack1=^TStack1;
TStack1=record
Data:DataType;
Next:PStack1;
end;
Это - своего рода зацикливание. Для хранения стека необходима одна переменная типа PStack1. Принцип такой: Next указывает на следующий элемент или, если Next=nil, на то, что стек закончился (пуст, если указатель на стек равен nil).
В стеке реализован принцип LIFA (Last In First Out)...
Я загрузил свой стек... Только там DataType - это базис векторов)))) Замените его на Pointer и все будет нормально.... Для инициализации стека нужно лишь указателю присвоить nil.