Судоку-Жирандоль

[Armageddets]

Нет, интерес я не утратил - я просто был занят. Спасибо всем кто откликнулся - буду пробовать Ваши методы. У меня есть время больше месяца на эту программу.

[Serge_Bliznykov]

Сообщение от Armageddets

буду пробовать Ваши методы

какие "методы"? )

в пост #9 Аватар выложил полностью ГОТОВЫЙ рабочий код.
Можно брать и пользоваться.

[Armageddets]

Все работает. Громадное спасибо! Я бы не додумался сделать так - это точно.

[Alar]

Сообщение от Аватар

Интересно стало)) Рекурсивно случайным подбором вполне хорошо. Вот прикидка. В принципе так и решать можно, задав значения в нужные клетки вместо тех девяти фиксированных. Для решения случайность и не обязательна, просто перебором можно из допустимых значений. Можно и приспособить для проверки - единственное решение или нет. Для составителей это должно быть актуально.

var Sudoku: array[0..8,0..8] of Integer;

function Recursive(pRow,pCol: Integer): Boolean;
var i,j,i1,j1,xCount: Integer;
    xUsed,xFor: array[1..9] of Integer;
begin
  Result:=False;
  for i:=1 to 9 do xUsed[i]:=i;
  for i:=(pRow div 3)*3 to (pRow div 3)*3+2 do
    for j:=(pCol div 3)*3 to (pCol div 3)*3+2 do if Sudoku[i,j]>0 then xUsed[Sudoku[i,j]]:=0;
  for i:=0 to 8 do if Sudoku[i,pCol]>0 then xUsed[Sudoku[i,pCol]]:=0;
  for j:=0 to 8 do if Sudoku[pRow,j]>0 then xUsed[Sudoku[pRow,j]]:=0;
  while True do begin
    xCount:=0;
    for i:=1 to 9 do if xUsed[i]>0 then begin Inc(xCount); xFor[xCount]:=i; end;
    if xCount=0 then Exit;
    Sudoku[pRow,pCol]:=xFor[Random(xCount)+1];
    i1:=-1; j1:=-1;
    for i:=0 to 8 do begin
      for j:=0 to 8 do if Sudoku[i,j]=0 then begin i1:=i; j1:=j; Break; end;
      if i1<>-1 then Break;
    end;
    Result:=(i1=-1) or Recursive(i1,j1);
    if Result then Exit;
    xUsed[Sudoku[pRow,pCol]]:=0;
    Sudoku[pRow,pCol]:=0;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var i,j: Integer;
    s: String;
function FixNumber(Count: Integer; Casually: Boolean = True): Integer;
begin
  if Casually then begin
    Result:=StrToInt(s[Random(Count)+1]);
    s:=StringReplace(s,IntToStr(Result),'',[]);
  end  
  else Result:=10-Count;
end;
begin
  Randomize;
  s:='123456789';
  for i:=0 to 8 do
    for j:=0 to 8 do begin
      if      (i=0) and (j=0) then Sudoku[i,j]:=FixNumber(9)
      else if (i=0) and (j=8) then Sudoku[i,j]:=FixNumber(8)
      else if (i=1) and (j=4) then Sudoku[i,j]:=FixNumber(7)
      else if (i=4) and (j=1) then Sudoku[i,j]:=FixNumber(6)
      else if (i=4) and (j=4) then Sudoku[i,j]:=FixNumber(5)
      else if (i=4) and (j=7) then Sudoku[i,j]:=FixNumber(4)
      else if (i=7) and (j=4) then Sudoku[i,j]:=FixNumber(3)
      else if (i=8) and (j=0) then Sudoku[i,j]:=FixNumber(2)
      else if (i=8) and (j=8) then Sudoku[i,j]:=FixNumber(1)
                              else Sudoku[i,j]:=0;
    end;
  Recursive(0,1);
  for i:=0 to 8 do
    for j:=0 to 8 do StringGrid1.Cells[j,i]:=IntToStr(Sudoku[i,j]);
end;

интересно.