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


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


      begin

            pnt:=head; i:=1

            repeat

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

                       pnt:=pnt^.next;

                       i:=i+1;

           until pnt=nil;

      end;

      if n=3 then

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

      begin

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

              new(pnt);

              pnt^.data:=s;

              pnt^.last:=current;

              pnt^.next:=current^.next;

              pnt2:=current^.next;

              if not(pnt2=nil) then pnt2^.last:=pnt;

      end;

      if n=4 then

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

       begin

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

             new(pnt);

             pnt^.data:=s;




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



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