Доклад: Основні принципи модульного програмування та стеки

{пошукпотрiбногомiсцявставки }

begin

curr:=first; {покажчикпоточногоелементавказуєнаперший}

repeat

prev:=curr; {покажчик попереднього елемента вказує на

поточний елемент}

curr:=curr^.next; {покажчик поточного елемента вказує на

наступнийелемент}

if curr=nil

then done:=true

else done:=curr^.number>=reg;

until done; {переадресацiя пари покажчикiв до тих пiр, поки значення

даних, що введене, бiльше за тих, що є в списку: until curr^.number>=reg;}

{вставка нового елемента }

prev^.next:=newptr;

newptr^.next:=curr;

end

end; { кiнецьпроцедури insert}

{вилучення елемента iз списку, перший елемент вилучається останнiм}

procedure delete;

begin

if first=nil then {якщосписокпорожнiй}

begin

writeln('List is empty.Press ENTER...');

readln;

end

else {якщо список не порожнiй}

begin

write('input element:');