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

[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