VPF::Списки - Форум программистов

peter86

Дата 3.6.2008, 19:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите написать процедуру, создающую кольцевой двунаправленный список.

baldina

Дата 3.6.2008, 19:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3433
Регистрация: 5.12.2007
Где: Москва

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

что значит "создающую"?
тебе нужно определить
1. структуру данных (на основе record), содержащую данные и указатели на предыдущий-следующий узел списка
2. написать процедуру инициализации таким образом, что бы голова указывала на хвост и наоборот. для списка из одного элемента он будет указывать сам на себя
3. написать процедуры, добавляющие/удаляющие элемент списка
4. процедуру обхода списка.

вообще-то кольцевой список предопределенного размера можно создать на основе массива

сам что-нить попробовал? какие возникли проблемы?

peter86

Дата 3.6.2008, 20:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Написать процедуру, например - Procedure Create(var L:DP);
Где
DP = ^DType;
DType = record
  Inf:Integer;
  Next:DP;
  Prev:DP;
end;
В этой процедуре с клавиатуры вводятся N чисел, которые становятся элементами списка;
В результате L указывает на начало списка.

volvo877

Дата 3.6.2008, 21:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Практически идентично созданию обычного двухсвязного списка, только добавляется еще установка first^.prev и last^.next:

Код

type
  DP = ^DType;
  DType = record
    Data: integer;
    Prev, Next: DP;
 end;

procedure CreateRing(var first: DP; const n: integer);
var
  p, last: DP;
  i, X: integer;
begin
  last := nil;

  for i := 1 to n do begin
    write(i:3, ' => '); readln(s);
    new(p);
    p^.data := s; p^.next := nil; p^.prev := last;

    if First = nil then First := p
    else last^.next := p;

    last := p;
  end;
  first^.prev := last;
  last^.next := first;
end;

Это сообщение отредактировал(а) volvo877 - 3.6.2008, 22:01

peter86

Дата 3.6.2008, 21:29 (ссылка)

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

Загрузка ...

Новичок

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

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

volvo877, а разве в двусвязном кольцевом списке prev первого элемента не ссылается на последний?
И еще может есть у кого-нибудь процедуры добавления и удаления элемента, после указанного.
Например Procedure Del(P:DP; N:Integer);
Где P - элемент списка, после которого следует добавить N.

volvo877

Дата 3.6.2008, 22:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(peter86 @ 3.6.2008, 21:29

)

а разве в двусвязном кольцевом списке prev первого элемента не ссылается на последний?

А читать ты не научился?

Цитата(volvo877 @ 3.6.2008, 21:02

)

только добавляется еще установка first^.prev и last^.next:

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