c++或java 写一个解3阶数独的程序

123456789101112131415161718192021public static Geocache[] createGeocaches(int a) { if(a <= 0) return new Geocache[0]; Random rand = new Random(); Geocache[] result = new Geocache[a]; for(int i = 0; i < a; i++) { //因为题目没有描述，这里假设x, y是随机整数，Geocache有<a href=">

program sudoku;

const

s:array[181]of integer= (1,1,1,2,2,2,3,3,3,

1,1,1,2,2,2,3,3,3,

1,1,1,2,2,2,3,3,3,

4,4,4,5,5,5,6,6,6,

4,4,4,5,5,5,6,6,6,

4,4,4,5,5,5,6,6,6,

7,7,7,8,8,8,9,9,9,

7,7,7,8,8,8,9,9,9,

7,7,7,8,8,8,9,9,9);

var

u,d,l,r,c,g:array[0236520]of longint;

size:array[0324]of integer;

l1,l2,l3:array[1729]of integer;

f:array[19,19]of integer;

procedure cover(p:longint);

var p1,p2:longint;

begin

l[r[p]]:=l[p];r[l[p]]:=r[p];

p1:=u[p];

while p1<>p do

begin

p2:=l[p1];

while p2<>p1 do

begin

d[u[p2]]:=d[p2];u[d[p2]]:=u[p2];

dec(size[c[p2]]);

p2:=l[p2];

end;

p1:=u[p1];

end;

end;

procedure recover(p:longint);

var p1,p2:longint;

begin

l[r[p]]:=p;r[l[p]]:=p;

p1:=d[p];

while p1<>p do

begin

p2:=r[p1];

while p2<>p1 do

begin

d[u[p2]]:=p2;u[d[p2]]:=p2;

inc(size[c[p2]]);

p2:=r[p2];

end;

p1:=d[p1];

end;

end;

procedure prework;

var sum,i,j,k:longint;

begin

sum:=0;

for i:=1 to 9 do

for j:=1 to 9 do

for k:=1 to 9 do

begin

inc(sum);

l1[sum]:=i;l2[sum]:=j;l3[sum]:=k;

g[(sum-1)324+81+(i-1)9+k]:=1;//行

g[(sum-1)324+162+(j-1)9+k]:=1;//列

g[(sum-1)324+(s[(i-1)9+j]-1)9+k]:=1;//九宫

g[(sum-1)324+243+(i-1)9+j]:=1;//格子

end;

for i:=1 to 236520 do

begin

l[i]:=i-1;r[i]:=i+1;

u[i]:=i-324;d[i]:=i+324;

end;//common

for i:=1 to 324 do

begin

u[i]:=i+236196;

d[i+236196]:=i;

end;//special

for i:=0 to 729 do

begin

l[i324+1]:=(i+1)324;

r[(i+1)324]:=i324+1;

end;//special

l[0]:=324;

r[0]:=1;

l[1]:=0;

r[324]:=0;//door

for i:=325 to 236520 do

begin

if g[i-324]=0 then

begin

r[l[i]]:=r[i];

l[r[i]]:=l[i];

u[d[i]]:=u[i];

d[u[i]]:=d[i];

end else inc(size[(i-1)mod 324+1]);

c[i]:=(i-1)mod 324+1;

end;

end;

procedure init;

var sum,i,j:longint;

begin

assign(input,'输入文件名');reset(input);

sum:=0;

for i:=1 to 9 do

for j:=1 to 9 do

begin

inc(sum,324);

read(f[i,j]);

if f[i,j]<>0 then

begin

cover(c[sum+(s[(i-1)9+j]-1)9+f[i,j]]);//宫覆盖

cover(c[sum+81+(i-1)9+f[i,j]]);//行

cover(c[sum+162+(j-1)9+f[i,j]]);//列

cover(c[sum+243+(i-1)9+j]);//格子

end;

end;

close(input);

end;

procedure print;

var i,j:integer;

begin

for i:=1 to 9 do

begin

for j:=1 to 9 do

write(f[i,j],' ');

writeln;

end;

//close（output);halt;

writeln;writeln;writeln;

end;

procedure main;

procedure Algorithm_X;

var min1,min2:integer;

p,p1,id,p2,p3:longint;

begin

min2:=maxint;min1:=maxint;id:=0;p:=r[0];

if p=0 then print;

while p<>0 do

begin

if min1>size[p] then

min1:=size[p];

if (min2>size[p])and(p<243) then begin

min2:=size[p];id:=p;

end;

p:=r[p];

end;

if min1=0 then exit;// can't cover,

p:=id;

cover(p);//cover

p1:=d[p];

while p1<>p do

begin

p2:=l[p1];

while p2<>p1 do

begin

cover(c[p2]);

p2:=l[p2];

end;

p3:=(p2-324) div 324+1;

if p2 mod 324=0 then dec(p3);

f[l1[p3],l2[p3]]:=l3[p3];//fill in

Algorithm_X;

p2:=r[p1];

while p2<>p1 do

begin

recover(c[p2]);

p2:=r[p2];

end;

p1:=d[p1];

end;

recover(p);

end;

begin

assign(output,'输出文件名');rewrite(output);

Algorithm_X;

close(output);

end;

begin

prework;

init;

main;

end

这个不是过程哦，是一个完整的程序呃处理过程是读入一个数独，输出所有的解，如果您只需要一个解，请把print过程里面的 //close(output);halt; 的//删掉就可以得到一个解了

提问者真的很谦虚，已经写了这么多设计思路了还说自己不会写。根据提问者和前几位问答着的互动可见，提问者不是不会写，而是非常会写，而且写得非常好。是一个很精通的老师。建议提问者自行开办一个实体培训机构更好，将自己长项教授给有兴趣的人们。

数独是一种运用纸、笔进行演算的逻辑数学游戏。玩家需要根据9×9盘面上的已知数字，推理出所有剩余空格的数字，并满足每一行、每一列、每一个粗线宫（3×3）内的数字均含1-9，不重复。数独盘面是个九宫，每一宫又分为九个小格。在这八十一格中给出一定的已知数字和解题条件，利用逻辑和推理，在其他的空格上填入1-9的数字。使1-9每个数字在每一行、每一列和每一宫中都只出现一次，所以又称“九宫格”。数独起源于18世纪初瑞士数学家欧拉等人研究的拉丁方阵。19世纪80年代，一位美国的退休建筑师格昂斯根据这种拉丁方阵发明了一种填数趣味游戏，这就是数独的雏形。20世纪70年代，人们在美国纽约的一本益智杂志《Math Puzzles and Logic Problems》上发现了这个游戏，当时被称为填数字，这也是目前公认的数独最早的见报版本。1984年一位日本学者将其介绍到了日本，发表在Nikoli公司的一本游戏杂志上，当时起名为“数字独身限”，后来就改名为“数独”，其中“数”是数字的意思，“独”是唯一的意思。后来一位前任香港高等法院的新西兰籍法官高乐德在1997年3月到日本东京旅游时，无意中发现了。他首先在英国的《泰晤士报》上发表，不久其他报纸也发表，很快便风靡全英国，之后他用了6年时间编写了电脑程序，并将它放在网站上（这个网站也就是著名的数独玩家论坛），后来因一些原因，网站被关闭，幸好数独大师Glenn Fowler恢复了数据，玩家论坛有了新处所。在90年代国内就有部分的益智类书籍开始刊登，南海出版社在2005年出版了《数独1-2》，随后日本著名数独制题人西尾彻也的《数独挑战》也由辽宁教育出版社出版。《北京晚报》、《扬子晚报》、《羊城晚报》、《新民晚报》、《成都商报》等等报纸媒体也先后刊登了数独游戏。

解题手法：

一、直观法就是不做任何记号，直接从数独的盘势观察线索，推论答案的方法。

二、候选数法就是删减等位群格位已出现的数字，将剩余可填数字填入空格做为解题线索的参考，可填数字称为候选数(Candidates，或称备选数)。

三、排除法（摒除法）

摒除法：用数字去找单元内唯一可填空格，称为摒除法，数字可填唯一空格称为排除法 (Hidden Single)。

根据不同的作用范围，摒余解可分为下述三种：

数字可填唯一空格在「宫」单元称为宫排除（Hidden Single in Box），也称宫摒除法。

数字可填唯一空格在「行」单元称为行排除法（Hidden Single in Row），也称行摒除法。

数字可填唯一空格在「列」单元称为列排除法（Hidden Single in Column），也称列摒除法。

四、唯一余数法：用格位去找唯一可填数字，称为余数法，格位唯一可填数字称为唯余解。

余数法是删减等位群格位（Peer）已出现的数字的方法，每一格位的等位群格位有 20 个，如图七所示。

五、进阶解法：是在补基本解法之不足，所以又称辅助解法。

进阶解法包括：区块摒除法（Locked Candidates）、数组（Subset/Tuple）、二链列（X-Wing）、唯一矩形（Unique Rectangle）、全双值格致死解法（Bivalue Universal Grave）、同数链（X-Chain）、异数链（Multidigit Chain）及其他数链的高级技巧等等。已发展出来的方法有近百种之多。

其中前三种加上基础解法为一般数独书中介绍并使用的方法，同时也是大部分人可以理解并掌握的数独解题技法。

通过基础解法出数只需一种解法，摒除法或唯余法，超出此范围而需要施加进阶解法时，解题点需要进阶解法协助基础解法来满足隐性唯一或显性唯一才能出数，该解题点的解法需要多个步骤协力完成，因此称做组合解法。

解题必须以逻辑为依归，提倡数独的本意。

六、区块摒除法：区块摒除法包括宫区块摒除法（Pointing）与行列区块摒除法。

在基础题里，利用区块摒除可以替代一些基础解法的观察，或辅助基础解法寻找焦点。

在非基础题里，区块可以隐藏任何其他结构，简单的可以把基础解法隐藏起来，难的可以隐藏数对等等其他进阶技巧。

七、数对法：当一个单元（行、列、宫）的某两个数字仅可能在某两格时，我们称这两个格为这两个数的数对（Pairs）。

数对出现在宫称为宫数对；数对出现在行列成为行列数对。

用候选数法的观点去看，数对有两种，一种是在同单元内其中两格有相同的双候选数，一看就明白，因此称为显性数对（Naked Pair），另一种是，同单元内有两个候选数占用了相同的两格，该两格因为还有其它候选数很难辨认，因此称为隐性数对（Hidden Pair）。

以上就是关于c++或java 写一个解3阶数独的程序全部的内容，包括:c++或java 写一个解3阶数独的程序、C++数独编程问题.请问我的数独代码哪里有错误,为什么运行时每次总有一行数据为0,希望能尽快帮我一下,谢谢.、编一个数独程序（只需要生成过程），PASCAL 好的追50分。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！