用Pascal解决中国象棋的跳马——回溯算法

GYF_

于 2016-01-05 21:31:04 发布

阅读量1.1k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Pascal 文章标签：中国 pascal

本文链接：https://blog.youkuaiyun.com/G1342522389/article/details/50465344

Pascal 专栏收录该内容

7 篇文章

订阅专栏

本文详细解析了一个寻找最优路径的算法实现过程，包括条件设定、最优条件输出及路径展示，旨在提供一种高效解决问题的方法论。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这里将所有条件和最优条件输出

program chess;
const xx:array[1..4] of 1..2=(1,2,2,1);
      yy:array[1..4] of -2..2=(2,1,-1,-2);
var
  t,tt,t1,tt1:array[0..10] of integer;
  i,p,q,num,m:integer;
procedure priteln(x1:integer;y1:integer);
begin
  i:=1;
  write('(0,0)');
  repeat
    write('--','(',t[i],',',tt[i],')');
    inc(i);
  until (t[i]=x1)and(tt[i]=y1);
   write('--','(',t[i],',',tt[i],')');
   writeln;
end;
procedure findway(k:integer);
var
  x,y,n:integer;
begin
  for n:=1 to 4 do begin
    x:=t[k-1]+xx[n];
    y:=tt[k-1]+yy[n];
    if not((x>p)or(y<0)or(y>4)) then begin
      t[k]:=x;
      tt[k]:=y;
      if(x=p) and (y=q) then begin
      if(m>k) then begin
      m:=k;
      tt1:=tt;
      t1:=t;
      end;
      priteln(p,q);
      inc(num);
      end;
      findway(k+1);
    end;
  end;
end;
begin
  num:=0;
  m:=100;
  readln(p,q);
  findway(1);
  writeln('This is the best way how to finsh it:');
  write('(0,0)');
  for i:=1 to m do begin
    write('--','(',t1[i],',',tt1[i],')');
  end;
  readln;
end.