Судоку, проблема с массивом Опции

[marwell]

Появилась надобность написать программу генерации таблиц судоку (думаю, всем известна эта игра)
в инете нашел описание одного метода 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. 

буду благодарен совету

Сообщение отредактировано: marwell - 28.11.2010 15:35

[volvo]

Не знаю, правильно ли то, что ты делаешь, но если массивы описаны вот так:

type
  TVec = array[1 .. 9] of integer;
  TMatr = array[1 .. 9] of TVec;

var
  M: TMatr; mas1: TVec;

, то у компилятора вообще не возникнет никаких вопросов, присвоение состоится...

[marwell]

Не знаю, правильно ли то, что ты делаешь, но если массивы описаны вот так:

type
  TVec = array[1 .. 9] of integer;
  TMatr = array[1 .. 9] of TVec;

var
  M: TMatr; mas1: TVec;

, то у компилятора вообще не возникнет никаких вопросов, присвоение состоится...

спасибо, работает

Добавлено через 3 мин.

Кстати, вот этот кусок:
я бы переписал так:

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;

(опять же, чисто визуально, не вникая в логику...)

да, ты прав, так получше

Добавлено через 9 мин.
хотя, кажется я поторопился
по твоему коду же тогда получается что A[1]=(mas1[1], mas1[4], mas1[7])
а мне надо чтобы было вот так A[1]=(mas1[1], mas1[2], mas1[3]) ...

Сообщение отредактировано: marwell - 29.11.2010 12:14