записей. Для работы
записей. Для работы с очередью определим четыре элементарные операции:
*
init - создает пустую очередь;
*
empty - возвращает значение true, если очередь пуста и false в противном случае;
*
insert - добавляет элемент в конец очереди;
*
remove - удаляет элемент из начала очереди.
Покажем, как можно записать операции работы с очередями на языке Паскаль.
Прежде всего должен быть описан массив, моделирующий очередь. Пусть это будет массив, содержащий maxqueue элементов. Следует иметь в виду, что переменную maxqueue удобно описать как константу и присвоить ей значение, равное максимальному числу элементов в очереди.
S[0]: = 0;
for i:= 1 to N do {1. 1}
S[i]: = S[i - 1] + a[i];
Type Queue=array[1.. maxqueue] of real;
procedure insert(x:integer;
var H: array [0..n] of integer;
var Num:integer;
var code:integer;);
var i;
begin
if Num=n
then
code:=1
else
begin
Num:=Num+1;
i:=Num;
H[0]:=x; {барьер}
while (x < H[i div 2]) do
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
