Transformations方块转换

 Transformations方块转换

一块 N x N（1<=N<=10）正方形的黑白瓦片的图案要被转换成新的正方形图案.
写一个程序来找出将原始图案按照以下列转换方法转换成新图案的最小方式:
#1:转 90 度:图案按顺时针转 90 度.
#2:转 180 度:图案按顺时针转 180 度.
#3:转 270 度:图案按顺时针转 270 度.
#4:反射:图案在水平方向翻转（形成原图案的镜像）.
#5:组合:图案在水平方向翻转,然后按照#1-#3 之一转换.
#6:不改变:原图案不改变.
#7:无效转换:无法用以上方法得到新图案.
如果有多种可用的转换方法,请选择序号最小的那个.

PROGRAM NAME: transform
INPUT FORMAT  9
第一行: 单独的一个整数 N. 
第二行到第 N+1 行: N 行每行 N 个字符（不是“@”就是“-”） ；这是转换前的正方形. 
第 N+2 行到第 2*N+1 行: N 行每行 N 个字符（不是“@”就是“-”） ；这是转换后的正方形. 

SAMPLE INPUT (file transform.in)
3
@-@
---
@@-
@-@
@--
--@

OUTPUT FORMAT
单独的一行包括1到7 之间的一个数字（在上文已描述）表明需要将转换前的正方形变为转换后的
正方形的
转换方法.
SAMPLE OUTPUT (file transform.out)
1

========================================================

注意的是你定义的坐标是如何定义的，根据定义的坐标进行变换，模拟...

======================

{
ID:jie19952
PROG:transform
LANG:PASCAL
}
type
  re=array[1..10,1..10]of char;

var
  n:longint;
  start,aim,s:array[1..10,1..10]of char;
procedure init;
begin
  assign(input,'transform.in');
  assign(output,'transform.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function check1(start,aim:re):boolean;
var
  i,j:longint;
begin
  check1:=true;
  for i:=1 to n do
    for j:=1 to n do
      begin
       // writeln(start[i,j],' ',aim[n-j+1,i],' ',n+1-j,' ',i);
        if start[i,j]<>aim[j,n-i+1] then exit(false);
      end;
end;

function check2(start,aim:re):boolean;
var
  i,j:longint;
begin
  check2:=true;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if start[i,j]<>aim[n+1-i,n+1-j] then exit(false);
      end;
end;

function check3(start,aim:re):boolean;
var
  i,j:longint;
begin
  check3:=true;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if start[i,j]<>aim[n-j+1,i] then exit(false);
      end;
end;

function check4(start,aim:re):boolean;
var
  i,j:longint;
begin
  check4:=true;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if start[i,j]<>aim[i,n-j+1] then exit(false);
      end;
end;

function check5(start,aim:re):boolean;
var
  i,j:longint;
begin
  check5:=false;
  for i:=1 to n do
    for j:=1 to n do
      begin
        s[i,j]:=start[i,n-j+1];
      end;
  if check1(s,aim) or check2(s,aim) or check3(s,aim) then
    exit(true);
end;

function check6(start,aim:re):boolean;
var
  i,j:longint;
begin
  check6:=true;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if start[i,j]<>aim[i,j] then exit(false);
      end;
end;

procedure main;
var
  i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        read(start[i,j]);
      readln;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        read(aim[i,j]);
      readln;
    end;

  if check1(start,aim) then begin writeln(1); terminate; end;
  if check2(start,aim) then begin writeln(2); terminate; end;
  if check3(start,aim) then begin writeln(3); terminate; end;
  if check4(start,aim) then begin writeln(4); terminate; end;
  if check5(start,aim) then begin writeln(5); terminate; end;
  if check6(start,aim) then begin writeln(6); terminate; end;
  writeln(7);
end;

begin
  init;
  main;
  terminate;
end.