Курсовая работа: Динамические структуры данных. Решение задач. Стек. Очередь. Дек

4. Очередь заполнена случайным образом целыми числами. Добавить в начало очереди произведение всех элементов.

5. Вычесть из всех элементов очереди число вводимое с клавиатуры.

6. Прибавить ко всем элементам число вводимое с клавиатуры. Очередь заполнена целыми числами.

7. Записать очередь в обратном порядке. Очередь заполняется с клавиатуры.

8. Дана очередь из целых чисел. Удалить из нее числа кратные заданному с клавиатуры числу.

9. Элемент из начала очереди поменять с последним элементом.

10. Дана очередь из целых чисел. Поменять в очереди первый элемент со вторым, третий с четвертым и так далее до конца очереди.

11. В начало очереди поместить элементы с четными номерами, а вконец – с нечетными.

12. Очередь состоит из целых чисел. Поместить в начало очереди четные, а вконец – нечетные элементы.

Основные процедуры:

Стек:

{Реализация стека на основе массива}

Program st;

Uses Crt;

Const n=10;

Type typeelem=Integer;

stack=Array Of typeelem;

Var s:stack; y:typeelem; i: Integer;

Procedure init; {создание стека }

Var i: Integer;

Begin

For i:=1 To n Do s:=-1000

End; {init}

Procedure list; {распечатка содержимого стека }

Var i: Integer;

Begin

Writeln;

i:=1;

While And Do Begin Writeln; Inc End