SSL JudgeOnline 1089——USACO 1.2 方块转换

34 篇文章 0 订阅
8 篇文章 0 订阅

USACO 1.2 方块转换 (枚举)

Time Limit:10000MS Memory Limit:65536K
Total Submit:37 Accepted:32
Case Time Limit:1000MS

Description

一块N x N(1<=N<=10)正方形的黑白瓦片的图案要被转换成新的正方形图案。写一个程序来找出将原始
图案按照以下列转换方法转换成新图案的最小方式:

1:转90度:图案按顺时针转90度。

2:转180度:图案按顺时针转180度。

3:转270度:图案按顺时针转270度。

4:反射:图案在水平方向翻转(形成原图案的镜像)。

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

6:不改变:原图案不改变。

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

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

Input

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

Output

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

Sample Input

3

@-@

@@-
@-@
@–
–@
Sample Output

1


这题我们枚举每一种情况,如果等于所要转化图案,就输出。没有则输出 7 。


代码如下:

type
  arr=array[1..20,1..20] of char;
var
  a,b,x:arr;
  n,i,j:longint;

function tx1(a,b:arr):boolean;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<>b[n-j+1,i] then exit(false);
  exit(true);
end;

function tx2(a,b:arr):boolean;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<>b[n-i+1,n-j+1] then exit(false);
  exit(true);
end;

function tx3(a,b:arr):boolean;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<>b[j,n-i+1] then exit(false);
  exit(true);
end;

function tx4(a,b:Arr):boolean;
var
  i,j:longint;
begin
        for i:=1 to n do
                for j:=1 to n do
                        if a[i,j]<>b[i,n-j+1] then exit(false);
        exit(true);
end;

function tx5(a,b:arr):boolean;
var
        i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to n do
      x[i,j]:=b[i,n-j+1];
  if tx1(a,x) then exit(true);
  if tx2(a,x) then exit(true);
  if tx3(a,x) then exit(true);
end;

function tx6(a,b:arr):boolean;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<>b[i,j] then exit(false);
  exit(true);
end;

begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do read(b[i,j]);
      readln;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
      read(a[i,j]);
      readln;
    end;
  if tx1(a,b) then writeln(1) else
  if tx2(a,b) then writeln(2) else
  if tx3(a,b) then writeln(3) else
  if tx4(a,b) then writeln(4) else
  if tx5(a,b) then writeln(5) else
  if tx6(a,b) then writeln(6) else
  writeln(7);
end.
  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
经过本站工作人员近一个月的辛苦劳动,在大家的积极配合下,黑白网络的第一期网上月刊《黑客攻防指南》终于和大家见面了,为了感谢本站的支持者们近三年来对本站的大力支持,本期月刊,免费赠阅。从名字中,大家就应该知道了,这是一本主要讲解黑客攻击与网络安全防范为主的电子杂志,希望您能通过我们的杂志真正的学些东西,再也不要整天四处询问如何偷人家的OICQ密码等幼稚的问题了,那些都是没有用的,就算你有成千上万个5位数的OICQ密码(这绝对是可以办到的,呵呵,怎么办?告诉你,要保密啊,想办法成为QQ公司数据管理员的小舅子啊,哈哈,那样什么密码你都能知道啦,呵呵,开个玩笑,你可别真问我,QQ数据管理员多大岁数啊),那又能代表什么呢?又对你有什么帮助呢?真正学会点网络安全的知识,才是最重要的。或许本期月刊上有些文章您可能在我们的网站上或是其他网站上看到过,但我敢肯定,还是有相当大的一部分人,没有看过,因为我们月刊刚刚建立,所以比较经典的教程,我们还是会放上来给大家看的,看过的,就当从新温习一下以前的功课吧,但这种情况会随着我们月刊的发展,逐渐消失的,我们已经下大力气征稿了,提供了很多优惠的条件,向广大网友进行征稿,如果您的文笔不错,又是网络安全的业内人士的话,希望您积极向本站投稿,让大家一起欣赏您的佳作。具体征稿要求请查看征稿启示。如果您看完本刊,感觉错的话,请继续支持我们,订阅下期电子杂志,每期杂志定价为人民币10元,一次性订阅12期,仅需100元。《黑客攻防指南》每期100篇文章,和您交的订阅费一平均,您看一篇教程,仅需要1毛钱而已,因为是电子杂志,所以文章数量绝对要比普通杂志要多很多,花同样钱,您可以看到更多的文章,何乐而不为呢?而且我们有做网络安全站点(黑白网络,专门提供黑客教程浏览,工具下载的站点)多年的经验,并有专人每天花大量的时间在各个网络安全及黑客站点,各种论坛的安全版面收集整理黑客攻击与防范这方面的资料,从深到浅的文章都有,可以这么说,只要您会上网,就能在我们的月刊中,找到您能看懂的技术文章,呵呵,不过我们可不能保证,您看了我们的杂志,一定能成为网络安全专家或是黑客高手,这就好像呢到书店买书一样,书买到手了,关键看你自己怎么学了,要是你真想学,就一定能学好的。好了不多说废话了,您先看吧,我们真心希望这本电子杂志能使您由菜鸟成为大侠!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值