Поиск кратчайшего пути в лабиринте

Содержание
1. Введение
2. Формальная постановка задачи
3. Методы решения
4. Модульная организация приложения
4.1 Общая схема взаимодействия модулей
4.2 Описание модулей
5. Текст программы
6. Руководство пользователя
7. Тестовый пример игры
Заключение
Список литературы
1. Введение
Условие решаемой задачи дословно по заданию звучит следующим образом: «Задан лабиринт, составленный из комнат, у каждой из которой имеется не менее одной и не более трех дверей, соединяющих между собой различные комнаты. Одна из дверей называется входом в лабиринт, другая — выходом. Найти кратчайший путь от входа в лабиринт к его выходу ».
Целью представленной работы является разработка приложения “Поиск кратчайшего пути”, которое создает лабиринт и находит кратчайший путь его прохождения и отображает его.
Лабиринт задается во входном файле, в том же файле указываются координаты входа и выхода, и для начала работы нам необходимо выбрать нужный лабиринт, программа должна выдать размер кратчайшего пути, нарисовать лабиринт и показать этот путь.
Если же путь не найден программа выдает сообщение, о том что данный путь не существует.
2. Формальная постановка задачи
Для программной реализации необходимо формализовать структуры данных задачи и рассмотреть методы ее решения. Лабиринт мы задаем во входном файле матрицей, состоящих из 8, 0 и 1. Каждая запись массива определяет комнату лабиринта — восьмерка характеризует саму комнату и четыре координаты вокруг нее (0- стена или 1- проход) есть или нет проход. Так же во входном файле задаются координаты входа, выхода и размерность массива. Именно с этим массивом работает программа при нахождении пути.
3. Методы решения задачи
Существует довольно много различных методов решения подобной задачи, каждый из которых основывается на своих принципах и приемах, имеет уникальные преимущества и, соответственно, недостатки. В данной работе был использован метод нахождения кратчайшего пути на графе.
Этот алгоритм определяет расстояние между вершинами в простом орграфе с неотрицательными весами. Если граф не взвешен, то можно считать, что все ребра имеют одинаковый вес.
Возьмем простой граф для каждого ребра определим вес, то есть длина любого ребра больше 0. Найдем кратчайший путь между вершинами которые мы определили как начала и конец. Несуществующие ребра будем считать ребрами с бесконечными весами. Сумму весов ребер в пути будем называть весом или длиной пути. Алгоритм поиска кратчайшего пути, начинаем из вершины которую мы обозначили как начало, просматривает граф в ширину помечая пройденные вершины значениями-метками их расстояния от начала. Метки могут быть временные и окончательные. Окончательная метка- это минимально расстояние на графе от начала до пройденной вершины. Таким образом, в каждый момент времени работы алгоритма некоторые вершины будут иметь окончательные метки, а остальная их часть – временные. Алгоритм заканчивается, когда конечная вершина получает окончательную метку, то есть расстояния от начала до конца.
Вначале первой вершине присваивается окончательная метка 0 (нулевое расстояние до самой себя) а каждой из остальных вершин присваивается временная метка бесконечность. На каждом шаге метки меняются следующим образом.
1. Каждой вершине, не имеющей окончательной метки, присваивается новая временная метка – наименьшая из ее временной и числа, которому присвоена окончательная метка на предыдущем шаге.
2. Определяется наименьшая из всех временных меток, которая и становится окончательной меткой своей вершины. В случае равенства выбирается любая из них.
Циклический процесс п.1 и п.2 продолжается до тех пор, пока конечная вершина не получит окончательной метки. Легко видеть, что окончательная метка каждой вершины – это кратчайшее расстояния между начальной и конечной вершинами.
4. Модульная организация приложения
Реализация проекта выполнена в рамках трех модулей. Каждый из них выполняет определенные для него функции. Разделение функций модулей выполнено в соответствии с задачами проекта. В общем случае разделение выполняется на две составные части: проведение расчетов и визуализация полученных данных.
4.1 Общая схема взаимодействия модулей
4.2 Описание модулей
Каждый из модулей реализует свой класс. Описание модулей призываются к описанию классов (их назначения) и методов классов (решения определенных задач класса).
1). UnWay — модуль реализации класса TWay проведения всех вычисления нахождения кратчайшего пути.
Методы класса T Way.
Procedure TWay.Input — процедура ввода перегородок комнаты
Procedure TWay.CreateAdj — процедура формирование матрицы смежности комнат
Procedure TWay.ShortRoom – процедура поиска минимального пути
2). UnDraw — модуль реализации класса TOcno
Методы класса TOcno.
Procedure TOcno.Organize - процедура формирует сеть прямоугольников
Procedure TOcno.DrawWay – процедура рисует найденный кратчайший путь
Procedure TOcno.DrawRect – процедура рисует перегородки лабиринта
5. Текст программы
В данном пункте приводятся тексты отдельных наиболее значимых разработанных классов приложения и их ключевых методов.
Класса TWay вычисления маршрута коня по шахматному полю.
TWay = class
Public
nmDataFile:String;
fout:TextFile; {Файл печати данных}
nX:Integer; { Количество вершин в графе }
Mark:TypeMark; { Признаки временных и постоянных меток }
Dist:TypeDist; { Значения текущих меток вершин (расстояния) }
Prev:TypePrev; { Указатель на ближайшую вершину }
x0:Integer; { Вершина начала пути }
z:Integer; { Вершина конца пути }
y:Integer; { Последняя вершина с постоянной меткой }
nr,mr:Integer; {Размеры комнат барьеров}
Adj:TypeAdj; {Структура смежности}
nA:Integer; {Число комнат и вершин}
Wr:TypeWe; {Перегородки комнат}
zEnd:Integer; { Вершина конца пути-найденная }
Public
Constructor Init;
Destructor Done;
Procedure Input;
Procedure CreateAdj;
Procedure ShortRoom;
function YesRib(xr,yr:Integer):Boolean;
end;
Ключевые методы класса TMaze
// процедура ввода перегородок комнаты
Procedure TWay.Input;
var f:TextFile; {Файл ввода данных}
i,j,w:Integer;
i0,j0:Integer;
iz,jz:Integer;
begin
AssignFile(f,nmDataFile);
Reset(f);{Файл открыт для чтения}
ReadLn(f,i0,j0); {Начало пути}
ReadLn(f,iz,jz); {Конец пути}
ReadLn(f,nr,mr); {Размеры комнаты барьеров}
//---------------------------------------------
x0:=(i0-1)*mr+(j0-1); //Комната-Начало
z:=(iz-1)*mr+(jz-1); //Комната-Конец
zEnd:=z;
//---------------------------------------------
//Обнулить
for i:=1 to nr do begin
for j:=1 to mr do begin
Wr[i,j].L:=0;
Wr[i,j].U:=0;
Wr[i,j].R:=0;
Wr[i,j].D:=0;
end;
end;
for i:=1 to nr do begin
//----------------------------------------
if i=1 then
for j:=1 to mr do Read(f,Wr[i,j].U)
else
for j:=1 to mr do Wr[i,j].U:=Wr[i-1,j].D;
//----------------------------------------
for j:=1 to mr do begin
if j=1 then Read(f,Wr[i,1].L);
Read(f,w,Wr[i,j].R);
if jDist[y]+1) then begin
Dist[x]:=Dist[y]+1;
Prev[x]:=y;
end;
{Поиск вершины с минимальной временной меткой}
yes:=False;
weight:=$7fffffff;
for x:=0 to nX do if not Mark[x] then if weight>Dist[x] then begin
weight:=Dist[x];
y:=x;
yes:=True;
end;
if not yes then begin
Write(fout,'Нет выхода из лабиринта!');
showmessage('нет выхода из лабиринта');
zEnd:=y; //Последняя пройденная
break;
end;
Mark[y]:=TRUE;
end;
Класса TOcno рисование лабиринта
TOcno = class(TObject)
public
mI:TRect;//Железное окно
mC:TCanvas;//Графический контекст
m,n:Integer;//Размерность (m,n)
R: array of array of TRect;//Сеть прямоугольников
C0,C1: TColor;
public
procedure Init();
procedure Done();
procedure Draw(wCvas:TCanvas; wIron:TRect; md:TWay);
procedure DrawRect(i,j:Integer; md:Tway);
procedure Organize(zR: TRect);
function MouseRect(mX,mY:Integer; md:Tway):Boolean;
procedure DrawWay(md:Tway);
end;
Ключевые методы класса TOcno.
// процедура формирует сеть прямоугольников

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию