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

/ інакше запам'ятовуємо номер кімнати у дорозі

String s = IntToStr (a [i] [j]. number);

// запам'ятовуємо його розміри при отрісовкеI = i * m + m-buffer-> Canvas-> TextWidth (s);

int J = j * n + n-buffer-> Canvas-> TextHeight (s);> Canvas-> Brush-> Color = clLime;> Canvas-> Font-> Color = clBlack;

// і виводимо його на зеленому тлі

buffer-> Canvas-> TextOutA (I, J, s);;}

// режим відображення знайденого путі1: {

buffer-> Canvas-> Brush-> Color = clLime;> Canvas-> Pen-> Color = clBlack;> Canvas-> Font-> Color = clBlack;

// збільшуємо розмір шрифту> Canvas-> Font-> Size + = 3,

// запам'ятовуємо розміри надпісіs = IntToStr (a [i] [j]. number); I = buffer-> Canvas-> TextWidth (s); J = buffer-> Canvas- > TextHeight (s);

// розраховуємо її координати, щоб вивести посередині

int x = i * m + (mI)/2; y = j * n + (nJ)/2;

// якщо ця кімната не включена в дорогу то зафарбовуємо її

if (a [i] [j]. number == 0)> Canvas-> Brush-> Color = clWhite;

buffer-> Canvas-> Rectangle (i * m, j * n, i * m + m, j * n + n);

// інакше виводимо її номер від вхідних по порядку

if (a [i] [j]. number! = 0)> Canvas-> TextOutA (x, y, s);> Canvas-> Font-> Size- = 3;

break;}

// вивід інформації про сокровіщах2: {

buffer-> Canvas-> Font-> Color = clBlack;> Canvas-> Brush-> Color = clYellow;> Canvas-> Pen-> Color = clBlack;

buffer-> Canvas-> Font-> Size + = 3;

// запам'ятовуємо розміри виведеної написи

String s = IntToStr (a [i] [j]. sokrovihe); I = buffer-> Canvas-> TextWidth (s); J = buffer-> Canvas-> TextHeight (s);

int x = i * m + (mI)/2; y = j * n + (nJ)/2;

// якщо кімната не включена в дорогу, то фон робимо білим

if (a [i] [j]. number == 0)> Canvas-> Brush-> Color = clWhite;

buffer-> Canvas-> Rectangle (i * m, j * n, i * m + m, j * n + n),

buffer-> Canvas-> TextOutA (x, y, s);> Canvas-> Font-> Size-= 3;}

}}

// копіюємо всі намальоване з буфера у вікно програми

Form2-> Canvas-> CopyRect (TRect (0,0, Form2-> Width, Form2-> Height),> Canvas, TRect (0,0, Form2-> ; Width, Form2-> Height));

}

// рекурсивна функція перевірки відвідування комнатиleaf :: IsVisited (int x, int y, leaf * obj)

{

// якщо координати цієї кімнати не збігаються з координатами...