Помогите пожалуйста решить сложную задачу!

[Virtson]

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

[Biowulf86]

Огромное спасибо, что помогаете!

[Yogik™]

Надеюсь, я правильно понял задание.
В этом примере константа krit равна десяти девяткам (десять оценок), то есть 9999999999 (боюсь, что компьютер не осилит таких чисел...), а в моем - трем, 999, то есть три оцеки.
Если в чем-то неправ, поправьте, мне просто было интересно попробовать.
..прошу прощения за неграмотные переменные))

[Virtson]

только сортируется явно не правильно )
для генерации надо прижумать что-то работающее с 30 разрядами.

для последующей сортировки хранить не просто числа/комбинации,
но в записи[record] + к ним максимальную цифру и сумму цифр.

[mutabor]

Biowulf86 тебя вариант с циклом for 30-ти кратной вложенности устроит?

цикл будет иметь такой вид, синим цветом выделено то что нужно увеличивать на единицу с каждым вложением

for i1:=0 to m[0]-1 do
begin
SetLength(s,1);
s[1]:=IntToStr(i1)[1];
if Length(m) < 2 then
begin
Memo1.Lines.Add(s);
Continue;
end;
//сюда влаживать такой же
end;

[Carbon]

Рекурсия и всего делов!

[Biowulf86]

Yogik™, огромное спасибо за помощь!

Если несложно, объясни пожалуйста, каким образом вычислить количество возможных комбинаций? Если например критериев будет 5 и для каждого разное количество оценок?

[mutabor]

Довольно проблематичным может быть просмотр результата. Уже с шестью критериями если в каждом по десять оценок (если в ходе сортировки ничего не отбрасывать получится 1 000 000 комбинаций), вывод в Мемо миллиона строк на моем компьютере (1.8 ГГц) занимает около семи минут. Если писать в файл, конечно получится намного быстрее, но вот на открытие этого файла уйдет практически такое же время. Я уже не говорю о 20-ти а тем более 30-ти критериях.
Хотя если "загрузка" будет не полная, в среднем по пять, вариантов будет намного меньше. С девятью критериями будет почти два миллиона - 15 минут вывода в Мемо )

[Biowulf86]

Да, я понял. Ну путь тогда критериев будет от 1 до 15, а оценок от 0 до 5

[mutabor]

Вот посмотри, я сделал до 6-ти критериев до 10-ти оценок в каждом, с помощью вложенных циклов. Лучше конечно с рекурсиями, чтобы нагромождение циклов не делать. Расширить еще на несколько критериев дело двух минут, там в коде отмечено куда циклы пихать. Сортировки нет, просто все варианты. Вводить данные в Мемо2.
perebor.rar