Генератор

[Kashim]

Кто нибудь помогите составить программу на Pascal которая бы составляла все возможные комбинации 11 - ти символьного слова из 26 латинских символов и сохраняла в отдельный txt файл. Ну или на каком другом языке программирования объясните мне я знаю только Pascal. Спасибо всем за внимание.

[rubius2008]

вот генерация слова

for i:=1 to 11 do begin
  x:=random(27)+z;
  s:=s+chr(x);
end;

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

[veniside]

procedure word(const word: string; level: integer);
var
  c: char;
begin
  for c := 'a' to 'z' do
    if (1 = level) then
      saveToFile(word + c)
    else
      word(word + c, level -1);
end;

вызывать так:

word('', 11);

Процедура saveToFile(const word: string) сохраняет переданное слово в файл.

[unbanned]

Delphi

begin
            Append(txt);
            randomize;
                repeat
                  write(txt, sym[Random(c2) + 1]);   //sym - массив символов из которых составлять, с2 - количество символов в массиве
                  c := c + 1;
                  Application.ProcessMessages;
                until c = dl;   //dl - длинна слова
            Writeln(txt, '');
            CloseFile(txt);
end;

[Serge_Bliznykov]

1) господа rubius2008 и unbanned, садитесь, не зачёт!
Правильный вариант (рекурсивное решение) предложил veniside.
Ведь автору требуется не случайным образом получить вариант,
а "программу, которая составляла все возможные комбинации "...

2) Kashim, а Вы знаете, сколько это вариантов?
согласно онлайн калькулятору:
число сочетаний 11 из 26 составляет 7 726 160
(*13 (11 символов + 2 перевод строки) ~ 100 440 080 байт (т.е. примерно 100 мб)
нормально, не многовато? Неверно! ЧИСЛО смотри ниже!

[Niro]

число сочетаний 11 из 26 составляет 7 726 160

Ну сочетаний может быть и столько, но только здесь кажись нужны размещения ( с повторениями), то бишь 26^11, что равно 3 670 344 486 987 776 так что файл получается значительно больше, хотя и 100 метров для текстовика много

[Serge_Bliznykov]

Niro точно. правда Ваша!
Сам сообразил, что ошибся. Ну не может быть такое маленькое число быть.
И верно. Тут не сочетания нужны (в сочетаниях порядок не важен, главное, какие элементы взяты)

В данном случае нужно брать Число размещений из 26 по 11. = 3.08403583488E+14
*13
примерно получаем:
Четыре квадриллиона девять триллионов двести сорок шесть миллиардов пятьсот восемьдесят пять миллионов триста сорок четыре тысячи

[veniside]

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

Четыре квадриллиона девять триллионов двести сорок шесть миллиардов пятьсот восемьдесят пять миллионов триста сорок четыре тысячи

Походу, задача на то, где добыть денег на такой винт.

[unbanned]

омг... ну да, незачет явный)) просто задание бегло проглядел

[Kashim]

Привет всем снова! Я знаю какое это число получается, да конечно это невероятно много 12 символьному слову будет еще больше. Так что же делать. Это не задача это просьба. Кто нибудь способен выполнить её? И если вам так важна истина это словарь паролей на 11 символов. А сохранить можно куда и побольше на пример в .DOC. Ну да ладно не ужели на сайте программистов не могут составить достаточно, в каком-то смысле простую задачку? Не смешите меня. К сожалению я хреновенько знаю программирование. порыскал и нашел сайт где черным по белому написано ФОРУМ ПРОГРАМмИСТОВ, А на самом деле?!