Реферат Ігрова програма "Судоку"

; (f);

I: = 1 to matrix.n doj: = 1 to matrix.n do (f, c); [i, j]: = ord (c)-ord ('0 '); ;

I: = 1 to matrix.n doj: = 1 to matrix.n do (f, c); (ord (c)-ord ('0 ')) = 1 then u [i , j]: = true else u [i, j]: = false;;

(f);;

.

WorkWithMatrix;

Matrix = classn = 9;

t_mas = array [1 .. n] of byte; _matr = array [1 .. n] of t_mas;// власне саме судоку_set = set of 1 .. n;// безліч

t_mas_set = array [1 .. n] of t_set;// масив множин для перевірки на повтори

t_mas_boolen = array [1 .. matrix.n] of boolean;// масив флагов_matr_boolean = array [1 .. matrix.n] of t_mas_boolen;// матриця прапорів

Sdvig (var s: t_matr; i: Byte);// зрушення 3 рядків на 1 шагsdvig2 (var s: t_matr; i: byte);// зсув одного рядка на 1 шагZeroBoolMatr (var b : T_matr_boolean);// обнулення булевої матріциIfMatrHavNull (s: T_matr): boolean ;//перевіряє чи має матриця хочаб один нуль

;

matrix.IfMatrHavNull (s: Matrix.t_matr): boolean; i, j: byte;: boolean;: = true; i: = 1; j: = 1; (i <= n) and (f = true) do: = 1; (j <= n) and (f = true) dos [i, j] = 0 then f: = false;: = j +1;;: = i +1; ;: = f;;

Matrix.ZeroBoolMatr (var b: Matrix.t_matr_boolean); i, j: byte; I: = 1 to n doj: = 1 to n do [i, j]: = false;; Matrix . Sdvig; b: T_matr; [i, 1]: = s [i-1, 4]; [i, 2]: = s [i-1, 5]; [i, 3]: = s [i- 1,6];

[i, 7]: = b [i, 1]; [i, 8]: = b [i, 2]; [i, 9]: = b [i, 3]; ;

Matrix.sdvig2 (var s: t_matr; i: Byte); j, z: byte;: = s [i, 1]; j: = 2 to n do [i, j-1 ]: = s [i, j];; [i, n]: = z;;.

Project1;

{$ APPTYPE CONSOLE}

, in 'Sudoky.pas', in 'GameSud.pas', in 'WorkWithMatrix.pas'; WriteSud (var s: matrix.t_matr); i, j: byte; i: = 1 to matrix.n do; j: = 1 to matrix.n do (''); (s [i, j]);;;;

WriteMatrBool (var v: t_matr_boolean); i, j: byte; i: = 1 to matrix.n do;; j: = 1 to matrix.n do (''); (v [ i, j]);;;;

S: Tsudoky;: TGameSudoky;: matrix.t_matr;, j, l: integer;: boolean;

: = TGameSudoky.Create;. Adres: = 'C: Users 91980 Desktop Курсовий проект з ООП Save.txt';. Ans: = nil;. Mlen: = 100;

('Generate sudoky:');. Random_generate (s1.Sud, s1.GameSud); (s1.Sud);;;

('Generate game sudoky:'); (s1.GameSud);;;

. DoRec (s1.GameSud);: = length (s1.Ans); ('Count of ansver:', '', l);;;

('Save in file');. Save (s1.GameSud);;; ('Load from file');. Load (b); (b);;...