Цитата:
|
Сообщение от lmikle
ОК, т.е. тебе нужен перебор по некоторому алфавиту (только для англ. букв я тебе дал код). Принцип тот же, что я уже показал, только вычисление следующего символа и проверка переноса будут выполняться немного подругому.
1. Имеем массив символов, кстати, можно просто строку, с алфавитом.
2. Имеем массив интеджеров для представления текущей комбинации, где 0 означает, что место пока не заполнено. Длинна массива соответствует длинне подбираемого слова.
3. При вызове функции увеличиваем последнюю ячейку на 1. Если зачение получилось > длинны алфавита, то ставим туда 1 и увеличиваем на 1 ячейку слева (по тем же правилам).
4. Генерируем слово используя массив индексов и алфавит (тут думаю проблем не будет).
Код не даю, т.к. ты хочешь разобраться. Можешь как начало использовать тот код, что я тебе дал, просто измени его, что бы он работал с алфавитом.
|
Спасибо большое , только проблема в том что я в Delphi 7 составлял только программы для вычисления интегралов , вычисления матриц и т.п. и поэтому код , который вы прислали , немножко трудноват , мне сначала надо разобрать и понять что за что отвечает ( в коде программы ) , если можно конечно , объясните принцип работы вашей программы ( в основном так понятно , но поверхностно ).