Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Последний вопрос по двусвязному кольцевому списку

Автор: Everveit 16.05.2007 0:10

Итак, всё замечательно теперь со всеми моими процедурами. За исключением одной детали. Pascal зацикливает, если попробовать удалить последний элемент.

Процедура удаления к-ого элемента:

 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
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;


Процедура добавления элемента вслед за к-ым:

Procedure AddNewNode (var p:Dlist; info:integer);
var
newnode:Dlist;
q,pp:Dlist;
i,kk:integer;
begin
i:=1;
if (p = nil) then
begin
New(q);
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.next:=q;
q^.prev:=q;
p:=q;
end
else begin
writeln ('vvedite k:');
readln (k);
q:=p^.next;
if p=q then dec(i);
while (q<>p) and (i<k-1) do
begin
q:=q^.next;
i:=i+1;
end;
if i<>k-1 then
writeln ('nepravilniy nomer')
else begin
new(pp);
writeln ('vvedite info:');
readln(info);
pp^.next:=q^.next;
pp^.next^.prev:=pp;
q^.next:=pp;
pp^.info:=info;
end;
end;
end;

Автор: volvo 16.05.2007 0:24

Последний - имеется в виду, скажем 5-ый из пяти, который указывает на первый, или единственный, который указывает сам на себя?

Автор: Everveit 16.05.2007 0:32

5-ый из 5. С единственным он нормально всё делает. Был элемент и нет его. А вот с "5-ым из 5" он глючит.

Причём, кстати, последний элемент, который включён вот этой процедурой (включение нового элемента в конец списка), всё нормально:

Procedure CreateNewNode (var p:Dlist; info:integer);
var
newnode:Dlist;
pos:Dlist;
begin
New (newnode);
newnode^.info:=info;
if (p = nil) then
begin {spisok pustoi}
newnode^.next:=newnode;
newnode^.prev:=newnode;
p:=newnode;
end;
newnode^.prev:=p^.prev;
newnode^.next:=p;
p^.prev^.next:=newnode;
p^.prev:=newnode;
end;

Автор: volvo 16.05.2007 0:34

Ничего не глючит... Только что проверил на 5 элементах как раз - все нормально отработало...

Автор: Everveit 16.05.2007 0:39

ээээээ.... blink.gif А у меня зацикливает...в чём же причина... blink.gif blink.gif blink.gif

Автор: volvo 16.05.2007 0:41

Присоединяй полностью программу с файлами данных, потому что я делал добавление своей процедурой AddNewNode...

Автор: Everveit 16.05.2007 0:41

Может быть в процедуре вывода на экран? Хотя за ней не было замечено ничего плохого до сих пор...

Procedure Showlist(p:Dlist);
var
pos:Dlist;
begin
if (p = nil) then exit;
pos:=p;
repeat
writeln (pos^.info);
pos:=pos^.next;
until (pos = p)
end;


Ну хорошо, я всё прикрепила...


Прикрепленные файлы
Прикрепленный файл  SPISKI1.PAS ( 5.45 килобайт ) Кол-во скачиваний: 204

Автор: volvo 16.05.2007 1:03

Ты неправильно делаешь кое-что в процедуре AddNewNode... Вот твой текст:

...
if i<>k-1 then
writeln ('nepravilniy nomer')
else begin
new(pp);
writeln ('vvedite info:');
readln(info);
pp^.next:=q^.next; { !!! Внимание - начиная отсюда !!! }
pp^.next^.prev:=pp;
q^.next:=pp;
pp^.info:=info;
end;
...

А теперь сравни это с тем, что я тебе показывал здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=17416&view=findpost&p=102019

(в частности, обрати внимание - pp^.prev у тебя вообще не изменяется, хотя должно...)

Автор: Everveit 16.05.2007 1:13

Слушай точно. Я строчку пропустила! Я бы долго искала! unsure.gif Ну вот какой ты молодец! Теперь всё хорошо. Если бы не ты, то хана бы мне была от списков. Спасибо тебе большое. Какой замечательный и полезный форум! smile.gif