2015扫雷游戏

Posted 2020-08-12

题目描述 Description

扫雷游戏是一款十分经典的单机小游戏。 在 n 行 m 列的雷区中有一些格子含有地雷（称之为地雷格） ，其他格子不含地雷（称之为非地雷格） 。玩家翻开一个非地雷格时，该格将会出现一个数字——提示周围格子中有多少个是地雷格。 游戏的目标是在不翻出任何地雷格的条件下，找出所有的非地雷格。
现在给出n行m列的雷区中的地雷分布， 要求计算出每个非地雷格周围的地雷格数。
注：一个格子的周围格子包括其上、下、左、右、左上、右上、左下、右下八个方向上与之直接相邻的格子。

输入描述 Input Description

输入文件第一行 是用一个空格隔开的 两个整数n和m， 分别表示雷区的行数和列数。

接下来 n 行，每行 m 个字符，描述了雷区中的地雷分布情况。字符 ‘*‘ 表示相应格子是地雷格，字符 ‘?‘ 表示相应格子是非地雷格。相邻字符之间无分隔符。

输出描述 Output Description

输出文件包含 n 行，每行 m 个字符，描述整个雷区。用 ‘*‘ 表示地雷格，用周围的地雷个数表示非地雷格。相邻字符之间无分隔符。

样例输入 Sample Input

输入样例 1
3 3
*??
???
?*?

输入样例 2
2 3
?*?
*??

样例输出 Sample Output

输出样例 1
*10
221
1*1

输出样例 2
2*1

*21

数据范围及提示 Data Size & Hint

对于 100%的数据，1≤n≤100，1≤m≤100

 

 

 

题解：

模拟（其实noip模拟很多的）。

又是一道noip普及组的送分题，很简单的。

var n,m,i,j,s,k:longint;

    a:array[0..101,0..101]of char;

    x:array[1..8]of longint=(-1,-1,-1,0,0,1,1,1);

    y:array[1..8]of longint=(-1,0,1,-1,1,-1,0,1);

begin

 readln(n,m);

 for i:=1 to n do

  begin

   for j:=1 to m do read(a[i,j]);

   readln;

  end;

 for i:=1 to n do

  for j:=1 to m do

   begin

    s:=0;

    for k:=1 to 8 do inc(s,ord(a[i+x[k],j+y[k]]=‘*‘));

    if a[i,j]=‘*‘ then write(‘*‘)

                  else write(s);

    if j=m then writeln;

   end;

end.