NOIP提高组初赛试题汇编(2002-2009)(21)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

图3图4

输入:

输入的图形用一个n×n的矩阵表示的。矩阵的每一个单元里有一个0到255之间（包括0和255）的整数。处于同一个区域的单元里的数相同，相邻区域的数不同（但是不相邻的区域里的数可能相同）。

输入的第一行是n（0<n<100）。以下的n行每行包括n个整数，分别给出对应的单元里的整数（这n个整数之间用空格分开）。图4给出了输入样例对应的图形。输出:

当可以画出满足题意的曲线的时候，输出“YES”；否则，输出“NO”。输入样例:

3112122112输出样例:

YES程序：

programprogram2;const

d:array[0..7]ofinteger=(1,0,-1,0,0,1,

var

orig,n,i,j,ns:integer;

a:array[0..101,0..101]ofinteger;bun:boolean;

procedureplimba(x,y:integer);vari,x1,y1:integer;begin

a[x,y]:=-a[x,y];

if(abs(a[x-1,y])<>orig)and

<>a[x-1,y])

or(abs(a[x,y-1])<>orig))if(abs(a[x+1,y])<>orig)and((a[x+1,y-1]<>a[x+1,y])

or(abs(a[x,y-1])<>orig))theninc(ns);if(abs(a[x,y-1])<>orig)and

<>a[x,y-1])

or(abs(a[x-1,y])<>orig))theninc(ns);

if(abs(a[x,y+1])<>orig)and((a[x-1,y+1]<>a[x,y+1])