размера m. Построить алгоритм перебора всевозможных
выборок размера m
-язык программирования: Delphi для DOS
-алгоритм нерекурсивный!!!
-Ниже указан мой рекурсивный алгоритм, может быт, он вам поможет.
program combinations;
{$APPTYPE CONSOLE}
Const Simbols : String = 'ab12';
Procedure Generate(S : String; Lev : Integer);
Var I : Integer;
Begin
If (Lev = 0) Then
Begin
Writeln(S); {next password}
Exit;
End;
For I:=1 To Length(Simbols) Do
Generate(S + Simbols[I], Lev - 1);
End;
Begin
Generate('', 3); {3 simbols for password}
Readln;
End.
теги ! (klem4)
