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


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


        writeln(-2 v список элементов-);

        writeln(-3 v добавить справа-);

        writeln(-4 v добавить слева-);

        writeln(-5 v удалить текущий-);

        writeln(-6 v удалить справа от текущего-);

         writeln(-7 v удалить слева от текущего-);

         writeln(-0 v выход-);

         writeln(-текущий элемент: -, current^.data);

         readln(n);

         if n=1 then

{Выбор нового текущего элемента}

         begin

                  writeln(--); readln(s);

                  pnt:=current; point:=current;

                  repeat

                          if pnt^.data=s then current:=pnt;

                          pnt:=pnt^.next;

                 until pnt=point;

         end;

         if n=2 then

{Вывод всех элементов}

         begin

                 pnt:=curent; i:=1




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



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