当前位置:首页 >> 学科竞赛 >>

八皇后 pascal


var xx:text; lie:Array[1..8] of boolean; pie:array[2..16] of boolean; na:array[-7..7] of boolean; tot:longint; ans:Array[1..8,1..8] of integer; procedure print; var i,j:longint; begin for i:=

1 to 8 do begin for j:=1 to 8 do write(xx,ans[i,j]); writeln(xx); end; writeln(xx); end; procedure did(x:longint); var y:integer; begin if x>8 then begin inc(tot);print; exit; end; for y:=1 to 8 do if (not lie[y]) and (not pie[x+y]) and(not na[x-y]) then begin lie[y]:=true; pie[x+y]:=true; na[x-y]:=true; ans[x,y]:=1; did(x+1); ans[x,y]:=0; lie[y]:=false; pie[x+y]:=false; na[x-y]:=false; end; end; begin assign(xx,'c:/1.txt'); rewrite(xx); tot:=0; did(1); writeln(xx,'solution=',tot);

close(xx); end.


相关文章:
PASCAL 八皇后问题解题报告
PASCAL 八皇后问题解题报告_学科竞赛_小学教育_教育专区。八皇后问题八皇后问题,是一个古老而著名的问题,是回溯算法的典型例题。该问题是十九世纪著 名的数学家高斯...
八皇后 pascal
八皇后 pascal_学科竞赛_高中教育_教育专区。八皇后 简洁的写法 var xx:text; lie:Array[1..8] of boolean; pie:array[2..16] of boolean; na:array[-7...
pascal练习
pascal练习_其它_高等教育_教育专区。搜索专练 1: 例 1:汉诺(Hanoi)塔问题:...例 3 八皇后在一个 8×8 的棋盘里放置 8 个皇后,要求每个皇后两两之间不...
八皇后问题与背包问题
八皇后问题与背包问题_管理学_高等教育_教育专区。信息皇后问题。在一个国际象棋...一个关于 pascal 的问题 ? 求背包问题的 pascal 源代码 ? 货郎担问题算法(...
pascal习题
PASCAL 基础训练题目及题解 【execans.2 为深度优先搜索,广度优先搜索类,及技巧性题目题解】 【题目 1】N 皇后问题(八皇后问题的扩展) 【题目 2】排球队员...
pascal-搜索回溯
pascal-搜索回溯_IT/计算机_专业资料。pascal-搜索回溯杭十五中信息学奥赛――算法...三、八皇后问题 在一个8×8的棋盘里放置8个皇后,要求每个皇后两两之间不相 ...
pascal入门算法.doc
二、字符串的常用内部函数和过程 Turbo Pascal 提供了八个标准函数和标准过程,...A[I]表示第 I 个皇后放置的列;范围:1..8 (2)行冲突标记数组 B。B[I]...
基础训练题目及题解
PASCAL 基础训练题目及题解 【execans.2 为深度优先搜索,广度优先搜索类,及技巧性题目题解】 【题目 1】N 皇后问题(八皇后问题的扩展) 【题目 2】排球队员...
8第5章 递归
八皇后问题(递归+非递归... 6页 1下载券 PASCAL第8讲递归 12页 免费 八皇后问题的递归求解 1页 免费 8. 枚举与递归 暂无评价 52页 免费 喜欢此文档的还喜...
plc编程常用算法
[1]<>r-1) end; 例 9:八皇后问题(详见清华版《PASCAL 程序设计》P165) 练习: 清华版 《PASCAL 程序设计》 P172 习题 7.19 跳马问题和 7.20 迷宫问题...
更多相关标签:
八皇后问题pascal | 八皇后问题 | 八皇后 | 八皇后问题 c语言 | 八皇后算法 | 八皇后问题c | 八皇后问题回溯法 | 八皇后问题 java |