TForm2.FormCreate (Sender: clSkyBlue; (cl);;
;
PaintRec (cl: Tcolor); k1, k2, i2, j2: integer;: = 0; k2: = 0; I2: = 1 to matrix.n do: = 0; j2: = 1 to matrix.n do (i = i2) and (j = j2) and (s.Viz [i, j] = false) then.UsersPointer [i, j]: = not (s.UsersPointer [i, j] ); s.UsersPointer [i, j] = true then: = mod 3 = 0 then k1: = k1 +5;;: = k2 + T; i2 mod 3 = 0 then k2: = k2 +5;;;
TForm2.Image1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); x1, y1, x2, y2, k1, k2, i2, j2: integer;: Tcolor ;: = 0; x2: = T-1; j: = 1; i: = 1; y1: = 0; y2: = t; (j <= matrix.n) and not ((x1
: = clgraytext; (cl);
;
TForm2.N2Click (Sender: TObject); form2.SaveDialog1.Execute () then.Adres: = form2.SaveDialog1.FileName;. Save (s.GameSud);;
;
TForm2.N3Click (Sender: TObject); cl: TColor; form2.OpenDialog1.Execute thenform2.OpenDialog1.FileName <>'' then.Adres: = form2.OpenDialog1.FileName;. Load ( s.GameSud, s.User);: = clSkyBlue; (cl);;;;;
TForm2.N4Click (Sender: TObject);. Close;;
.
Sudoky;
windows, Classes, WorkWithMatrix;
TSudoky = class: Matrix.t_matr;: Matrix.t_matr;: array of Matrix.t_matr;// масив відповідей з судоку
Mlen: integer ;//кількість рішень на масиві Ans
Matr: matrix;
create (); done (); SudAddAns (s: matrix.t_matr) ;//додаємо судоку в масив ответовSudMod (var s: matrix.t_matr; var p: Tpoint; v: integer): Matrix.t_matr ;//заміна в судоку s одного значення v на позиції PIsNextUnknown (s: matrix.t_matr; var p: Tpoint): boolean;// нахотім в судоку пусту клітинку і повертаємо позицію P, інакше False; SudInLine (s: matrix.t_matr; var p: Tpoint; v: integer): boolean ;//перевірка за строкеSudInRow (s: matrix.t_matr; var p: Tpoint; v: integer): boolean;// перевірка за столбцуSudInSq (s: matrix. t_matr; var p: Tpoint; v: integer): boolean;// перевірка в квадратеSudInAny (s: matrix.t_matr; var p: Tpoint; v: integer): boolean;// загальна перевірка на постановку чіслаDoRec (S: Matrix. t_matr): boolean ;//рекурсивне побудова судоку
function SudOK (s: Matrix.t_matr): boolean ;//перевірка на правильність побудованого судокуgenerate (var s: matrix.t_matr);// генерування судоку швидким методом c можливим повторенням
procedure generate_matr (var s: matrix.t_matr) ;//генерує матрицю без повторенійRandom_generate (var s, b: matrix.t_matr);// генерація ігровог...