Очередь [Delphi]

[MariaD]

Смоделировать (т.е. объявить тип структуры и описать библиотеку UNIT1 статических процедур для работы со структурой) линейную очередь как массив из n компонент типа real, в котором элементы очереди занимают группу соседних компонент; индексы первой и последней компоненты запоминаются; когда очередь достигает правого края, все ее элементы сдвигаются к левому краю:

В библиотеку UNIT1 должны войти процедуры:
Ochistka (Q) – создать пустую очередь (очистить очередь)
PustOch (Q) – выдает истину, если очередь пустая
InOchered (Q, x) – добавить элемент в конец очереди
OutOchered (Q, x) – удалить из очереди первый элемент, присвоив его
параметру x
Oshibka (k) – выдает к- номер ошибки, если операция с очередью невыполнима:
к=1 – очередь переполнена
к=2 – очередь исчерпана
Написать вызывающую программу, в которой подключается модуль UNIT1, для демонстрации работы линейной очереди.

Кто сможет сделать и за сколько?
пишите http://vk.com/id48139053

[CrazyDave]

аська 411-886-семь ноль два

[Larboss]

Отписал в вк.