Списки Опции

[Guest]

Пожалуйста подскажите!

Как из списка удалить за каждым вхождением элемента Х один элемент,если он есть и отличен от Х.

[volvo]

Тогда что-то вроде этого:

procedure DeleteAfter(var p: ref);
var to_delete: ref;
begin
  to_delete := Crd(p);
  p^.next := Crd(to_delete);
  dispose(to_delete);
end;

{ А вот та самая процедура:  }
Procedure Delete_After(var p: ref);
var
  curr: ref;
  X: integer;
begin
  write('Vvedite X = '); readln(X);
  curr := p;
  while curr <> nil do begin
    if curr^.inf = X then begin
      { если следующий есть и он не равен X ... }
      if (Cdr(curr) <> nil) and (Cdr(curr)^.Inf <> X) then
        DeleteAfter(curr) { ... то удалить его }
    end;
    curr := Cdr(curr);
  end;
end;

Кстати, процедура Delete, насколько я вижу, компилироваться не будет... :no:

[Guest]

Да моя процедура конечно не компилировалась.
Огромное спасибо за помощь :D !!