ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Konstantin Osmehin                   2:5020/400     19 Feb 2002  17:46:00
 To : Denis Gladysh
 Subject : Re: Алгоритм генерации строковых последовательностей
 -------------------------------------------------------------------------------- 
 

 Вот написал:
 компилировал в D5
 program Project1;
 {$APPTYPE CONSOLE}
 uses
   Math;
 const
  MaxChars=4;
  MaxLen=3;
 var
  str:array[1..MaxLen] of integer;
  alphabet:array[0..MaxChars-1] of char=('a','b','c','d');
  i:integer;
  procedure IncStr(ind:integer);
   begin
    str[ind]:=(str[ind]+1) mod MaxChars;
    if str[ind]=0 then
     begin
      ind:=ind+1;
      IncStr(ind);
     end;
   end;
  procedure print_str;
   var
    i:integer;
   begin
    for i:=MaxLen downto 1 do write(alphabet[str[i]]);
    writeln;
   end;
 begin
  for i:=1 to MaxLen do str[i]:=0;
  for i:=1 to trunc(Power(MaxChars,MaxLen)) do
   begin
    print_str;
    IncStr(1);
   end;
 end.
 -- 
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Алгоритм генерации строковых последовательностей   Denis Gladysh   19 Feb 2002 12:34:23   Re: Алгоритм генерации строковых последовательностей   Konstantin Osmehin   19 Feb 2002 17:46:00