Появилась надобность написать программу генерации таблиц судоку (думаю, всем известна эта игра)
в инете нашел описание одного метода http://malover.ucoz.ru/sudoku/
естественно, выбрал третий способ.
но есть проблема, в 3 пункте при получении второй строки мне надо собрать один массив из трех.Никак не могу придумать, как это сделать в цикле
var i,x,j:integer;буду благодарен совету
mas1,mas2,mas3,mas4,mas5,mas6,mas7,mas8,mas9:array [1..9] of integer;
A,B,C:array [1..3] of integer;
flag:boolean;
procedure Ran; // генерирую число
begin
Randomize;
x:=Random(9)+1;
end;
procedure Fla; //проверка строки(для избежания повтора)
begin
for j:=1 to 9 do
if mas1[j]=x then flag:=False;
end;
begin
Flag:=True;
i:=1;
While i<=9 do begin
Ran;
Fla;
if Flag=True then begin
mas1[i]:=x; i:=i+1; end
else Flag:=True;
end;
for i:=1 to 3 do begin
if i=1 then begin
A[i]:=mas1[1];
B[i]:=mas1[4];
C[i]:=mas1[7]; end;
if i=2 then begin
A[i]:=mas1[2];
B[i]:=mas1[5];
C[i]:=mas1[8]; end;
if i=3 then begin
A[i]:=mas1[3];
B[i]:=mas1[6];
C[i]:=mas1[9]; end;
end;
...
end.
все, сам разобрался на свежую голову
появилась новая проблема
как можно одномерный массив перевести в двумерный?
вот у меня есть 9 одномерных массивов [1..9], надо составить двумерный массив [1..9,1..9]
при такой записи
...ругается на несоответствие типов матриц
for j:=1 to 9 do
M[i,j]:=mas1[j];
...
Не знаю, правильно ли то, что ты делаешь, но если массивы описаны вот так:
type
TVec = array[1 .. 9] of integer;
TMatr = array[1 .. 9] of TVec;
var
M: TMatr; mas1: TVec;
опиши массив массивов или поэлементно копируй. А М где и как описана?
Сейчас увидел 9 твоих массивов. это ты сам догадался?
Кстати, вот этот кусок:
for i:=1 to 3 do begin
if i=1 then begin
A[i]:=mas1[1];
B[i]:=mas1[4];
C[i]:=mas1[7]; end;
if i=2 then begin
A[i]:=mas1[2];
B[i]:=mas1[5];
C[i]:=mas1[8]; end;
if i=3 then begin
A[i]:=mas1[3];
B[i]:=mas1[6];
C[i]:=mas1[9]; end;
end;
for i := 1 to 3 do
begin
A[i] := mas1[(i - 1)*3 + 1];
B[i] := mas1[(i - 1)*3 + 2];
C[i] := mas1[(i - 1)*3 + 3];
end;
type
TVec = array[1 .. 9] of integer;
TMatr = array[1 .. 9] of TVec;
var
M: TMatr; mas1: TVec;
for i := 1 to 3 do
begin
A[i] := mas1[(i - 1)*3 + 1];
B[i] := mas1[(i - 1)*3 + 2];
C[i] := mas1[(i - 1)*3 + 3];
end;
for i := 1 to 3 do
begin
A[i] := mas1[3*(i-1) + 1];
B[i] := mas1[3*(i-1) + 2];
C[i] := mas1[3*(i-1) + 3];
end;