Динамические структуры данных, 2 задачи Опции

[neZvezda]

1) Составить программу, которая удаляет из списка L все элементы E, если таковые имеются.

2) Составить программу, которая переносит в конец непустого списка L его элемент.

как почитала в Faq, надо использовать 1.создание, 2.вывод, 3.поиск и 4.удаление? Или что-то еще?

[Altair]

вторая

uses crt;
Type
 TElem = integer;

 TList = ^TNode;
 TNode = record
	 Info: TElem;
	 Next: TList
	 end;


procedure  BListAddLast(var L: TList; E: TElem);   {добавление в хвост}
var
 N: TList;
 P: TList;
Begin
 new(N);
 N^.Info :=E;
 N^.Next :=nil;
 if L= nil then L:=N else
 begin
  P:=L;
  while P^.Next <> nil do P:=P^.Next;
  P^.Next:=N
 end
End;

function BListDelElem1(var L: TList; E: TElem): boolean;
var
 N: TList;
 P: TList;
 found: boolean;
begin
 found:=false;
 if L<>nil then if L^.Info =E then begin
  found:=true;
  N:=L;
  L:=L^.Next;
  dispose(N)
 end else  begin
  P:=L;
  while not found and (P^.Next <> nil) do  if P^.Next^.Info = E then found:=true
 else P := P^.Next;
 if found then  begin
   N := P^.Next;
   P^.Next := N^.Next;
   dispose(N)
  end
 end;
 BListDelElem1:=found
end;


procedure BListPrint(L: TList );
begin
 write('[ ');
 while L <> nil DO
 begin
  write( L^.Info );
  If L^.Next <> nil then write(' | ');
  L := L^.Next
 end;
 writeln(' ]')
end;

procedure ListClear ( var L: TList );
var
 N: TList;
begin
 while L <> nil do
 begin
  N :=L;
  L:=L^.Next;
  dispose(N)
 end
end;
var
 c,i,N:integer;
 A:Tlist;

Begin
 write('Введите число элементов списка : ');readln(n);
 A:=nil;
 writeln('Ввод элементов (элементы добавляются в хвост');
 for i:=1 to n do begin
  write('введите ',i,' элемент: '); readln©;
  BListAddLast(A,c);
 end;
 ClrScr;
 writeln('Вы ввели список :');  BlistPrint(a);
 write('Введите элемент которые необходимо перенести в конец: '); readln( с );
 if BlistDelelem1(A,c) then  begin
  BlistAddLast(a,c) ;
  writeln('полученный список:');
  BListPrint(a);
 end   else writeln('элемент не найден!');
 readln;
 ListClear(a);
End.

трава "FAQ: CTRL+C -> CTRL+V" (С) Вставляет!!!