Реферат Пошук шляху в лабіринті

tify">// заново створюємо лабіринт = false;

CreateLabirint ();

// створюємо корінь дерева = new leaf;> parent = NULL; = 0; = 0;

// отрісовиваємих пусто лабіринт

Draw (); = "Виробляється пошук шляху. (Вкл/відкл інформацію - Пробіл) "; = true;

// шукаємо шлях.> GrowTree (A, root);

// отрісовиваємих ();

// якщо так і не нвшлі (max == 0) {= "Шлях неможливо знайти! Лабіринт слід перебудувати! "; (" Шлях неможливо знайти! Лабіринт слід перебудувати! "); p align="justify">} else {

// якщо знайшли, то виводимо повідомлення = "Шлях знайдений!"; ("Знайдений шлях, що проходить через" + IntToStr (a [A. x] [A. y]. number) + "кімнат"); ("Зібрано монет:" + IntToStr (max));} = false;

}

// ---------------------------------------- -----------------------------------

// встановлюємо розміри графічного буфера

void __ fastcall TForm2 :: FormCreate (TObject * Sender)

{> Width = Form2-> Width;> Height = Form2-> Height;

Draw ();

}

// ---------------------------------------- -----------------------------------