Волновой алгоритм, Обьясните по человечески Опции

[XaMMaX]

Ну ни как не могу врубится в волновой алгоритм! Плиз пример кода простой и понятный!!

[XaMMaX]

Единственное что мне пришло в голову это:
Каждый раз пробегать весь мосив , допустим ищю 1 пробегаю массив и каждому найденому 1 применяю процедуру(для обозначения 2) потом так же с два и т.д. но ресурсов я чувствую это сожрёт не меренно =) Volvo, HELP!!!

[Michael_Rybak]

Каждый раз пробегать весь мосив , допустим ищю 1 пробегаю массив и каждому найденому 1 применяю процедуру

Молодец. Это правильно, и это будет работать, но, действительно, медленно.
Вместо того, чтобы каждый раз бегать по всему массиву, лучше заведи еще другой, линейный массив записей (x, y), в который пихай все вершины, в которые что-пишешь. И просто иди по нему слева направо. Вроде такого:

type TCoord = record x, y: integer end;
var pp: array[1 .. 100] of TCoord;
    np: integer; //количество пройденных клеток
    mark: array[1 .. 10, 1.. 10] of integer;

procedure Wave(i0, j0: integer);
  var i, j, cp: integer;
      p, p1: TCoord;
begin
  //все поле заполняем минус единицами
  for i := 1 to 10 do
    for j := 1 to 10 do
      mark[i, j] := 1;

  if a[i0, j0] = 0 then
    exit; //клацнули по пустой клетке

  //в начале обошли только клацнутую клетку
  mark[i0, j0] := 0;
  p.x := i0;
  p.y := j0;
  np := 1;
  pp[1] := p;

  cp := 1;
  while cp <= np do begin
    p := pp[cp]; //текущая клетка
    if (p.x < 10) and (a[p.x + 1, p.y] = 0) and (mark[p.x + 1, p.y] = -1) then begin
      p1.x := p.x + 1;
      p1.y := p.y;
      mark[p1.x, p1.y] := mark[p.x, p.y] + 1;
      np := np + 1;
      pp[np] := p1;
    end;
    if (p.x > 1) and (a[p.x - 1, p.y] = 0) and (mark[p.x - 1, p.y] = -1) then begin
      ...
    end;
    if (p.y < 10) and ...
    if (p.y > 1) and ...
 
    cp := cp + 1;
  end;
end;