深度优先搜索pascal.pptVIP

{ 筛选法创建素数表 } procedure prime; var i,j,s:integer; begin fillchar(p,sizeof(p),true); p[1]:=false; for i:=2 to 3*n div 2 do { 依次搜索素数 i 并筛掉是 i 倍数的数 } if p[i] then begin j:=2*i; while j=2*n*n do begin p[j]:=false; j:=j+i; end; end; end; 判断（ x,y ）位置能否放数值 k 的函数 function ok(x,y,k:integer):boolean; begin ok:=true; if x1 then if not (p[b[x-1,y]+k]) then ok:=false; if y1 then if not (p[b[x,y-1]+k]) then ok:=false; end; procedure try(x,y,dep:integer);{ 递归搜索（ x,y ）处放 第 dep 个 数 } var i:integer; begin if dep=n*n+1 then print else { 如果已放了 n*n 个数，得出一种方法 } for i:=1 to n*n do if not(used[i]) and ok(x,y,i) t