Игра "Определитель" Опции

[setare]

Здравствуйте! Мне очень сильно нужно помощь! Нам задали написать тгру определитель, предварительно даже не рассмотрев хотя бы одну программу по написанию игр на Паскале. Я тоже не могу найти никакую литературу по теории игр и реализации их на Паскале. Суть игры состоит в следующем: Есть матрица 3 на 3. 2 Игрока ходят поочередно и ставят цифры в любое место матрицы, при том цифры не должны повторяться. Когда вся матрица заполнена, мы считаем ее детерминант. Если Д больше 0, то выиграет первый, если меньше, то второй, если равно, то ничья. Моя проблема в том, что откуда приступить в задаче. С чего вообще начать? Понятно какими методами нужно пользовться: перебором, отсечением альфа-бета, рекурсией. Но откуда приступить к написанию кода? Как сделать так, чтобы пользователь вписал цифру в таблицу и компьютер отвечал?

Пожалуйста, обьясните мне и не закрывайте тему! Спасибо большое!!!!

[volvo]

:no: Дож, это - не мой вариант. Мой вариант - что-то в таком духе:

Type
  TResult = Record
    Digit: byte; Pos: Byte;
  End;
Var
  max_D: LongInt;
  max_Matrix: String;

{
  CurrMatrix - "развернутое" в строку представление матрицы
  ToUse - оставшиеся для использования цифры
}
Procedure AI(CurrMatrix, ToUse: String);
Var
  D: LongInt;
  s_u, s_m: String;
Begin
  If ToUse = '' Then Begin { цифр больше не осталось -> матрица заполнена }
    D := get_determ(CurrMatrix); { считаем детерминант }
    If D > max_D Then Begin { если найденный D больше/меньше всех предыдущих }
      { запоминаеи макс/мин детерминант и саму матрицу, при которой это произошло }
      max_D := D; max_matrix := CurrMatrix;
    End;
    Exit; { и заканчиваем рекурсию } 
  End;

  { А вот если матрица заполнена не окончательно (ToUse не пустая строка)... }
  {
    ... то генерируем возможные сочетания элементов,
    и передаем это опять в AI:
  }
  For j := 1 To Length(ToUse) Do
    For i := 1 To Length(CurrMatrix) Do
      If CurrMatrix[i] = '0' Then Begin
        s_m := CurrMatrix; s_m[i] := ToUse[j];
        s_u := ToUse; Delete(s_u, j, 1);
        AI(s_m, s_u); { Рекурсия !!! }
      End;
End;

Procedure ComputerMove(CurrMatrix, ToUse: String; Var R: TResult);
Begin
  AI(CurrMatrix, ToUse);
  {
    Когда мы здесь - уже известно, какая матрица из возможных
    дает выигрышную комбинацию, и имея CurrMatrix и max_Matrix,
    можно выбрать одну из цифр, НЕ присутствующих в CurrMatrix...

    Результат (цифра и ее позиция в строке) возвращается через R,
    а потом при отрисовке R.Pos легко переведется в строку и столбец матрицы...
  }
End;