排列组合专题.pptVIP

vari,n,k:integer;a:array[1..10]ofinteger;count:longint;procedureperm(k:integer);varj,p,t:integer;beginif()thenbegin();forp:=1tokdowrite(a[p]:1);write();if()thenwriteln;exit;end;forj:=ktondobegint:=a[k];a[k]:=a[j];a[j]:=t;perm(k+1);t:=a[k];()endend;beginwriteln(Entryn:);read(n);count:=0;fori:=1tondoa[i]:=i;()end.perm(1)K=ninc(count)countmod5=0a[k]:=a[j];a[j]:=t;123132213231321312第30页，共85页，星期日，2025年，2月5日算法过程:用数组：a:array[1..r]ofinteger;表示排列;初始化时，a[i]:=i(i=1,2,…r);设中间的某一个排列为a[1],a[2],…，a[r]，则求出下一个排列的算法为：①从后面向前找，直到找到一个顺序为止（设下标为j-1,则a[j-1]a[j]）②从a[j]～a[r]中，找出一个比a[j-1]大的最小元素a[k]③将a[j-1]与a[k]交换④将a[j]，a[j+1]……a[r]由小到大排序。问题描述:用生成法求出1，2，…，r的全排列(r=8).{1999年提高组}第31页，共85页，星期日，2025年，2月5日constr=7;varn,i,s,k,j,i1,t:intger;a:array[1..r]ofinteger;procedureprint1;varik:integer;beginforik:=1tordowrite(a[ik]:8);writeln;endbeginfori:=1tordo_____________;print1;{输出第一个排列}s:=1;fori:=2tordos:=s*i;{总排列数为r!}s:=s-1;{还需生成s-1个排列}fori:=__________dobeginj:=r;while_____________doj:=j-1;k:=j;fori1:=j+1tordoif_____________thenk:=i1;t:=a[j-1];a[j-1]:=a[k];a[k]:=t;fori1:=jtor-1dofork:=i1+1tordoif_______________thenbegint:=a[i1];a[i1]:=a[k];a[k]:=t;end;print1;end;end.a[i]:=i1tosa[j-1]a[j](a[i1]a[j-1])and(a[i1]a[k])a[i1]a[k]132541345213425第32页，共85页，星期日，2025年，2月5日【问题描述】