не могу доделать задачу

[HalvaForever]

доброго времени суток! в школе учитель дал задачу, которую нужно через паскаль решить. задача: дан лес, нужно поджечь дерево и рассчитать время горения леса. вообщем лес я создал и выбрал дерево, с которого начнется пожар. дальше я делаю проверку через цикл for каждого дерева, стоит ли оно рядом с только что подоженным. если бы рядом стояло только одно дерево и дальше всегда стояло бы только одно дерево, то все просто. а я не знаю, что делать, когда сразу несколько деревьев рядом, как дальше от них вести счет. подскажите. мне решение не нужно, нужно что-то типа совета.

[s-andriano]

То есть вам нужно как бы распараллелить алгоритм на несколько деревьев?
Обычно это делается припомощи структуры данных типа стек или очередь.
Предполагаю, что горение у Вас организовано по тактам - каждый такт "поджигает" новую порцию деревьев.
Тогда нужно применить очередь.
С одной стороны в нее запихиваются те деревья, что вновь подожжены, а с другой - добываются горящие деревья, которые должны поджечь соседние.

[HalvaForever]

Сообщение от s-andriano

То есть вам нужно как бы распараллелить алгоритм на несколько деревьев?
Обычно это делается припомощи структуры данных типа стек или очередь.
Предполагаю, что горение у Вас организовано по тактам - каждый такт "поджигает" новую порцию деревьев.
Тогда нужно применить очередь.
С одной стороны в нее запихиваются те деревья, что вновь подожжены, а с другой - добываются горящие деревья, которые должны поджечь соседние.

вы все правильно поняли! пойду искать информацию об очереди

[Rififi]

HalvaForever

задача: дан лес, нужно поджечь дерево и рассчитать время горения леса.

Ознакомь учителя с Уголовным Кодексом РФ:

Статья 261. Уничтожение или повреждение лесов
1. Уничтожение или повреждение лесов, а равно насаждении, не входящих в лесной фонд, в результате неосторожного обращения с огнем или иными источниками повышенной опасности —
наказываются штрафом в размере от двухсот до пятисот минимальных размеров оплаты труда или в размере заработной платы или иного дохода осужденного за период от двух до пяти месяцев, либо исправительными работами на срок до двух лет, либо лишением свободы на срок до двух лет.
2. Уничтожение или повреждение лесов, а равно насаждений, не входящих в лесной фонд, путем поджога, иным общеопасным способом либо в результате загрязнения вредными веществами, отходами, выбросами или отбросами —
наказываются лишением свободы на срок от трех до восьми лет.

[HalvaForever]

Сообщение от Rififi

HalvaForever

задача: дан лес, нужно поджечь дерево и рассчитать время горения леса.

Ознакомь учителя с Уголовным Кодексом РФ:

Статья 261. Уничтожение или повреждение лесов
1. Уничтожение или повреждение лесов, а равно насаждении, не входящих в лесной фонд, в результате неосторожного обращения с огнем или иными источниками повышенной опасности —
наказываются штрафом в размере от двухсот до пятисот минимальных размеров оплаты труда или в размере заработной платы или иного дохода осужденного за период от двух до пяти месяцев, либо исправительными работами на срок до двух лет, либо лишением свободы на срок до двух лет.
2. Уничтожение или повреждение лесов, а равно насаждений, не входящих в лесной фонд, путем поджога, иным общеопасным способом либо в результате загрязнения вредными веществами, отходами, выбросами или отбросами —
наказываются лишением свободы на срок от трех до восьми лет.

спасибо, вы очень помогли

[Poma][a]

Вечер Добрый.
Могу предложить еще такой вариант :
Берем массив (для наглядности - массив_символов)
Инициализируем лес

for i := 1 to CntRow
     for j := 1 to CntCol do
         forest[i, j] := Tree;

Ставим границы по краям массива

procedure PutBoders (var forest : TForest);
var
        i, j : Integer;
begin
        for i := 0 to CnstRow+1 do begin
                forest[i, 0] := Boder;
                forest[i, CnstCol+1] := Boder
        end;

        for i := 0 to CnstCol+1 do begin
                forest[0, i] := Boder;
                forest[CnstRow+1, i] := Boder
        end
end;

Далее выбираем поджигаемое дерево.

Write('Coordinates Of Burnt Tree : '); ReadLn (n, m);

А затем поджигаем все деревья рядом стоящие с данным деревом :

BurnTree (forest, n, m, 1);

procedure BurnTree (var forest : TForest; const n, m, k : Integer);

begin
          for i := n-k to n+k do
               for j := m-k to m+k do
                      if forest[i, j] = Tree then
                            forest[i, j] := Burn;

         PrintForest(forest);

         BurnTree (forest, n)     
end;

Тоесть будет рекурсия.. Да это не эффективно.. Но работать будет (если Вы найдете "дно рекурсии")

Внимание! Т.к. уже поздно и дел у меня не початый край - я писал всё прямо в браузере..


UPDATE
Т.к. Вам выводить лес не обязательно, то можно всё более-менее упростить..

if forest[n-1, m] = Tree then begin
        forest[n-1, m] := Burn;
        BurnTree (forest, n-1, m)
end;

if forest[n+1, m] = Tree then begin

// etc

Использую 2-ой способ всё будет настолько просто, что шансы допустить ошибку будут ужасно малы.. Но за эту простоту Вам придется заплатить выводом..

[HalvaForever]

Сообщение от 'Poma

BurnTree (forest, n-1, m)

что значит эта запись?

[Poma][a]

А что такое пользовательские процедуры\функции Вы знаете?

[HalvaForever]

Сообщение от Poma][a

А что такое пользовательские процедуры\функции Вы знаете?

видимо нет

[s-andriano]

Poma][a, фактически Вы предлагаете реализацию совпадающую с распространением волны в волновом алгоритме. Там существуют достаточно эффективные алгоритмы, как правило, с применением той же очереди.
Плюс такого подхода - гораздо менее ресурсоемко находить соседей (хотя и здесь есть эффективные способы), минус - довольно странная метрика dist := min(dx,dy); вместо привычного dist := sqrt(sqr(dx) + sqr(y));, ну и деревья допустимо помещать только в узлах сетки, а не где попало.