2015年05月24日

原创 2015年07月10日 09:46:40
program num8;
const n=1500;waymax=4;
      dx:array[1..4]of longint=(0,1,0,-1);
      dy:array[1..4]of longint=(1,0,-1,0);
type sh=array[1..3,1..3]of longint;
var state:array[1..n]of sh;
    father,b:array[1..n]of longint;
    yes:sh;
    o:array[1..n,1..2]of longint;
    top,head,wayn,i,j,k,x,y,xx,yy,q:longint;
    can,succ:boolean;
procedure print(v:longint);
var buf:array[1..n]of longint;
    m:longint;
begin
 m:=0;
 while v>0 do
  begin
   m:=m+1;
   buf[m]:=v;
   v:=father[v];
  end;
 for i:=m downto 1 do
  begin
   for j:=1 to 3 do
     write(state[buf[i],j,k]:2);
     writeln;
  end;
  //close(input);close(output);
end;
function check:boolean;
var i,j,k:longint;
begin
 check:=true;
 for k:=1 to top-1 do
 for i:=1 to 3 do
  for j:=1 to 3 do
   if state[top,i,j]<>state[k,i,j] then exit(false);
end;
begin
 //assign(input,'input.txt');
 //assign(output,'output.txt');
 //reset(input);
 //rewrite(output);
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    begin
     read(state[1,i,j]);
    readln;
    end;
   readln;
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    read(yes[i,j]);
   readln;
  end;
  head:=0;top:=1;father[1]:=0;
  repeat
   head:=head+1;
   for wayn:=1 to waymax do
    begin
     can:=true;
     xx:=o[head,1];yy:=o[head,2];
     x:=xx+dx[wayn];y:=yy+dy[wayn];
     if((x<1)or(x>3))or((y<1)or(y>3))then can:=false;
     if can then
      begin
       top:=top+1;father[top]:=head;
       o[top,1]:=x;o[top,2]:=y;
       b[top]:=b[head]+1;
       state[top]:=state[head];
       state[top,xx,yy]:=state[head,x,y];
       state[top,x,y]:=0;
       if check then top:=top-1
       else
       begin
        succ:=true;
        for i:=1 to 3 do
         for j:=1 to 3 do
         if state[top,i,j]<>yes[i,j] then succ:=false;
        if succ then begin
        print(top);halt;end;
       end;
      end;
     end;
  until(head>top);
end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

2015年05月01日

program tppx; const maxn=100; var  map:array[1..maxn,1..maxn]of longint;  into:array[1..maxn]of ...
  • jing1223639316
  • jing1223639316
  • 2015年07月10日 09:46
  • 108

2015年05月23日

jquery mobile入门jQuery Mobile是jQuery 在手机上和平板设备上的版本。jQuery Mobile 不仅会给主流移动平台带来jQuery核心库,而且会发布一个完整统一的jQ...
  • cy_619
  • cy_619
  • 2017年05月19日 10:06
  • 102

2015年05月28日

PHP chmod 函数与批量修改文件目录权限作者: 字体:[增加 减小] 类型:转载chmod() 函数改变文件模式。chmod — Changes file mode 如果成功则返回 TRUE,否...
  • forest_fire
  • forest_fire
  • 2016年03月21日 11:13
  • 273

关于java的一些问题,比较基础,大家可以看看咯

问题:一瓶汽水一块钱,喝完退五毛钱,有20元,用java程序写20元能喝多少汽水 回答: int a; int i; a=20; i=0; a=2*a; while(a>2){ a=a-1; i=...
  • u012187684
  • u012187684
  • 2016年11月21日 18:59
  • 874

2015年10月24日

//bases.c --以十进制,八进制和十六进制形式输出100 #include int main(void) {     int x =100;     printf("dec = %d; o...
  • paulsweet123
  • paulsweet123
  • 2016年07月23日 18:13
  • 67

2015年05月04日学习情况

测试: 短语: 短语
  • waing2015
  • waing2015
  • 2015年05月04日 01:13
  • 167

下载android5.0源码

方法还是与之前我介绍的下载源码的方法一样,但是repo需要更新一下,否则可能会出现以下错误: type commit tag v1.12.16 tagger Conley Owens 139897...
  • maosidiaoxian
  • maosidiaoxian
  • 2014年12月02日 16:46
  • 6542

2015年5月24日--2016年5月24日

今天是第六年.我可能要感谢那天的自己吧,窗外是熙攘的欢声笑语,我吃完了晚饭趁着太远还没下山,捧着我那本>看着.看到太阳落山,我开灯继续看,就这么开始了~.   去年到今年这一年,先是度过了找工作的困...
  • Golden_Shadow
  • Golden_Shadow
  • 2016年05月25日 00:29
  • 303

2015年05月02日 问题

“what makes her so unhappy?” “D one of her favorite books.” A. Because she lost B. Because of ...
  • waing2015
  • waing2015
  • 2015年05月03日 00:07
  • 155

C#学习日记2017-02-24 DateTime类 集合

知识点1:DateTime对象获取当前机器(电脑or本地)时间    例子: System.DateTime.Now.ToString("D"); //获取的时间格式 2017年2月24日 S...
  • yeyoushen000000
  • yeyoushen000000
  • 2017年02月24日 16:49
  • 130
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:2015年05月24日
举报原因:
原因补充:

(最多只允许输入30个字)