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

[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