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

[neZvezda]

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

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

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

[volvo]

Ну, примерно, вот так решается первая задача (это без процедур, только Print вынесен отдельно):

uses crt;
type
  point = ^item;
  item = record
    number: integer;
    next: point
 end;


procedure print(first: point);
var r: point;
begin
  r := first;
  while r <> nil do begin
    writeln('number = ', r^.Number);
    r := r^.next;
  end;
end;

var
  p, r, first: point;
  found: boolean;
  n, E: integer;

begin
  clrscr;
  first := nil;

  write('Первый элемент: '); readln(n);
  while n > 0 do begin
    new( r );
    r^.next := first;
    r^.Number := n;
    first := r;
    write('следующий (0 для выхода): '); readln(n)
  end;

  print(first); { исходный список }
  write('Введите число E: '); readln(E);

  repeat
    { Поиск элемента Е }
    found := false;
    P := first;
    while not found and ( P^.Next <> nil ) do
      if p^.next^.number = E then found := true
      else p := p^.next;

    { Если найден - удалить }
    if found then begin
      r := p^.next;
      p^.next := r^.next;
      dispose( r )
    end;

  until not found; { Пока что-то находится }

  { Печатаем, что получилось }
  print(first);
end.