手机qq2012下载:怎样用DELPHI生成一个随机的迷宫图?
来源:百度文库 编辑:高校问答 时间:2024/10/03 04:22:59
运行示例:
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.