作业帮用Free Pascal IDE写程序,这道题该怎么写?
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/16 02:22:52
用Free Pascal IDE写程序,这道题该怎么写?
牧场里的奶牛们都患有十分严重的恐高症,所以它们只有在盆地中玩耍才会有安全感,牧场被划分成了H*W个小方格,每个小方格都有一个海拔高度,盆地是指那些海拔高度不高于周围8个小方格的小方格,编一程序统计牧场里共有多少个这样的盆地小方格.假设边缘的方格都不是盆地小方格.
输入样例
4 5
2 3 4 5 7
7 1 8 9 10
8 1 3 2 8
9 9 9 9 9
输入样例
3
样例说明
盆地小方格为第2行第2列(海拔高度为1)、第3行第2列(海拔高度为1)、第3行第4列(海拔高度为2)的三个小方格.
牧场里的奶牛们都患有十分严重的恐高症,所以它们只有在盆地中玩耍才会有安全感,牧场被划分成了H*W个小方格,每个小方格都有一个海拔高度,盆地是指那些海拔高度不高于周围8个小方格的小方格,编一程序统计牧场里共有多少个这样的盆地小方格.假设边缘的方格都不是盆地小方格.
输入样例
4 5
2 3 4 5 7
7 1 8 9 10
8 1 3 2 8
9 9 9 9 9
输入样例
3
样例说明
盆地小方格为第2行第2列(海拔高度为1)、第3行第2列(海拔高度为1)、第3行第4列(海拔高度为2)的三个小方格.
const c:array[1..8,1..2] of longint=((1,0),(-1,0),(1,1),(-1,1),(0,1),(-1,-1),(1,-1),(0,-1));
var
n,m,i,j,k,h,s:longint;
a:array[0..1000,0..1000] of longint;
begin
read(n,m);
for i:=1 to n do for j:=1 to m do read(a[i,j]);
for i:=2 to n-1 do
for j:=2 to m-1 do
begin
k:=1;
for h:=1 to 8 do if a[i+c[h,1],j+c[h,2]]
var
n,m,i,j,k,h,s:longint;
a:array[0..1000,0..1000] of longint;
begin
read(n,m);
for i:=1 to n do for j:=1 to m do read(a[i,j]);
for i:=2 to n-1 do
for j:=2 to m-1 do
begin
k:=1;
for h:=1 to 8 do if a[i+c[h,1],j+c[h,2]]