Задача на ссылочные типы данных, Не выходит решить... Опции

[Eskel]

Спасибо огромное форуму. Смог решить 2 задачи по вставке и удалению элемента при работе с динамической памятью. Вот только не пойму как решить с помощью описанных у вас процедур 2 задачи:

1)

type tip_elem=integer;
     ukaz=^dinam;
     dinam=record
       ed:tip_elem;
       next:ukaz;
     end;

.
Удалить из списка Ukaz за каждым вхождением элемента Е один элемент отличный от Е (если он есть).

2) Певая часть условия совпадает... Удалить из списка Ukaz все нули

[volvo]

А вот чтобы удалять нулевой элемент, надо принять во внимание 2 вещи: во-первых, если нули начинают список, то указатель на начало списка может измениться. А во-вторых, удалять текущий элемент надо гораздо более внимательно, чем "следующий". Итого, я бы сделал твои задачи в 2-х процедурах: сначала удалить элементы после E, а потом - вот это:

procedure del_zeroes(var root: ukaz);
var
  r, t, pred: ukaz;
  delete: boolean;
begin
  while root^.ed = 0 do begin
    t := root;
    root := root^.next;
    dispose(t);
  end;

  pred := root; r := root^.next;
  while r <> nil do begin

    delete := false;
    if r^.ed = 0 then begin
      t := r;
      pred^.next := r^.next;
      delete := true
    end
    else pred := r;

    r := r^.next;
    if delete then dispose(t);

  end;
end;

Что непонятно - спрашивай...