yandex rtb 1
ГоловнаЗворотній зв'язок
yande share
Главная->Математика і інформатика->Содержание->Листинг 4.4. Процедура вставки элемента

Алгоритмы структуры данных

Листинг 4.4. Процедура вставки элемента

procedure  INSERT   (   х:   elementtype;   p:   ↑celltype   );

var

current,   newcell:   ↑celltype;

begin

current:=  p;

while current↑.next <> nil do begin

if current↑.next↑.element = x then

return;   {  элемент x уже есть  в списке  }

if current↑.next↑.element > x then

goto add; { далее останов процедуры }

current:= current↑.next

end;

add: {здесь current — ячейка, после которой надо вставить х}

new(newcell) ;

newcell↑.element := х;

newcell↑.next:= current↑.next;

current↑.next:= newcell

end; { INSERT }

 

48