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

八皇后 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 基础训练题目及题解 【execans.2 为深度优先搜索,广度优先搜索类,及技巧性题目题解】 【题目 1】N 皇后问题(八皇后问题的扩展) 【题目 2】排球队员...
八皇后问题与背包问题
八皇后问题与背包问题_管理学_高等教育_教育专区。信息皇后问题。在一个国际象棋...一个关于 pascal 的问题 ? 求背包问题的 pascal 源代码 ? 货郎担问题算法(...
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】排球队员...
plc编程常用算法
[1]<>r-1) end; 例 9:八皇后问题(详见清华版《PASCAL 程序设计》P165) 练习: 清华版 《PASCAL 程序设计》 P172 习题 7.19 跳马问题和 7.20 迷宫问题...
编程入门
编程入门_计算机软件及应用_IT/计算机_专业资料。free pascal零基础入门,特别特合于零基础入门者。第一课 程序的概念 [引言]神奇的程序---《八皇后问题》八皇后...
常用算法
pascal-经典算法 26页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能...八皇后问题(详见清华版《PASCAL 程序设计》P165) 练习: 清华版 《PASCAL 程序...
各类算法精选
Pascal 代码】 program Fibonacci; var n,i:longint; function fib(n:long...(); } 八皇后 【问题描述】在一个8×8格子的棋盘上,要布局八个皇后,条件...
算法试题之二
pascalpascal隐藏>> 4.求迷宫的路径。 回溯算法的公式如下: 一,用一个二维数组...10.【题目】N 皇后问题(含八皇后问题的扩展,规则同八皇后):在 N*N 的棋盘...
更多相关标签:
八皇后问题 | 八皇后 | 八皇后问题 c语言 | 八皇后算法 | 八皇后问题c | java八皇后问题 | 八皇后问题回溯法 | 八皇后问题实验报告 |