free pascal 题目

[复制链接]
查看11 | 回复2 | 2011-5-3 11:54:41 | 显示全部楼层 |阅读模式
如图


回复

使用道具 举报

千问 | 2011-5-3 11:54:41 | 显示全部楼层
宽度搜索即可const dirx:array[1..8] of longint=(-2,-2,+2,+2,-1,+1,-1,+1);
diry:array[1..8] of longint=(-1,+1,-1,+1,-2,-2,+2,+2);//马可以走的位置(相对当前位置)var i,len,k,x1,y1:longint;
st:array[1..1000,1..3] of longint;//用于记录状态数据
b:array[1..10,1..10] of boolean;//用于标记状态procedure add(x,y,step:longint);//用于增加一个状态begin if
回复

使用道具 举报

千问 | 2011-5-3 11:54:41 | 显示全部楼层
高精度编译通过(加优化):program temp;const dirx:array[1..8] of longint=(-2,-2,+2,+2,-1,+1,-1,+1);diry:array[1..8] of longint=(-1,+1,-1,+1,-2,-2,+2,+2);var i,len,k,x1,y1:longint;st
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行