用pascal设计一个可以解数独的程序；

显示全部楼层 · 2012-3-17 11:05:34

vari,j,s,x,y,k,l:integer;t:boolean;a:array [1..9,1..9] of integer;b,d:array [1..82] of integer;st:string;beginfor i:=1 to 9 do begin
readln(st);
for j:=1 to 9 do a[i,j]:=ord(st[j])-48;end;s:=0;for i:=1 to 9 do
for j:=1 to 9 do
if a[i,j]=0 then begin
s:=s+1;...

千问 · 2012-3-17 11:05:34

{$A+,B-,D-,E-,F-,G+,I-,L-,N+,O-,P+,Q-,R-,S-,T-,V-,X+,Y-}{$optimization on}{$inline on}constm = 324;vari, j, k, tot, t, min: longint;l, r, u, d, col, rr, cc, lab: array...

千问 · 2012-3-17 11:05:34

数独的条件是什么啊，同行不同，同列不同还是…………...

千问 · 2012-3-17 11:05:34

这不是数独，第四个九宫格里无处填3...

千问 · 2012-3-17 11:05:34

同上...