Нужна помощь с очередями, Реализация очереди на базе массива и динам.структур Опции

[Черный Менестрель]

Товарищи, очень нужна ваша помощь!

Необходимо реализовать очередь 2мя способами: на базе массива и на базе динамических структур данных (да-да, массив не труЪ, однако что поделать, такое задание выдали=( ). В каждом случае необходимо реализовать следующие операции:

1. Включить элемент в очередь
2. Исключить элемент из очереди
3. Найти в очереди элемент с заданным значением
4. Соединить 2 очереди в одну
5. Отсортировать очередь

Сказать по правде я в линейных списках нихрена не понимаю, поэтому если кто возьмется помочь, пожалуйста, комментарии в коде оставьте, если не трудно

ЗЫ: в теме "Все о динамических структурах данных" был, модуль качал.

Заранее спасибо всем, кто откликнется!

[Черный Менестрель]

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

Так я начал =) Перерыл кучу инфы, нашел еще модуль для очереди, в приложении он, однако сортировки там нет.

Неужели не заметил там же мой пост о сортировке очереди, реализованной динамическим списком?

Вот за это прошу прощения, действительно просмотрел, сегодня утром когда пересматривал сохраненную информацию обнаружил этот пост.

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

Код

empty := not assigned(head)
   . . . . .. . . . .
while assigned(p) do

Для чего в этих строках служит assigned?


Вернусь к найденному мной модулю (в приложении), очередь там, как и в вашем примере сортировки, как объект рассматривается. Правда я не понимаю смысла некоторых операций, в частности
function Begining : E;
function IsNotEmpty : boolean; (для чего ее добавили, если рядом function IsEmpty : boolean; ?)

function OutBegining : E;
Procedure DelBegining;
Эти функция и процедура судя по результатам одно и то же выполняют, или я не прав.


ЗЫ: а про объединение очередей вообще никакой информации найти не удалось ((

[Lapp]

некоторые действия мне неясны, в частности

 empty := not assigned(head)
   . . . . .. . . . .
 while assigned(p) do

Для чего в этих строках служит assigned?

Проверка, была ли выделена память под переменные head и p соответственно.

function Begining : E;
function IsNotEmpty : boolean; (для чего ее добавили, если рядом function IsEmpty : boolean; ?)

Либо автор не знаком с операцией NOT, либо крепко ее невзлюбил..

function OutBegining : E;
Procedure DelBegining;
Эти функция и процедура судя по результатам одно и то же выполняют, или я не прав.

Подобное в некоторых случаях оправдано. Особенно, если нельзя вызвать функцию как процедуру (без присваивания). Но в целом, согласен, лишнее. Вообще, я бы не стал рекомендовать этот найденный тобой модуль в качестве примера для подражания..

ЗЫ: а про объединение очередей вообще никакой информации найти не удалось ((

А голова на что? Ты правда надеешься всегда все "находить"?..

Пожалуйста, используй тэг code=pas для паскалевских программ