записей. Для работы


записей. Для работы с очередью определим четыре элементарные операции: * 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
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz