Удаление элементов в списках Опции

[Tribunal]

Мне нужно удалить из списка элементы, встречающиеся ровно 2 раза.

вот то,что у меня получилось,
но ,по-видимому, программа не удаляет нужные элементы.
подскажите,пожалуйста,почему...

Код

var
   temp:integer;
   k:byte;
   p,h:t_ptr;
begin
t:=first;
while t^.next<>nil do
begin
   k:=0;
   p:=t^.next;
   while p<>nil do
    begin
      if p^.inf=t^.inf then begin
                            inc(k);
                            if k=2 then temp:=p^.inf;
                            end;
      p:=p^.Next;
    end;
   if k=2 then begin
               h:=first;
               while h<>nil do
                begin
                  if h^.inf=temp then dispose(h);
                  h:=h^.next;
                end;
               end;
   t:=t^.next;
end;
t:=first;
while t<>nil do
  begin
    writeln(t^.inf);
    t:=t^.next;
  end;

Сообщение отредактировано: Tribunal - 26.04.2006 10:53

[volvo]

Tribunal, проблема не только там, где тебе подсказал Бродяжник... Есть еще несколько очень узких мест в твоей программе... Смотри. Допустим, твой список целых чисел, имеет вид:
<1, 2, 3, 2, 4, 5, 3, 3>
Что происходит при применении твоего алгоритма? Пара двоек находится без проблем, об удалении сейчас не говорим... Допустим, они корректно удалились. Что будет дальше? Тройки. Вначале программа не будет ничего удалять, так как их тут три штуки (и это правильно, удалять их не надо...)

А вот потом, после просмотра 4 и 5, программка найдет только две тройки, и благополучно их удалит (ты же почему-то просматриваешь список с элемента, следующего за T; то, что перед T тоже могут быть уже пропущенные, и явно не удовлетворяющие условиям удаления элементы, ты выпустила из вида?)