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方格稿纸相关推荐

【NOIP模拟】方格稿纸
题面小 y 终于在小学学会了一些字.词.句子, 会写一点作文了.某一天,小 y 买了一张方格稿纸来写作文, 稿纸是 n 行 m 列的,形状如下所示(图中 n=m=5): 某天小 y 的邻居小 x ...
符号说明表怎么做_教会你的孩子正确使用标点符号
所谓的标点符号包括点号和标号.使用时,不仅要掌握它们的用法,还要注意它们的规范书写. 1．凡是点号(句号.问号.感叹号.逗号.顿号.分号.冒号),都应该在原稿纸上占一方格,写在空格的左方.①句号.逗号 ...
居中符号怎么打_小学语文标点符号的正确书写格式（附图文展示），让孩子牢记考试不丢分！...
自家孩子平时书写和考试时候,标点符号方面的错误总是出其不意,让家长防不胜防,点虽小但是也都是分数,现在快来看看标点符号的正确书写吧!老师提醒孩子们考试千万别再丢分啦~ 在方格稿纸上的书写格式 1．在 ...
word2010使用记录
安装时提示: installer无法更新被保护的一个或多个文件, 解决方法是: 将三个dll文件,放在 c:\program files\common files\ms shared\web serv ...
微计算机应用是核心吗,北大核心哪个杂志好投
北大核心哪个杂志好投作者:核心期刊目录查询发布时间:2016-05-19 北大核心哪个杂志好投? 现在北大核心期刊有很多,不同的专业做针对的要求是不一样的,不过总体来说核心类的期刊与普刊对比来说要 ...
word中段落里面的选项“如果定义了文档网格，则对齐到网格”起什么作用？
上面这张图片大家都不陌生吧,但相信很多朋友都不知道"文档网格"的作用.我最近在调整论文格式时就被这个所谓的"文档网格"给搞惨啦! 出现的问题是:我完全按照论文的 ...
WPS表格：使用技巧
文章目录 1.时间 1)调整时间格式 ① 连接符 ② 将"常规.短日期.长日期"格式下的时间调整为自定格式 ③出现"数字"的情况 ④ 日期格式方便筛选.统计:转 ...
商丘市计算机学校网站,2020年河南省商丘市计算机学校高三语文月考试题.docx
2020年河南省商丘市计算机学校高三语文月考试题一. 现代文阅读(35分,共3题) 1. 现代文(文学类,实用类文本)阅读(共20分,共4小题) ? 我是一杆什么笔郭文斌 ? 深入贺兰山,其实是深 ...
选修课：唐宋词鉴赏最终作业
谈谈你对雅正词派的认识要求: 1.不少于1200字 2.独立成篇,内容饱满. 3.用16开方格稿纸誊写.姓名,学号标注于首页天头. 后面空着,等着自己慢慢写. =================== ...
[LeetCode]--118. Pascal#39;s Triangle
Given numRows, generate the first numRows of Pascal's triangle. For example, given numRows = 5, Retu ...

pascal方格稿纸

Pascal Code

pascal方格稿纸相关推荐

最新文章

热门文章