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

> Внимание! Действует предмодерация

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

> Все о динамических структурах данных.
сообщение
Сообщение #1


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

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

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


Содержание:
Есть материал по теме? высылайте! ваша информация будет размещена здесь!


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


Гость






Дек
Еще один вариант структуры данных - очередь с двойным доступом, или, как ещё ее называют - двухконечная очередь (Double Ended Queue). Для дека добавление и удаление элементов возможны с обоих концов списка.

С деком возможны следующие операции:
  1. Добавление элемента в "голову" дека
    Procedure PushStart(Var Deq: TDeq; Ch: TData);
  2. Добавление элемента в "хвост" дека
    Procedure PushFinish(Var Deq: TDeq; Ch: TData);
  3. Изъятие элемента из "головы" дека
    Function PopStart(Var Deq: TDeq): TData;
  4. Изъятие элемента из "хвоста" дека
    Function PopFinish(Var Deq: TDeq): TData;
В присоединенном файле содержится текст модуля для работы с деком.

Пример использования модуля:
Uses DeqUnit;
Var mD: TDeq;
Begin

InitDeq(mD);
PushStart(mD, 'A');
PushStart(mD, 'B');
PushFinish(mD, 'F');
PushFinish(mD, 'G');
PrintDeck(mD);

While not isEmpty(mD) Do
WriteLn( PopFinish(mD) );

DestroyDeq(mD);

End.


Прикрепленные файлы
Прикрепленный файл  DEQUNIT.PAS ( 2.64 килобайт ) Кол-во скачиваний: 1925
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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