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


Линейные списки - часть 4


          end;

var

        i,n: integer;

       head: pointer;

       current, pnt, pnt2: ^element;

       s:string;

begin

new(current);

head:=current;

current^.data:=head;

current^.next:=nil;

current^.last:=nil;

repeat

        writeln(-1 v сделать текущим-);

        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:=head;

            repeat

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

                    pnt:=pnt^.next;

           until pnt=nil;

      end;

      if n=2 then

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




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



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