PASCAL递归与回溯算法.ppt

递归与回溯算法 山东省实验中学 王乃广 判断x,y位置能否放数值k的函数 function ok(x,y,k:integer:boolean; begin ok:=true; if x>1 then if not (p[b[x-1,y]+k]) then ok:=false; if y>1 then if not (p[b[x,y-1]+k]) then ok:=false; end; proce