| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как из A(x1,y1) в B(x2,y2) в StringGrid?

abba ©   (2006-10-22 21:29:00) 

Лабиринт задан в виде матрицы размером n на m. Стенам лабиринта соответствуют единицы, проходам - нули. Определить, можно ли из точки с координатами (i1, j1) попасть в точку с координатами (i2, j2).
Спасибо.

---

TUser   (2006-10-23 07:42:00) [1]

См. алгоритм Дейкстры

Для твоей задачи примерно так
all flags := false;
flags[A] := true;
for each cell do
 for each cell do // да раза, это не опечатка
   if not flags[this cell] then
     for each acell do
       if flags[acell] and (acell рядом с cell) then
         flags[cell] = true
return flags[B]

+ очевидная оптимизация

---

Loginov Dmitry   (2006-10-22 23:09:00) [2]

http://kladovka.net.ru/download.cgi?id=239

Задачу выполнит на 100%. Только без StringGrid'ов %)

---

Kolan   (2006-10-22 22:14:00) [3]

О исправил:

Было:
  NewField(10, 10, 100);

Стало:
  NewField(10, 10, 2);

И добавить:
procedure TCustomField.InitializeFieldWithRandomRanges(Range: Integer);
var
 I, J: Integer;
begin
 Randomize;
 for I := Low(FCells) to High(FCells) do
   for J := Low(FCells[I]) to High(FCells[I]) do
   begin
     FCells[I, J].Data := Random(Range);
     FCells[I, J].Coordinates := Point(I, J);
     if (I = 0) or (J = 0) or (I = FRowCount - 1) or (J = FColCount - 1) then
     begin
       FCells[I, J].CellType := ctBorder;
       FCells[I, J].Data := -1;
     end;
     if FCells[I, J].Data = 0 then
       FCells[I, J].CellType := ctBorder;
   end;
end;

---

Kolan   (2006-10-22 21:42:00) [4]

Да, чтобы был лабиринт там надо кое-что подправить.. Точно делал. Надо чтобы клетки с "0" были такогоже типа что и окоймление.

Те свойство:

property CellType: TCellType read FCellType write FCellType;

Должно быть:

TCellType =
   (
     ctUsualCell,
      ctBorder ,
     ctSelected,
     ctSelectedStart,
     ctSelectedEnd

ЗЫ
 Все по памяти...
   );

---

abba   (2006-10-22 21:40:00) [5]

Спасибо

---

Kolan   (2006-10-22 21:39:00) [6]

Послал, за качество не пинать...

> А этот метод равных цен использует рекурсию?

А как же.

---

Kolan   (2006-10-22 21:37:00) [7]

http://www.fvt.rsu.ru/index.php?page=student&selection=main&navigation=help_kfield&topic=help

Вспомнил, даже статью сдела про неё(для её части) для одногрупников. Во.. делать нечего было :)

---

abba   (2006-10-22 21:36:00) [8]

А этот метод равных цен использует рекурсию?

---

abba   (2006-10-22 21:35:00) [9]

Было бы неплохо
Tolikmor@tut.by

---

Kolan   (2006-10-22 21:34:00) [10]

300kB Могу дать :)

---

Kolan   (2006-10-22 21:33:00) [11]

> [0] abba   (22.10.06 21:29)
> Лабиринт задан в виде матрицы размером n на m. Стенам лабиринта
> соответствуют единицы, проходам - нули. Определить, можно
> ли из точки с координатами (i1, j1) попасть в точку с координатами
> (i2, j2).
> Спасибо.


Метод равных цен. Есть программка - лаба с соответствующим качеством :)

---

Наверх