Программа перебора вариантов (изменить перебор цифровой на перебор буквенный)

[BArt2000]

Нужно отредактировать имеющеюся программу. Вообщем суть в том что пользователь вводить число букв. буквы программа сама берёт рандомные и поставить все эти буквы во все возможные варианты. Ответ записать в текстовый документ. Вот программа только она делает все тоже самое только с цифрами и не выводит в текстовый документ.

type stroka=string;
Var k,a:integer;
procedure perest(n:integer; s:stroka);
{n-элемент, который будет вставляться в строку. На данный момент, в строке n-1 символ}
var i:integer;
    st1,st:stroka;
begin
  if n=k+1 then   {В строке n символов, она сформирована, выводим на экран}
              begin
                writeln(s);   exit;
              end
else {В строке  меньше n символов}
    for i:=1 to n do    {Вставляем символ n в строку на i-е место (от 1 до n)}
      begin
        st:=s; {Копируем строку s во вспомогательную переменную st}
        str(n,st1); {Переводим цифру n в строку st1}
        insert(st1,st,i); {Вставляем строку st1 в строку st}
        perest(n+1,st); {Вызываем процедуру perest для следующей цифры n+1}

      end;
      

end;
Begin {Начало основной программы}
  writeln('Введите количкство букв'); readln(k);
  perest(1,''); {Изначально вызываем процедуру для элемента 1, вставляем его в пустую строку}
  readln;
end.

Заранее большое спасибо



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

программа сама берёт рандомные и поставить все эти буквы во все возможные варианты.

противоречие.
Вы уж определитесь - Вам нужно получить несколько случайных вариантов (кстати, совпасть они могут?), либо перебрать ВСЕ ВОЗМОЖНЫЕ..

Да, сходите в этот пост на форуме - ТЫРК
возможно опубликованное там решение перебора элементов строки Вам устроит...

Ответ записать в текстовый документ

ну, это совсем просто.
объявляете переменную типа Text (TextFile, если исходник компилируется в Delphi)
открываете её на запись в начале программы,
заменяете все нужные WriteLn(Текст) на WriteLn(ФайловаяПеременная, Текст);
в конце программы (перед финальным Readln) закрываете файл.
вот и всё, вывод будет записан в текстовый файл.

[denisbrain]

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

Нужно отредактировать имеющеюся программу. Вообщем суть в том что пользователь вводить число букв. буквы программа сама берёт рандомные и поставить все эти буквы во все
Заранее большое спасибо



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Могу помочь исходником подобной программы на Delphi
создания списка паролей для перебора Delphi/Pascal/Исходник

procedure sleep(m:integer);
var i,t:integer;
begin
t:=windows.GetTickCount;
  repeat
   i:=windows.GetTickCount;
   if ((i-t)>m) then exit;
   application.ProcessMessages;
  until true
end;

function StartAndWait(cmdline: String): Boolean;
var
  si: Startupinfo;
  pi: Process_information;
begin
  result := false;
  zeromemory( @si,sizeof(si) );
  si.cb := sizeof(si);
  //пробуем создать процесс, используя заданную командную строку
  //в случае неудачи выходим из функции с результатом False
  if not createprocess( nil, pchar(cmdline), nil, nil, false, 0, nil, Pchar(GetDirectFromFileName(cmdline)), si, pi ) then
    exit;
  //ждем пока процесс не завершится
  //infinite - означает, что ждем без ограничения во времени
  WaitForSingleObject( pi.hprocess, infinite );
  //завершаем процесс
  closehandle( pi.hprocess );
  closehandle( pi.hthread );
  //возвращаем True
  Result := True;
end;

[BArt2000]

Спасибо БОЛЬШОЕ, но нужно именно на паскале)

[levenecav]

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

Могу помочь исходником подобной программы на Delphi
создания списка паролей для перебора Delphi/Pascal/Исходник

procedure sleep(m:integer);
var i,t:integer;
begin
t:=windows.GetTickCount;
  repeat
   i:=windows.GetTickCount;
   if ((i-t)>m) then exit;
   application.ProcessMessages;
  until true
end;

function StartAndWait(cmdline: String): Boolean;
var
  si: Startupinfo;
  pi: Process_information;
begin
  result := false;
  zeromemory( @si,sizeof(si) );
  si.cb := sizeof(si);
  //пробуем создать процесс, используя заданную командную строку
  //в случае неудачи выходим из функции с результатом False
  if not createprocess( nil, pchar(cmdline), nil, nil, false, 0, nil, Pchar(GetDirectFromFileName(cmdline)), si, pi ) then
    exit;
  //ждем пока процесс не завершится
  //infinite - означает, что ждем без ограничения во времени
  WaitForSingleObject( pi.hprocess, infinite );
  //завершаем процесс
  closehandle( pi.hprocess );
  closehandle( pi.hthread );
  //возвращаем True
  Result := True;
end;

Привет!
Очень нужна такая программка, но в ней отображается только 1000 вариантов. Я честно не шарю, но если вы мне поможете буду благодарен. Как увеличить это число?

[levenecav]

Уже не надо, разобрался...