Проверка кода Делфи. Динамический кольцевой список

[agrestid]

Как р достигнет нила,если список кольцевой?

При прогоне программы,он сразу из нее выходит,не желая ничего удалять

[Serge_Bliznykov]

Сообщение от agrestid

Как р достигнет нила,ем список кольцевой?

а вот Вы правы!!!
А я нет!
извините, конечно же,
в случае кольцевого списка нужно проверять не nil, а событие, когда указатель укажет на голову!

т.е. попробуйте очистку так:

// очистка списка с освобождением занятой памяти
procedure Erase;
var
  p,pnext : PP;
begin
  if head=nil then Exit; {список пустой, делать тут нечего}
  p:=head;
  repeat
    pnext := p^.next;
    dispose(p);
    p := pnext;
  until p=head;
  head := nil; {ну и обнулим указатель на список}
end;

p.s. вывод в файл тоже нужно сделать аналогичным циклом!

[agrestid]

А что будет с указателем,когда мы удалим ячейку памяти,на которую он указывает?

Лемент,на который указывает голова,мы же удалили

[Serge_Bliznykov]

ну, от того, что мы удалили элемент, значение указателя, который ссылался на эту область памяти, никак не изменится.
Разумеется, брать значение по ссылке из указателю, после того, как сделали ему dispose - не корректно.
но, если Вы обратите внимание, я для этого и завёл вторую переменную, как раз по этой причине.
мы в неё берём указатель на следующий элемент. освобождаем текущую область памяти и идём дальше.

Короче, Вы проверили код (прошлись в отладчике) и он не работает?
или почему этот вопрос возник?

[agrestid]

Отлично,всё работает!!

[agrestid]

procedure Delete; 
var 
 s, h: PP; 
 Number: integer; 
 Familia: string[20]; 
 last: pp; 
begin 
 Writeln(ToRus('Ââåäèòå êëþ÷è
 ïîèñêà: íîìåð òåë
 åôîíà è ôàìèëèþ')); 
 Readln(Number); 
 Readln(Familia); 
 s := head; 
 h := head; 
 
 while ((s^.dbook.f <> Familia) and (s^.dbook.t <> Number)) or (s^.next <> h) 
 do 
 s := s^.next; 
 
 if s = h then 
 Writeln(ToRus('Íåò ñîâïàäåíèé')) 
 
 else 
 begin 
 
 last := head; 
 while last^.next <> s do 
 last := last^.next; 
 Last := s^.next; 
 dispose(s); 
 end; 
 
end;

Зацикливание в первом вайле
Почему?

[Serge_Bliznykov]

зацикливание, потому что логическое условие составлено неверно.
у Вас написано следующее
пока (фамилия не равна) ИЛИ (номер не равен) ИЛИ (следующий элемент не равен голове списка)
выполнять переход на следующий элемент.

очевидно, что если ЛЮБОЕ из условий выполняется, то будет переход.

что это цикл должен найти?

[Poma][a]

у Вас написано следующее

Не совсем....

[Serge_Bliznykov]

Сообщение от Poma][a

Не совсем....

мда.. Вы правы.
где мои глаза?!!

там же AND

но суть не меняется.
логика нарушена.

<условие_поиска_не_нашлось> ИЛИ <не последний элемент>

допустим, <<условие_поиска_не_нашлось> выполнилось
первая часть стала FALSE
вопрос - цикл выполнится.
и тут всё зависит от второй части, если нашлось и элемент не последний - то вторая часть условия <не последний элемент> - TRUE
и цикл выполнится дальше.

цикл прервётся ТОЛЬКО в том случае, если требуемые критерии СТРОГО в последнем элементе списка.
тогда оба условия дадут FALSE - и цикл остановится.

[agrestid]

Почему он не читает из файлов и отказывается туда записывать массив?
Когда прогоняю про брейкпоинту,он просто проскакивает цикл записи в файл и завершает процедуру