noip2011初赛-子矩阵

来源：互联网发布：js获取扫描枪数据编辑：程序博客网时间：2024/05/17 23:40

noip2011C-4-1（子矩阵）输入一个n1*m1的矩阵a，和n2*m2的矩阵b，问a中是否存在子矩阵和b相等。若存在，输出所有子矩阵左上角的坐标；若不存在输出“there is no answer”。

样例输入：

3 3

1 2 3

4 5 6

7 8 9

2 2

5 6

8 9

样例输出：

2 2

constSIZE=50;varn1,m1,n2,m2,i,j,k1,k2:integer;a,b:array[1..SIZE,1..SIZE] of integer;good,haveAns:boolean;beginassign(input,'noip2011C_4_1.txt');reset(input);readln(n1,m1);for i:=1 to n1 dobeginfor j:=1 to m1 dobeginread(a[i][j]);end;end;readln(n2,m2);for i:=1 to n2 dobeginfor j:=1 to m2 dobeginread(b[i][j]);end;end;haveAns:=false;for i:=1 to n1-n2+1 dobeginfor j:=1 to m1-m2+1 dobegingood:=true;for k1:=1 to n2 dobeginfor k2:=1 to m2 dobeginif a[i+k1-1][j+k2-1]<>b[k1][k2] then good:=false;end;end;if good thenbeginwriteln(i,' ',j);haveAns:=true;end;end;end;if not haveAns then writeln('There is no answer');close(input);end.

0 0