Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Двусвязные списки
Автор: -Маша- 20.05.2007 19:07
Помогите найти ошибку:
Нужно создать двусвязный список
procedure list(var start,finish:link);
var p,q:link;
begin
while n<>0 do
begin
new(p);
readln(p^.inf);
p^.pred:=nil;
if start=nil then
begin
start:=p; kon:=p;
p^.next:=nil;
end
else
begin
p^.next:=start;
start^.pred:=p;
start:=p;
end;
end;
end;
Автор: volvo 20.05.2007 19:10
Поиск тебе поможет... Сколько же можно одно и то же выкладывать? 