一大堆的福利之【USACO题库】 Transformations方块转换

最新推荐文章于 2024-01-21 21:48:38 发布

sss_brs

最新推荐文章于 2024-01-21 21:48:38 发布

阅读量453

点赞数

文章标签： Pascal 福利 OJ USACO

本文链接：https://blog.csdn.net/sss_brs/article/details/68070795

版权

题目描述

一块N x N（1<=N<=10）正方形的黑白瓦片的图案要被转换成新的正方形图案。写一个程序来找出将原始

图案按照以下列转换方法转换成新图案的最小方式：

#1：转90度：图案按顺时针转90度。

#2：转180度：图案按顺时针转180度。

#3：转270度：图案按顺时针转270度。

#4：反射：图案在水平方向翻转（形成原图案的镜像）。

#5：组合：图案在水平方向翻转，然后按照#1-#3之一转换。

#6：不改变：原图案不改变。

#7：无效转换：无法用以上方法得到新图案。

如果有多种可用的转换方法，请选择序号最小的那个。

输入

第一行：	单独的一个整数N。
第二行到第N+1行：	N行每行N个字符（不是“@”就是“-”）；这是转换前的正方形。
第N+2行到第2*N+1行：	N行每行N个字符（不是“@”就是“-”）；这是转换后的正方形。

输出

单独的一行包括1到7之间的一个数字（在上文已描述）表明需要将转换前的正方形变为转换后的正方形的

转换方法。

样例输入

3

@-@

---

@@-

@-@

@--

--@

样例输出

var
        a,b,c,d:array [1..10,1..10] of char;
        i,j,t,n:longint;
function pd:boolean;
var
        i,j:longint;
begin
        pd:=true;
        for i:=1 to n do
                for j:=1 to n do
                        if c[i,j]<>b[i,j] then pd:=false;
end;
function xz(x:longint):boolean;
var
        t,i,j:longint;
begin
        for t:=1 to x do
        begin
                d:=c;
                for i:=1 to n do
                        for j:=1 to n do
                                c[j,n-i+1]:=d[i,j];
        end;
        xz:=pd;
end;
procedure fs;
var
        i,j:longint;
begin
        for i:=1 to n do
                for j:=1 to n do
                        c[i,j]:=a[i,n+1-j];
end;
begin
        readln(n);
        for i:=1 to n do
        begin
                for j:=1 to n-1 do
                        read(a[i,j]);
                readln(a[i,n]);
        end;
        for i:=1 to n do
        begin
                for j:=1 to n-1 do
                        read(b[i,j]);
                readln(b[i,n]);
        end;
        for t:=1 to 7 do
                case t of
                        1,2,3:begin c:=a; if xz(t) then
                        begin writeln(t); exit; end; end;
                        4:begin fs; if pd then begin writeln(4); exit; end; end;
                        5:begin fs; if xz(1) then begin writeln(5); exit; end;
                        fs; if xz(2) then begin writeln(5); exit; end;
                        fs; if xz(3) then begin writeln(5); exit; end; end;
                        6:begin c:=a; if pd then begin writeln(6); exit; end; end;
                        7:writeln(7);
                end;
end.