Динамические структуры данных

@jerrald · Регистрация: 27.12.2010

Студворк — интернет-сервис помощи студентам

Списки.Задание:
Двусвязный список: создание, добавление в начало, удаление первого
элемента списка.
Проблема вот в чем:
Создаю список, добавляю в начало, удаляю все элементы, хочу добавить в начало и выдает ошибка
Думаю ошибка в удалении или в добавлении. Вот код

Delphi

procedure delet( var p:ptt);
{процедура удаления первого элемента}
var q:ptt;
begin
if p<>nil then
begin
q:=p^.next;
showmessage('Элемент удален'+inttostr(p^.inf));
dispose (p);
p:=q;
end;
end;
 
procedure add(var p:ptt);
{процедура добавления элемента в начало списка }
var q:ptt;
begin
q:=p;
if q^.prev=nil then begin
New(p);
p^.inf:=strtoint(form1.edit1.text);
p^.next:=q;
p^.prev:=nil;
q^.prev:=p;
end
else add(p^.prev);
end;

@pHOMM · 04.06.2012, 09:01

Трассировка/отладка (кнопки F4 F5 F7 F8) спасут отца русской демократии. На крайний случай:
Динамические структуры данных. Организация данных в списковые структуры
Динамические структуры данных (списки, очереди, стеки, деревья)

@pHOMM 480 / 253 / 51 Регистрация: 30.06.2010 Сообщений: 651
	04.06.2012, 09:01	2
	Трассировка/отладка (кнопки F4 F5 F7 F8) спасут отца русской демократии. На крайний случай: Динамические структуры данных. Организация данных в списковые структуры Динамические структуры данных (списки, очереди, стеки, деревья) 0

Опции темы