 |
|
Модераторы: volvo877, Snowy, MetalFan |
 
|
|
Создение двусвязного списка, помогите найти ошибку 
| Маша |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 17 Регистрация: 23.1.2007 Репутация: нет Всего: нет |
Помогите пожалуйста найти ошибку в коде. Нужно создать двухсвязный список
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; |
|||
|
||||
Загрузка ...
| Misha_White |
|
|||
 Бывалый  Профиль Группа: Участник Сообщений: 207 Регистрация: 25.4.2007 Где: Кодинск Репутация: нет Всего: 1 |
Маша,
Что такое link? --------------------
Я не волшебник... я только учусь... |
|||
|
||||
| Маша |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 17 Регистрация: 23.1.2007 Репутация: нет Всего: нет |
link=^rec;
rec=record inf:integer; next,pred:link; end; |
|||
|
||||
| Misha_White |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 207 Регистрация: 25.4.2007 Где: Кодинск Репутация: нет Всего: 1 |
Маша,
 Используй подсветку кода... Добавлено через 2 минуты и 30 секунд Маша,
Во первых, чему равно n? Этот цикл бесконечный... --------------------
Я не волшебник... я только учусь... |
|||
|
||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
procedure list(var start,finish:link);
var get,next:link; begin if start<>nil then begin new(get); readln(get^.inf); next:=start^.next; start^.next:=get; get^.prev:=start; next^.prev:=get; get^.next:=next; end else begin new(get); readln(get^.inf); start:=get; end; а зачем finish он в принципе не нужен , ведь все изменения остаются в переменной start |
|||
|
||||
| Маша |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 17 Регистрация: 23.1.2007 Репутация: нет Всего: нет |
Misha_White,Там в конце цикла while спрашивается, чему равно n.
Какую подсветку? Добавлено через 2 минуты и 23 секунды vvv_1984, спасибо! P.s. просто список двусвязный, и надо чтобы был указатель и на начало, и на конец |
|||
|
||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
эту процедуру и вставляй в свой while, и создавай список, при каждом вызове процедуры будет добавляться один элемент.
Добавлено через 39 секунд щас пару минут!!! |
|||
|
||||
| Misha_White |
|
||||||
|
Бывалый Профиль Группа: Участник Сообщений: 207 Регистрация: 25.4.2007 Где: Кодинск Репутация: нет Всего: 1 |
Маша,
Где?
Подсветку кода... Например:
--------------------
Я не волшебник... я только учусь... |
||||||
|
|||||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
function finish_link(var start:link):link;
var get:link; begin get:=start; if get=nil then exit; while get^.next<>nil do get:=get^.next; finish:=get; end; |
|||
|
||||
| Misha_White |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 207 Регистрация: 25.4.2007 Где: Кодинск Репутация: нет Всего: 1 |
Маша,
Procedure PutOne (a:integer; Old:Link; var P:link); {Процедура,которая позволяет создать список,состоящий из элементов, следующих друг за другом } begin P:=New(Link); {Функция,которая создает новую динамическую } {переменную и устанавливает на нее указатель} Old^.Next:=P; P^.inf:=a; P^.Next:=nil; P^.Prev:=Old; Old:=P; end; Это сообщение отредактировал(а) Misha_White - 20.5.2007, 17:39 --------------------
Я не волшебник... я только учусь... |
|||
|
||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
вот в принципе код который возвращает последний список!
|
|||
|
||||
| Маша |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 17 Регистрация: 23.1.2007 Репутация: нет Всего: нет |
В данном коде я ее случайно забыла написать, но она там предполагается. |
|||
|
||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
Misha_White,
ну я не компилировал, не проверял на ошибки я просто по памяти написал, алгоритм то верный!!!!!!!!!! |
|||
|
||||
| Misha_White |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 207 Регистрация: 25.4.2007 Где: Кодинск Репутация: нет Всего: 1 |
Маша,
Есть целиком исходник такой проги... --------------------
Я не волшебник... я только учусь... |
|||
|
||||
| vvv_1984 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.5.2007 Репутация: нет Всего: нет |
Маша,
а задание то какое конкретнее!!!! исходник выкладывай! Это сообщение отредактировал(а) vvv_1984 - 20.5.2007, 17:43 |
|||
|
||||
|
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
[ Время генерации скрипта: 0.1146 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |