查人人中国名人网合金装备5静静故事:怎样用DELPHI生成一个随机的迷宫图?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:07:10
运行示例：
input m n road_percent: 10 10 70
10 10
.#....#...
#..##.....
.#...#.#..
.#....#..#
..#....#..
.#...#..#.
#..###.#..
#..#..#...
....#.##..
#......#.#
其中，road_percent表示生成的迷宫中通路所占百分比。'.'表示通路，'#'表示墙。
程序如下：
program gen_maze;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
wall = '#';
road = '.';
space = 0;
var
i,j,k,m,n,road_percent: integer;
begin
randomize;
write('input m n road_percent: ');
readln(m,n,road_percent);
if ((m < 1) or (n < 1))
then
exit;
writeln(m,' ',n);
for i := 1 to m
do
begin
for j := 1 to n
do
begin
if (random(100) < road_percent)
then
write(road)
else
write(wall);
for k := 1 to space
do
write(' ');
end;
writeln;
end;
readln;
end.