VPF::[Pascal] Двусвязный список - Форум программистов

Tarantul2007

Дата 7.5.2007, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Нужна процедура удаления элемента из двусвязного списка !

Код


procedure DelEl(var p0:TPList); // p0-указатель на удаляемый элемент
var after:TPList;
begin
if p0=head then begin head:=p0^.next;
                      Dispose(p0);
                      head^.prev:=nil;
                      writeln('Элемент перед удаляемым nil');
                      writeln('Элемент после удаляемого ',head^.data);
                end
           else
if p0^.next=nil then begin after:=p0^.prev;
                           Dispose(p0);
                           after^.next:=nil;
                           writeln('Элемент перед удаляемым ',after^.data);
                           writeln('Элемент после удаляемого nil');
                     end
                else
                begin after:=p0^.next;
                      after^.prev:=head;
                      head^.next:=after;
                      Dispose(p0);
                      writeln('Элемент перед удаляемым ',head^.data);
                      head:=head^.next;
                      writeln('Элемент после удаляемого ',head^.data);
                end;
end;

Я типа пытался что-то сделать но не получается. Получается только для односвязного списка.

keenara

Дата 8.5.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 2.2.2007

Репутация: 2
Всего: 2

А разве есть принципиальная разница между удалением из односвязного и удалением из двусвязного? Когда ты удаляешь из односвязного элемент N ты заменяешь у элемента N-1 указатель чтобы он указывал на N+1.
Удаление из двусвязного - АБСОЛЮТНО то же самое, только нужно еще и заменить указатель на ПРЕДЫДУЩИЙ элемент у элемента N-1.
Делается это точно так же.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »