Метод перебора для нахождения решения "Судоку"

[ДЖО]

хм спасиб, народ а вы бы не могли дать полный код такой проги?

[eoln]

Проблема в том, что даже на самых быстрых ЭВМ расчёты для такой задачи будут длится не одну сотню лет

[ДЖО]

люди пожалуйста, немогли бы вы дать четкий код проги, умоляю...очень надо, пожалуйста

[ДЖО]

люди, ну пожалуйста...дайте кто нибудь полный код этой проги...
умоляю...очень надо

[alexBlack]

Предлагаю вот такой вариант.
Может несколько усложнено, но оптимизировать уже не хочется.
Суть метода.

Получаем все возможные варианты строк, сумма чисел в которых = 20
Таких строк всего около 5000.

Так как в некоторых позициях числа уже известны из этого множества
можно сделать выборку. Таким образом для каждой строки и каждой колонки получаем списки вариантов, которые заведомо подходят под указанную матрицу и сумма чисел = 20.

Но даже в этом случае прямой перебор всех вариантов это слишком долго. Вместо этого делаем следующее:
берем пустую матрицу. Записываем в нее один из вариантов для первой строки. Записываем вариант первой колонки. Дальше - вторая строка и вторая колонка и так далее. Процесс записи оформляем как рекурсию. В этом случае неправильные варианты отсеиваются быстрее, чем при прямом переборе.

Готовые варианты помещаются в ListBox. Проблема в том, что для взятого мной примера их очень много, поэтому пришлось ограничить количество выводимых вариантов.
Вот один из возможных ответов.

07229
00389
66152
64550
83900

Код во вложении.

[ДЖО]

procedure getVariants(S, N:integer; L:TStringList);
var 
L1:TStringList;
    i, j:integer;
    S1:integer;
begin

вот в этой строке(выделенно красным) выдает ошибку Undeclared identifier: 'TStringList'

[alexBlack]

Ни разу не увидел упоминания языка на котором Вы пишете.

Код, который я привел - на Delphi. TStringList - список строк. Если Вы пишете на Паскале, рекомендую заменить его на динамически размещаемый массив строк:

type
StringList = array [0..6000] of String[5];
TStringList = ^StringList;

или используйте другой походящий вариант. Описание метода я привел, рабочий код тоже. Разбираться Вам.

[ДЖО]

я пишу тоже на Delphi, но все равно есть ошибка с TStringList

[alexBlack]

Сообщение от ДЖО

я пишу тоже на Delphi, но все равно есть ошибка с TStringList

uses Classes

[ДЖО]

alexBlack
ничего не получается, ты не мог бы дать скомпилированный код