Нужен алгоритм создания двумерного связанного списка. Каждый элемент связан с правым и с нижним, см. рис:

(желательно Pascal)

Я бы делал так:

Структура данных:

Код

type a = ^spisok spisok = record  ParentLeft, ParentTop:a;  ChildDown,ChildRight:a;  znacheniye:integer; end;

Запомнил левый верхний элемент (указатель на него). А потом добавлял по нужному закону (который зависит от задачи) елементы в этот список.
Соотв, в процедуру добавления можно вставить параметр, куда именно (право или низ) прицепить ребенка. И т.п.

Подробнее цель. Элементы движутся? по списку надо ходить в обе стороны?

Или скажем так - а нахрена это? Сформулируй ВСЮ задачу, а не маленький кусочек, а?

Цитата(Limonadni @ 31.10.2004, 12:41)

Нужен алгоритм создания двумерного связанного списка. Каждый элемент связан с правым и с нижним, см. рис: (желательно Pascal)

не большая оговрочка
Каждый элемент у тя не будет связан с правым и нижним

Цитата

Код type a = ^spisok spisok = record ParentLeft, ParentTop:a; ChildDown,ChildRight:a; znacheniye:integer; end;

У каждого элемента (кроме крайних) две связи , соответственно должны остаться только ChildDown, ChildRight:a.

Цитата

Соотв, в процедуру добавления можно вставить параметр, куда именно (право или низ) прицепить ребенка. И т.п.

А как будет происходить связывание элемента 2:2 (на рис.) с 2:1 (строка : столбец), если 2:2 был создан от 1:2, а не от 2:1?

Akina, Элементы не движуться (а как они могут двигаться?). Движение по списку происходит только туда? куда показывают стрелки (условие задачи). Как добраться до конкретного элемента - моя задача. "Нахрена это?" - не ко мне вопрос, учитель задал погеморроится и переделать прогу с 2-мерным дин. массивом под 2-мерный список.

Это сообщение отредактировал(а) Limonadni Joe - 1.11.2004, 22:04

Цитата(Limonadni @ 1.11.2004, 21:52)

У каждого элемента (кроме крайних) две связи , соответственно должны остаться только ChildDown, ChildRight:a.

Ну это если не надо хранить родителей.

Цитата(Limonadni @ 1.11.2004, 21:52)

А как будет происходить связывание элемента 2:2 (на рис.) с 2:1 (строка : столбец), если 2:2 был создан от 1:2, а не от 2:1?

Понял вопрос. Если честно, не вижу никакого другого варианта, как возвратится к первому родителю 2:2 и пойти от родителя в другую сторону чтоб найти 2:1. Или же к другому родителю... Короче говоря, получается эдакая рекурсивная процедура. Во время нее запоминаешь текущие индексы, и понятно куда идти. Правда, времени так много уйдет...

Limonadni Joe

Цитата

Элементы не движуться (а как они могут двигаться?).

А зачем тогда связи? храни их в массиве, связи обеспечиваются значениями индексов, "дырявость" - null в элементе.

Akina, Задание и условие его решения придумывал не я. НАДО использовать список.

Вообщем справился самостоятельно. См. пример:

Код

type  PElem = ^TElem;  TElem = record    Data: integer;    Right, Bottom: PElem;  end; function CreateList(const n: integer): PElem; // создание квадратного списка со стороной n, и возвращение его первого элемента var  cur_c, cur_r: PElem; // cur_r - первый эл. текущей строки, cur_c - текущий эл. текущей строки  i: integer; begin  New(Result);  // создаём первую строчку                  cur_c := Result;                for i := 1 to n - 1 do begin      New(cur_c^.Right);              cur_c := cur_c^.Right;        end;                            // создание остальных строк  cur_r := Result;  for i := 1 to n - 1 do begin // для не квадратного списка высотой m заменить n на m    cur_c := cur_r;    New(cur_c^.Bottom);    while cur_c^.Right <> nil do begin      New(cur_c^.Right^.Bottom);      cur_c^.Bottom^.Right := cur_c^.Right^.Bottom;      cur_c := cur_c^.Right;    end;    cur_r := cur_r^.Bottom;  end; end;

Если хотите понять, как работает, лучше вручную (с карандашиком) продебагить первые две с половиной строчки 2-мерного списка.

Если можно сделать красивее или что-то упростить, напишите.

Это сообщение отредактировал(а) Limonadni Joe - 2.11.2004, 17:29