2.扫雷游戏

（mine.cpp/c/pas）

【问题描述】

扫雷游戏是一款十分经典的单机小游戏。在n行m列的雷区中有一些格子含有地雷（称之为地雷格），其他格子不含地雷（称之为非地雷格）。玩家翻开一个非地雷格时，该格将会出现一个数字——提示周围格子中有多少个是地雷格。游戏的目标是在不翻出任何地雷格的条件下，找出所有的非地雷格。

现在给出n行m列的雷区中的地雷分布，要求计算出每个非地雷格周围的地雷格数。

注：一个格子的周围格子包括其上、下、左、右、左上、右上、左下、右下八个方向上与之直接相邻的格子。

【输入格式】

输入文件名为mine.in。

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

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

【输出格式】

输出文件名为mine.out。

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

【输入输出样例1】 mine.in mine.out 3 3 *10 *?? 221

??? 1*1

?*?

见选手目录下的mine/mine1.in和mine/mine1.ans。 【输入输出样例2】 mine.in mine.out 2 3 2*1 ?*? *21 *?? 见选手目录下的mine/mine2.in和mine/mine2.ans。

【输入输出样例3】

见选手目录下的mine/mine3.in和mine/mine3.ans。

【数据说明】

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

源程序：

program mine; const

movei:array[1..8] of integer=(0,1,1,1,0,-1,-1,-1); movej:array[1..8] of integer=(1,1,0,-1,-1,-1,0,1); var

n,m,i,j:integer;

map:array[1..100,1..100] of char; procedure print;

vark,ans,ii,jj:integer; begin ans:=0;

for k:=1 to 8 do begin

ii:=i+movei[k]; jj:=j+movej[k];

if (1<=ii)and(ii<=n)and(1<=jj)and(jj<=m)and(map[ii,jj]='*') then inc(ans); end;

write(ans); end; begin

assign(input,'mine.in'); assign(output,'mine.out'); reset(input); rewrite(output); readln(n,m); for i:=1 to n do begin

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

for i:=1 to n do begin

for j:=1 to m do

if map[i,j]='?' then print else write('*'); writeln; end;

close(input); close(output); end.