翱翔的感觉

摘要： program bashum;const maxl=100; dir:array[1..4,1..2]of integer=((1,0),(-1,0),(0,1),(0,-1));type sta=record kx,ky:longint; m:array[1..3,1..3]of integer; end;var p,ans:array[1..maxl]of sta; tar:sta; i,j,k,ansl:longint;function check(k,d:integer):boolean;var i,j:integer;begin if ... 阅读全文

摘要： program migong;var map:array[0..100,0..100]of longint; step,s:array[1..100,1..2]of longint; i,maxd,j:longint;function check(x,y:longint):boolean;begin if (x>=0)and(x<=4)and(y>=0)and(y<=4) then begin if map[x,y]=0 then exit(true) else exit(false); end;end;procedure p... 阅读全文

摘要： program bahaunghou;var n,sum,i:longint; b1:array[1..100]of boolean; a:array[1..100]of longint;procedure print;var i:longint;begin for i:=1 to n do write(a[i]); writeln;end;function check(k:longint):boolean;var i:longint;begin check:=false; for i:=1 to k-1 do if abs(i-k)=abs(... 阅读全文

摘要： program pailie;const maxm=1000;var n,m,sum:longint; a:array[1..maxm]of longint; procedure print; var i:longint; begin for i:=1 to m do write(a[i]); writeln; end; procedure play(k:longint); var i:longint; begin if k=m+1 then begin inc(sum); print; ... 阅读全文

摘要： 样例和网上找的测试数据 都过了 还是 waprogram poj3009;type sta=record x,y:integer; end;var dir:array[1..4,1..2]of integer=((1,0),(-1,0),(0,1),(0,-1)); w,h,ans,ansb:integer; map:array[0..21,0..21]of integer; start:sta; flag:boolean;procedure dfs(x,y,d,depth:integer);var i,tx,ty,j:integer;begin if depth>10 then exi 阅读全文

摘要： Free Pascal错误一览表1、 Run Time Errors 运行错误（A） DOS 错误代码： 1：无效DoS功能号 2：文件末找到 3：路径未找到 4：打开文件过多 5：禁止文件存取 6：无效文件句柄 12：无效文件存取代码 15：无效驱动器号 16：不能删除当前日录 17：不能跨驱动器改文件名（B） I/O错误 100：磁盘读错误101：磁盘写错误102：文件变量末赋值103：文件未打开104：文件未用输入方式打开105：文件末用输出方式打开106：无效数字格式（C） 严重错误 150：磁盘写保护 15l：未知单元 152：驱动器未准备好 153：未知命令 154：数据CRC校验 阅读全文

摘要： 嗨，如此简单的深搜题目 我还是因为写方向表时的小错误浪费了 我两个多小时 真是有点眼高手低羞愧感诶......poj评测：880k,32ms;program knight;type sta=record x,y:longint; end;var dir:array[1..8,1..2]of integer=((-1,-2),(1,-2),(-2,-1),(2,-1) //方向表决定着按字典序输出答案 ,(-2,1),(2,1),(-1,2),(1,2)); p,q,n,now:longint; flag:boolean;//标记是否已经找到答案 v:array[1..26,1..26]of b 阅读全文

摘要： 初期: 一.基本算法: (1)枚举. (poj1753,poj2965) (2)贪心(poj1328,poj2109,poj2586) (3)递归和分治法. (4)递推. (5)构造法.(poj3295) (6)模拟法.(poj1068,poj2632,poj1573,poj2993,poj2996) 二.图算法: (1)图的深度优先遍历和广度优先遍历. (2)最短路径算法(dijkstra,bellman-ford,floyd,heap+dijkstra) (poj1860,poj3259,poj1062,poj2253,poj1125,poj2240) (3)最小生成树算法(prim,kr 阅读全文