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

oj: = 1 to matrix.n do t [j]: = t [j] + [s [i, j]];

: = 4;. sdvig (s, i);

j: = 1 to matrix.n do (s [i, j] in t [j]) then.sdvig2 (s, i);;;

i: = 5 to 6 do matr.sdvig (s, i); i: = 5 to 6 doj: = 1 to matrix.n do t [j]: = t [j] + [s [i, j]];: = 7;. sdvig (s, i); j: = 1 to matrix.n do (s [i, j] in t [j]) then.sdvig2 (s, i );;; i: = 8 to 9 do matr.sdvig (s, i);;

tsudoky.generate_matr (var s: matrix.t_matr); flag: boolean; (s);: = SudOK (s);; (flag = false);; tsudoky.Random_generate (var s, b: matrix.t_matr); i, j, k: integer;: boolean;

// s: t_matr;; _matr (s); I: = 1 to matrix.n doj: = 1 to matrix.n do: = random (2) +1; k = 1 then [i, j]: = s [i, j]; b [i, j]: = 0;;;

.

GameSud;

Sudoky, WorkWithMatrix;

TGameSudoky = class (Tsudoky): string;// адресс куди буде збережена гра: matrix.t_matr_boolean;// матриця прапорів видимості чіслел на ігровому полі: matrix.t_matr_boolean;// матриця прапорів введених користувачем значень : matrix. t_matr_boolean ;//матриця прапорів виділених користувачем клітин

publicCreate; Done; Save (s: matrix.t_matr);// збереження ігриLoad (var s: matrix.t_matr; var u: matrix.t_matr_boolean);// завантаження ігриSudVizibleOnField (s: matrix. t_matr; var b: matrix.t_matr_boolean) ;//заповнює матрицю прапорів видимості відповідно до матрицею SSudVizible (V: matrix.t_matr_boolean; i, j: byte): boolean ;//Чи повинно число відображатися на екранNulling (var b: matrix . t_matr_boolean);// обнулення матриці прапорів введених користувачем значенійSudIsFulling (s: matrix.t_matr): boolean;// заповнена Чи судоку до кінця;

TGameSudoky.Create; i, j: byte; create; I: = 1 to matrix.n doj: = 1 to matrix.n do [i, j]: = false;;

TGameSudoky.SudIsFulling (s: Matrix.t_matr): boolean; matr: matrix;: = matr.IfMatrHavNull (s);;

Tgamesudoky.Nulling (var b: Matrix.t_matr_boolean); Matr: matrix;. ZeroBoolMatr (b);;

TGameSudoky.Done; i, j: byte; Done;: =''; I: = 1 to matrix.n doj: = 1 to matrix.n do [i, j]: = false ;;

TGameSudoky.SudVizibleOnField (s: matrix.t_matr; var b: matrix.t_matr_boolean); i, j: byte; I: = 1 to matrix.n doj: = 1 to matrix.n dos [ i, j] = 0 then b [i, j]: = falseb [i, j]: = true;;;

TGameSudoky.SudVizible;: = (v [i, j] = true);;

TGameSudoky.Save (s: matrix.t_matr); f: text;, j: byte; (f, adres); (f); I: = 1 to matrix.n doj: = 1 to matrix.n do (f, s [i, j]);

I: = 1 to matrix.n doj: = 1 to matrix.n douser [i, j] = true then write (f, 1) else write (f, 0); (f) ;

;

TGameSudoky.Load; f: text;, j: byte;: char; (f, adres)...