Двусвязный Кольцевой список (ещё один мааааленький вопрос) Опции

[Everveit]

У меня осталось уже очень мало времени, так что придётся задать ещё вопрос. Насчёт удаления узла. Вот эта процедура делает всё хорошо и правильно (удаляет к-ый элемент) во всех случаях, кроме одного. Естественно, когда к=1. Так как к-1 получается 0. Так вот как же мне оговорить этот случай?

Procedure DeleteNode(var p:Dlist);
var q:dlist;
i,k:integer;
begin
  i:=1;
  writeln ('vvedite k:');
  readln (k);
  if p=nil then writeln ('spisok pust')
  else
   begin
   q:=p^.next;

   while (q<>p) and (i<>k-1) do
   begin
   q:=q^.next;
   inc(i);
   end;
   if i<>k-1 then
   writeln ('uzel ne naiden')
   else
   if q^.next=q then
	  begin
	  p:=nil;
	  dispose(q);
	  end
   else
   begin
   if q=p then
   p:=p^.next;
   q^.prev^.next:=q^.next;
   q^.next^.prev:=q^.prev;
   dispose (q);
   end;
   end;
   end;

Сообщение отредактировано: volvo - 12.05.2010 20:58

[volvo]

Опять же - зачем запрашивать номер элемента для удаления, если список пуст? Это достаточно сделать после проверки на пустоту...

procedure DeleteNode(var p:Dlist);
var
  q: dlist;
  i, k: integer;
begin
  if p = nil then writeln ('spisok pust')
  else begin

    i := 1;
    writeln ('vvedite k:');
    readln (k);

    if k > 1 then begin

      q := p^.next;
      while (q <> p) and (i<>k-1) do begin
        q := q^.next;
        inc(i);
      end;

    end
    else begin { k = 1 }
      i := 0; q := p;
    end;

    if i <> k-1 then writeln ('uzel ne naiden')
    else
      if q^.next = q then begin
        p := nil;
        dispose(q);
      end
    else begin
      if q = p then p := p^.next;

      q^.prev^.next := q^.next;
      q^.next^.prev := q^.prev;
      dispose (q);
    end;
  end;
end;

Оно?

[Renbo]

1. Помойму правельнее для списка говорить ЭЛЕМЕНТ, а для дерева УЗЕЛ....
2.ИЗ того что ты написал, я сперва понял, что тебе надо удалить k-1элемент, то тебе надо вот это добавить:

.....
 IF k=1 then
   begin
     writeln('Вы выбрали 1 элемент. Не возможно удалить элемент перед ним стоящий');
     readkey;
     exit;
   end;
.....

А прочитав ещё раз, понял что тебе надо k-тый. В случае удаления K-того, когда он равен 1(вводишь это число на запрос) происходит удаление элемента из начала списка и ничего для этого оговариваться не должно.
Так что ты с условием-то определись....

Сообщение отредактировано: Renbo - 14.05.2007 20:19

[Everveit]

Renbo, k-ый надо было удалить. Нас учат говорить "узел".

И Volvo, да! именно то, что нужно. Спасибо тебе ещё раз. Ты мне сегодня очень помог. Осталось мне доделать самую малость и можно получать зачёт по инфе. А на сегодня хватит.

Токо вот он почему-то очень странно реагирует на удаление последнего узла, включенного процедурой, кот. ты перед этим сделал (включение узла вслед за к-ым). Его зацикливает. Что бы это значило...

Сообщение отредактировано: Everveit - 14.05.2007 21:03