|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2009, 13:19 | #1 |
Пользователь
Регистрация: 13.04.2009
Сообщений: 12
|
Двусвязные списки
Я не прошу решить мне какую то задачу, просто прошу написать как создать двусвязный(или кольцевой) список и 2 процедуры, 1 с головы другая с хвоста проходят этот список.
Если у кого то есть ссылка как сделать такое буду очень признателен. Просмотрел несколько форумов и книг нигде не смог найти такого примера, преподователь в институте объяснил только как создать первый элемент, но этого мало для задачи. |
13.04.2009, 13:22 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
13.04.2009, 13:42 | #3 |
Пользователь
Регистрация: 13.04.2009
Сообщений: 12
|
Он открывает учебник и читает...при этом в односвязных списках он даже рассказал не только про создание первого элемента, но и вставку элемента в голову.
Весь год сам разбирался в паскале, а вот со списками щас напряг... {--------------------------} Program spisok; uses crt; type Srec = ^rec; rec = record int: Integer; Prev: Srec; Next: Srec; end; var First,Cursor,Last: Srec; i: Integer; ch: char; procedure proc(first : Srec); var p : Srec; begin p:=First; while p<>nil do begin write(p^.int); p:=p^.next; end; end; begin clrscr; new(First); First^.Int := 1; First^.Next := nil; First^.Prev := nil; i:=1; repeat i:=i+1; new(Cursor); Cursor^.Int := i; Cursor^.Next := First; Cursor^.Prev := nil; First^.Prev := Cursor; First := Cursor; writeln(i); readkey; ch:=readkey; until CH='q'; proc(first); end; у меня вот так получилось написать...дальше не могу И кажеться что я что то напутал с Next и Prev или процедуру неправильно написал Последний раз редактировалось Serp; 13.04.2009 в 13:46. |
14.04.2009, 16:13 | #4 |
Пользователь
Регистрация: 13.04.2009
Сообщений: 12
|
Видимо на этом форуме никто не знает списки...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
с++ списки | Blizzz | Общие вопросы C/C++ | 3 | 04.12.2008 21:19 |
Списки | Bremlin | Microsoft Office Excel | 10 | 04.11.2008 15:13 |