Maze solving: Difference between revisions

m
minor fixes, added output
(Added Delphi solution)
m (minor fixes, added output)
Line 1,104:
=={{header|Delphi}}==
<p>Code requires source code of [[Maze generation]]</p>
<lang pascal>procedure SolveMaze(var AMaze: TMaze; const S, E: TPoint);
<lang pascal>
procedure SolveMaze(var AMaze: TMaze; const S, E: TPoint);
var
Route : TRoute;
Line 1,159 ⟶ 1,158:
begin
Main;
end.</lang>
{{out}}
</lang>
<pre>
+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
| | | S * * | |
+ + + +---+ + +---+---+---+ + +---+---+ +---+---+---+---+---+---+ +---+ + +
| | | | | | | | | | * | | | | |
+ + +---+ + +---+ +---+ +---+ + +---+ + +---+ +---+---+ +---+ + + +
| | | | | | | * * * | | | | | |
+ + +---+ +---+---+---+ +---+---+---+ +---+---+ +---+---+---+---+---+ +---+---+ +
| | | * * * * * | * | | | | | | |
+ +---+ +---+ +---+---+---+ +---+---+ + + +---+ + + +---+---+ + + +---+
| | | | * * * | | * * * | * * | | | | | | | |
+ + +---+ +---+---+ + +---+---+ +---+ +---+ + +---+---+---+ +---+ + + +
| | | | * | | * * * | | | | | |
+---+---+ +---+ + + + +---+ +---+---+---+ +---+---+ + + +---+ +---+---+ +
| | | | | * | | | | | | | | |
+ + + + +---+ + +---+ +---+---+ + +---+ +---+ + +---+ +---+ +---+---+
| | | | E * | * * | | | | | | | | | | |
+ +---+---+ +---+ +---+ + + + +---+ +---+ +---+---+ + +---+---+---+---+ +
| | | | * | * | | | | | | |
+ +---+ +---+ + +---+ +---+---+---+ +---+ +---+ + +---+---+ +---+ +---+---+
| | | | * * | * | | | | | | |
+---+---+ + + + + + + +---+---+---+ +---+ +---+---+ + +---+ +---+---+ +
| | | | | * * | | | | | | |
+ +---+---+ + +---+---+---+---+ + + +---+---+---+ +---+---+---+ +---+---+---+ +
| | | | | | | | | | |
+---+ +---+ +---+ + +---+---+---+ +---+ +---+ +---+---+ +---+---+ +---+---+---+
| | | | | | | | | | | | | | |
+ + + +---+ + +---+---+ + + + +---+ + + + + + + + + +---+ +
| | | | | | | | | |
+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
</langpre>
 
=={{header|EasyLang}}==
Anonymous user