« Предыдущий вопрос
Стеки

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

Загрузка
Скачать Получить на телефон
например +79131234567

txt fb2 ePub html

на телефон придет ссылка на файл выбранного формата

Что это

Шпаргалки на телефон — незаменимая вещь при сдаче экзаменов, подготовке к контрольным работам и т.д. Благодаря нашему сервису вы получаете возможность скачать на телефон шпаргалки по информационным технологиям. Все шпаргалки представлены в популярных форматах fb2, txt, ePub , html, а также существует версия java шпаргалки в виде удобного приложения для мобильного телефона, которые можно скачать за символическую плату. Достаточно скачать шпаргалки по информационным технологиям — и никакой экзамен вам не страшен!

Сообщество

Не нашли что искали?

Если вам нужен индивидуальный подбор или работа на заказа — воспользуйтесь этой формой.

Следующий вопрос »
Древовидные структуры данных

Древовидной структурой данных называется конечное множество элементов-узлов, между которыми су

Очереди


Очередью называется динамическая структура данных, добавление компоненты в которую производится в один конец, а выборка осуществляется с другого конца. Очередь работает по принципу FIFO (First-In, First-Out) – «Поступивший первым, обслуживается первым».


Пример. Составить программу, которая формирует очередь, добавляет в нее произвольное количество компонент, а затем читает все компоненты.


Program QUEUE;


uses Crt;


type


Alfa = String[10];


PComp = ^Comp;


Comp = record


sD: Alfa;


pNext: PComp;


end;


var


pBegin, pEnd: PComp;


sC: Alfa;


Procedure CreateQueue(var pBegin,pEnd: PComp; var


sC: Alfa);


begin


New(pBegin);


pBegin^.pNext:= NIL;


pBegin^.sD:= sC;


pEnd:= pBegin;


end;


Procedure AddQueue(var pEnd: PComp; var sC:


Alfa);


var pAux: PComp;


begin


New(pAux);


pAux^.pNext:= NIL;


pEnd^.pNext:= pAux;


pEnd:= pAux;


pEnd^.sD:= sC;


end;


Procedure DelQueue(var pBegin: PComp; var sC:


Alfa);


begin


sC:= pBegin^.sD;


pBegin:= pBegin^.pNext;


end;


begin


Clrscr;


writeln( ВВЕДИ СТРОКУ );


readln(sC);


CreateQueue(pBegin, pEnd, sC);


repeat


writeln( ВВЕДИ СТРОКУ );


readln(sC);


AddQueue(pEnd, sC);


until sC = 'END';