Чуть переделать действие Опции

[Clon]

Вот я составил прогу, основываясь на материалах с этого форума по спискам.
Вот только в эти две процедуры мне надо переделать так, чтобы они добавляли элементы перед и после ЛЮБОГО элемента из списка соответственно, а не только в начало и в конец. Помогите, если не трудно

Procedure Dobnach(var L: TList; E:TElem); {Добавление элемента в начало списка}
var
 N: TList;
Begin
 new(N);
 writeln('vvedite element');
 readln(data);
 if data='t' then E:=true;
 if data='f' then E:=false;
 N^.Info:=E;
 N^.Next:=L;
 L:=N
end;
procedure Dobend(L: TList; E: TElem);{Добавление элемента в конец списка}
begin
 while L^.Next<>nil do L := L^.Next;
 new(L^.Next );
 L:=L^.Next;
 writeln('vvedite element');
 readln(data);
 if data='t' then E:=true;
 if data='f' then E:=false;
 L^.Info:=E;
 L^.Next:=nil
end;

Тегами пользуемся...

Сообщение отредактировано: volvo - 2.11.2006 20:19

[Clon]

Пытался вчера сделать удаление для любого элемента из списка, но что-то фигня какая-то выходит. Почему-то постоянно стирает как и нужный элемент и все те, что после него.

[volvo]

Пытался вчера сделать удаление для любого элемента из списка, но что-то фигня какая-то выходит.

У меня вот что вышло:

Procedure DelAfter(Var L: Tlist; X: integer);
Var
  T, r: Tlist;
Begin

  if X = 0 then begin
    T := L;
    L := L^.next;
    dispose(T);
  end
  else begin

    r := L;
    while (r^.next <> nil) and (X > 1) do begin
      r := r^.next; Dec(X)
    end;
    if X = 1 then begin

      T := r^.next;
      if T <> nil then r^.next := T^.next
      else r^.next := T

    end;

  end;

End;

...
{ Вызов: }
    case z of
      ...
      6   :
        begin
          write('delete element #'); readln(X);
          DelAfter(L, X - 1);
        end;
      ...
    end;

Вроде, работает...