翱翔的感觉

摘要： 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(... 阅读全文