洛谷 P2670 扫雷游戏

最新推荐文章于 2025-01-06 17:49:15 发布

disPlayLzy_

最新推荐文章于 2025-01-06 17:49:15 发布

阅读量1.4k

点赞数 2

CC 4.0 BY-SA版权

分类专栏：暴力/枚举/模拟 pascal

本文链接：https://blog.youkuaiyun.com/Gx_Man_VIP/article/details/53442876

pascal 同时被 2 个专栏收录

326 篇文章

订阅专栏

暴力/枚举/模拟

206 篇文章

订阅专栏

本文介绍了一个简单的扫雷游戏程序实现，使用了二维布尔数组记录雷区，并通过嵌套循环来计算每个格子周围的雷数。程序读取输入创建地图，并输出最终带有雷数的地图。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这里写图片描述
优美的暴力

var
  a:array [0..101,0..101] of boolean;
  i,j,m,n,ii,jj,o:integer;
  g:char;
begin
   readln(m,n);
   fillchar(a,sizeof(a),false);
   for i:=1 to m do
       begin
          for j:=1 to n do
              begin
                 read(g);
                 if g='*' then a[i,j]:=true;
              end;
          readln;
       end;
     for i:=1 to m do
         begin
            for j:=1 to n do
                begin
                   if a[i,j]=false
                      then begin
                               o:=0;
                               for ii:=-1 to 1 do
                                   begin
                                      for jj:=-1 to 1 do
                                      if a[i+ii,j+jj] then o:=o+1;
                                   end;
                               write(o);
                           end
                      else write('*');
               end;
            writeln;
         end;
end.