Структуры и алгоритмы обработки данных


Циклические списки - часть 3


                 repeat

                           writeln(i, - v -, pnt^.data);

                           pnt:=pnt^.next; i:=i+1;

                 until pnt=current;

        end;

        if n=3 then

{Добавление нового элемента справа от текущего}

        begin

                 writeln(-элемент-); readln(s);

                 new(pnt);

                 pnt^.data:=s;

                 pnt^.last:=current;

                 pnt^.next:=current^.next;

                 pnt2:=current^.next;

                 pnt2^.last:=pnt;

                 current^.next:=pnt;

        end;

        if n=4 then

{Добавление нового элемента слева от текущего}

        begin

                 writeln(-элемент-); readln(s);




Начало  Назад  Вперед



Книжный магазин