pascal方格稿纸

方格稿纸

时间限制: 1 Sec 内存限制: 128 MB

题目描述

小猪在小学中认识了很多的字，终于会写一点作文了。某天小猪买了一张方格稿纸来写作文，n行m列，形状如下所示：

上图中n=m=5。

某天小猪的邻居小小猪来小猪家玩，用黑墨水笔把小猪新买的方格稿纸涂黑了很多格子。每个格子不是完全黑色就是完全白色，如下图所示。

小猪不能责怪小小猪。作文写不成了，他觉得很无聊，就开始数里面有多少魔幻方阵。

如果稿纸中一个k×k的正方形区域满足以下两个条件，那么它就是魔幻方阵：

1．黑白格子的数量差不能超过1；

2．k不能小于2。
上图染色后的方格稿纸共有9个魔幻方阵（6个2×2的魔幻方阵，3个3×3的魔幻方阵），现在请你帮小猪求出他被染色的稿纸里面有多少个魔幻方阵。
输入

第一行有二个正整数n和m（互相之间以一个空格分隔），表示稿纸共有n行m列。

接下来n行，每行有m个0或1的整数（互相之间以一个空格分隔），代表每个格子的颜色。如果这个数是1则为黑色，是0则为白色。
输出

仅有一行，该行只有一个整数，表示稿纸中魔幻方阵的个数。
样例输入
5 5 1 0 1 1 1 1 0 1 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1
样例输出
9
提示

【数据规模】

50%的数据，1≤n≤10，1≤m≤10；

75%的数据，1≤n≤180，1≤m≤180；

100%的数据，1≤n≤300，1≤m≤300。

Pascal Code

varf,a:array[0..300,0..300] of longint;n,m,i,j,k,black,white,total:longint;function min(x,y:longint):longint; beginif x>y then exit(y);exit(x); end;beginreadln(n,m);total:=0;for i:=1 to n dofor j:=1 to m dobeginread(a[i,j]);f[i,j]:=f[i,j-1]+f[i-1,j]-f[i-1,j-1]+a[i,j];end;for k:=2 to min(n,m) dofor i:=k to n dofor j:=k to m dobeginblack:=f[i,j]-f[i,j-k]-f[i-k,j]+f[i-k,j-k];white:=k*k-black;if abs(black-white)<=1 theninc(total);end;writeln(total); end.

总结

以上是生活随笔为你收集整理的pascal方格稿纸的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。