《排列组合专题》课件.pptVIP

2021/7/26 * 组合的生成算法 从1,2,3,…,n共n个数中任取m个数，请输出所有组合并计算组合数。 var n,m,i,k,s:integer; a,b:array[0..100] of integer; begin readln(n,m); for i:=1 to m do begin a[i]:=i; b[i]:= ; end; k:=m; s:=0; repeat if then begin s:=s+1; for i:=1 to m do write(a[i]); write( ); end; if a[k]b[k] then begin ; if km then for k:=k+1 to m do ; end else ; until k=0; writeln; writeln(s=,s); end. n-m+i k=m a[k]:=a[k]+1 a[k]:=a[k-1]+1 k:=k-1 . 2021/7/26 * Jam的计数法 【问题描述】 Jam是个喜欢标新立异的科学怪人。他不使用阿拉伯数字计数，而是使用小写英文字母计数，他觉得这样做，会使世界更加丰富多彩。在他的计数法中，每个数字的位数都是相同的（使用相同个数的字母），英文字母按原先的顺序，排在前面的字母小于排在它后面的字母。我们把这样的“数字”称为Jam数字。在Jam数字中，每个字母互不相同，而且从左到右是严格递增的。每次，Jam还指定使用字母的范围，例如，从2到10，表示只能使用{b,c,d,e,f,g,h,i,j}这些字母。如果再规定位数为5，那么，紧接在Jam数字“bdfij”之后的数字应该是“bdghi”。（如果我们用U、V依次表示Jam数字“bdfij”与“bdghi”，则UV，且不存在Jam数字P，使UPV）。你的任务是：对于从文件读入的一个Jam数字，按顺序输出紧接在后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。 . 2021/7/26 * 【输入文件】 输入文件counting.in 有2行，第1行为3个正整数，用一个空格隔开： s t w （其中s为所使用的最小的字母的序号，t为所使用的最大的字母的序号。w为数字的位数，这3个数满足：1≤st≤26, 2≤w≤t-s ） 第2行为具有w个小写字母的字符串，为一个符合要求的Jam数字。 【输出文件】 输出文件counting.out 最多为5行，为紧接在输入的Jam数字后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。每行只输出一个Jam数字，是由w个小写字母组成的字符串，不要有多余的空格。 【输入样例】 2 10 5 bdfij 【输出样例】 bdghi bdghj bdgij bdhij befgh . 2021/7/26 * var i,j,s,t,w,n:longint; st:string; a:array[0..30]of integer; begin readln(s,t,w); readln(st);{输入起始字符串} for i:=1 to w do a[i]:=ord(st[i])-(ord(a)+s)+2;{将字符串转变为数字串} a[0]:=0;n:=0;{控制开关变0和生成个数清0} while (a[0]=0)and(n5) do begin i: