Перебор всех доступных значений!

[puporev]

Время выполнения программы в значительной степени зависит не от временени вычисления, а от времени вывода. Вывод очень долго делается.
Я как-то делал несколько задач на разные варианты на тему "счастливых билетов". При количестве цифр до 6 разница во времени вычислений между рекурсивным и нерекурсивным вариантами незначительна, а при 20 цифрах(максимально) уже существенна. Но скорость вывода не победил.
А программу на генерацию размещений символов я хорошо помню глазами, там перебирались цифры и малые латинские буквы при n=10; Кто писал, не помню, давно было.

[TAVulator]

вот еще пример на Free Pascal:

var
f:text;
a,b,j:integer;
str,alf:string;
procedure add(s: string; n: integer);
var i:integer;
begin
  for i :=1 to length(alf) do
  begin
    s[n] := alf[i];
    if n = length(s) then writeln(f,s) else add(s, n + 1);
  end;
end;
begin
  assign(f,'c:\dict.txt');
  rewrite(f);
  str:='';
  alf:='0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM-_=+)([]{}<>,./?!@#$%^&*`~;:';
  a:=3;
  b:=3;
  for j:=1 to a-1 do
  str:=str+' ';
  for j:=a to b do
  begin
    str:=str+' ';
    add(str,1);
  end;
  close(f);
end.

он пишет сразу в файл, так что работает и на больших значениях, все зависит только от размера жесткого диска :-)

[AquaKlaster]

спс всем за ответы тему можно закрыть!

[puporev]

вот еще пример на Free Pascal:

Это и в Турбо Паскале работает. Правда файл даже при трех символах секунд 15 писало. Может у меня комп хреновый.

[mutabor]

Я имел ввиду что в той программе к-рую я упоминал (там немного другое условие было) рекурсией не получалось сделать, там по условию на каждый разряд был свой "алфавит". Хотя может и для такой задачи рекурсия подходит, давно это было, и знаний у меня тогда поменьше было. А задача такая: представьте кодовый замок, разрядность (кол-во "барашков" в замке) задается пользователем, набор символов для каждого разряда свой (может быть разной длины) и тоже задается пользователем. Задача - перебрать все варианты.

[TAVulator]

А задача такая: представьте кодовый замок, разрядность (кол-во "барашков" в замке) задается пользователем, набор символов для каждого разряда свой (может быть разной длины) и тоже задается пользователем. Задача - перебрать все варианты.

ну что ж - и для такого есть решение.
Немного переделал свой вариант под вашу задачу:

var
f:text;
a,b,j:integer;
str:string;
const
 alf: array[1..3] of string = ('123','asdfg','789');{тут алфавиты для каждого "барашка"}
procedure add(s: string; n: integer);
var i:integer;
begin
  for i :=1 to length(alf[n]) do
  begin
    s[n] := alf[n][i];
    if n = length(s) then writeln(f,s) else add(s, n + 1);
  end;
end;
begin
  assign(f,'c:\dict.txt');
  rewrite(f);
  str:='';
  {alf:='0123456789';}
  a:=3;
  b:=3;
  for j:=1 to a-1 do
  str:=str+' ';
  for j:=a to b do
  begin
    str:=str+' ';
    add(str,1);
  end;
  close(f);
end.

[petrovich4734]

Уважаемые помогите пожалуйста старому человеку.
Представленная здесь пограмка хорошая.
Я наподобие писал,но у меня никак не получается подставлять
к перебору постоянное нужное мне значение.
Например:
i 00 0006 это скажем нужное значение которое должно
подставляться к каждому перебираемому значению.
Более конкретно:
i 00 0006 000
i 00 0006 001
i 00 0006 002 и.т.д
Пожалуйста если вас сильно не затруднит
подскажите как дописать представленную здесь програмку.
Буду очень благодарен.
С Уважением Николай(petrovich4734)

[puporev]

if n = length(s) then writeln(f,'i 00 0006'+s) else add(s, n + 1);

[petrovich4734]

большое спасибо

все получилось

[petrovich4734]

puporev
Уважаемый не выручите еще раз.
вот написал програмку в ней в MaskEdit происходит постоянный перебор.
Написал уже очень давно, но до сих пор не смог прописать так чтобы,
что происходит в MaskEdit происходило бы и в каком нибудь тхт. файле.
Что я только не пробовал.
С Уважением Николай(petrovich4734).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    mEdit: TMaskEdit;
    SaveDialog1: TSaveDialog;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
function RandomPassword(PLen: Integer): string;
 var
   str: string;
begin
   Randomize;
   str    := '0123456789ABCDEF';
   Result := 'I 00 0006 ';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
end;

begin
  mEdit.Text := RandomPassword(32)

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
 end;

end.

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