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

[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

[Renbo]

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

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

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

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