Перейти к содержимому


Размещение c повторением


В этой теме нет ответов

#1 yanush

    Пользователь

  • Пользователи
  • PipPip
  • 21 сообщений

Отправлено 22 декабря 2011 - 08:59

Размещение из n элементов состоит из m элементов (позиций), причём один и тот же элемент может повторяться не более m раз.

Формула размещения с повторением

A=n в степени m


Словесно алгоритм можно описать так:

В n-ричной системе исчесления перебираем все числа от 001 до 000

var p:array [0..1000] of integer;
        b
:array [0..1000] of char;
        i
,j,m,n,s:longint;
   
begin
 
        readln
(n,m);
       
for i:=0 to n-1 do read(b[i]);
 
       
for i:=0 to m do p[i]:=0;
 
   
while p[0]=0 do
       
begin
   
        j
:=m;
       
while p[j]=n-1 do begin
                        p
[j]:=0;
                        j
:=j-1;
                       
end;
        p
[j]:=p[j]+1;
   
       
for i:=1 to m do write(b[p[i]]);
        s
:=s+1;
        writeln
;
   
       
end;
        writeln
(s);
   
end.






Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных