Комбинаторика - нахождение всех возможных комбинаций

[Serge_Bliznykov]

Helen236, а чем Вас ваша предыдущая тема перестала устраивать?!

Что нужно изменить если дана строка символов (и числа и цифры)????

впрочем....
"Вы хочете песен?, их есть у меня!"

извольте:

uses crt;
const n = 4; { количество элементов в перестановке}
var a:array[1..n] of integer;
    j:integer;{счетчик}
    kol : longint;{количество перестановок}
    s: string[n];

procedure generate (l,r:integer;var k:longint);
var i,v:integer;
begin
if (l=r) then
  begin
    for i:=1 to n do write(s[a[i]],' ');
    writeln;
    k:=k+1;
  end
else
  begin
    for i := l to r do
      begin
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
        generate(l+1,r,k); {вызов новой генерации}
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
      end;
  end;
end;

begin
clrscr;
repeat
  WriteLn('Введите строку из нужных символов длиной ровно ',n,' символов:');
  Readln(s);
until length(s)=n;
for j := 1 to N do a[j]:=j;
generate( 1,n,kol);
writeln('kol=',kol);
readln
end.

[woojin]

всем привет!
у меня вопрос как раз по данной теме
есть набор чисел от 1 до 9
как при помощи данной программы с генерировать все возможные комбинации длинной 2 символа

пример: 1-2, 1-3, 1-4, 1-5 и т.д.

[woojin]

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

всем привет!
у меня вопрос как раз по данной теме
есть набор чисел от 1 до 9
как при помощи данной программы с генерировать все возможные комбинации длинной 2 символа

пример: 1-2, 1-3, 1-4, 1-5 и т.д.

всё сам справился, если кому надо (Delphi XE5):

PHP код:

program generation_of_permutations3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  a: array[1..9, 1..9] of string;
  i, j, l: integer;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    l:=0;
    for i := Low(a) to High(a) do
       for j := Low(a) to High(a) do
          begin
            if i <> j then
               begin
                 a[i, j] := IntToStr(i) + '-' + IntToStr(j);
                 inc(l);
               end
             else
               a[i, j] := '***';
          end;

    for i := Low(a) to High(a) do
       begin
         for j := Low(a) to High(a) do
            write(a[i, j], '   ');
         writeln;
       end;
    writeln('l=', l);
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end. 


[Smitt&Wesson]

Если сишникам интересно как работает алгоритм перестановок из библиотеки STL, вот алгоритм:

#include <iostream>
#include <algorithm>
using namespace std;

int main()
{
int myints[] = {1,2,3};
  do 
  {
    cout << myints[0] << ' ' << myints[1] << ' ' << myints[2] << '\n';
  } while (next_permutation(myints,myints+3) );
cin.get();
return 0;
}

И к стати, количество перестановок равно не N^X, а !N.

[woojin]

а алгоритм то где?
просто передача массива в функцию это и есть весь алгоритм!

[Smitt&Wesson]

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

а алгоритм то где?

Читайте код внимательнее. #include <algorithm>
STL содержит свыше 100 алгоритмов и их вариантов. Один из них - генератор перестановок, функции nex_permutation и prev_permutation.
Я показал, как эти функции, могут быть использованы в конкретном приложении и на сколько сокращается код, при их применении.

[woojin]

Сообщение от Smitt&Wesson

Читайте код внимательнее. #include <algorithm>
STL содержит свыше 100 алгоритмов и их вариантов.

а к примеру зачем грузить все алгоритмы забивая этим память, если требуется только один из 100
P.S. а так очень удобно - не надо велосипед изобретать

[Smitt&Wesson]

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

а к примеру зачем грузить все алгоритмы забивая этим память, если требуется только один из 100
P.S. а так очень удобно - не надо велосипед изобретать

Молодой человек, почитайте, что такое линковщик и компилятор и всё станет на свои места. При линковке, из библиотеки беруться только те функции, которые непосредственно используются в программе. Остальные 99, просто игнорируются. Если бы из библиотеки iostream, компилировались все функции, когда мы используем только cin.get() (а их там более 200), то каждая копеешная программа, весила-бы не меньше мегобайта. Что уж говорить о таких библиотеках как VCL...

[Аватар]

Если сишникам интересно как работает алгоритм перестановок из библиотеки STL, вот алгоритм

Только что-то не заметно там самого алгоритма. Это что-то в духе ответа на вопрос "какой алгоритм вычисления синуса" - обратись к функции sin. Забавно

[Smitt&Wesson]

Сообщение от Аватар

Только что-то не заметно там самого алгоритма. Это что-то в духе ответа на вопрос "какой алгоритм вычисления синуса" - обратись к функции sin. Забавно

А зачем забивать гвозди микроскопом? Если следовать Вашей логике, то библиотеки вообще не нужны, да и высокоуровневые языки тоже. Пусть программёры пишут на АСМЕ. Там и алгоритм и полный доступ к ресурсам. В общем, в топку все С++, Паскуале и пр... .