排列与组合-1【信息技术】.docVIP

排列与组合 全排列 在这一节中比较全面的讲解了全排列、选排列和组合。 在全排列中先讲多重循环的全排列，从多重循环的全排列的局限性而引出过程和递归，最后导出全排列的通用程序，便于老师们今后的教学一共介绍了四种，这次学习能先熟练掌握其中一种。多重循环的全排列已经掌握，。 【题目】用1、2、3这三个数字组成，且每位数字互不相同的三位数有多少个？ 有123、132、213、231、312、321六个。这样的数据形式叫做排列。参加排列的对象我们称为元素，如上面的三个数字就是三个元素。从n个不同的元素中，任取m个元素(m≤n)，按照一定的顺序排成一列，叫做n个不同的元素中，任取m个元素的一个排列。 通过上述举例，我们知道形成排列的基本条件是： ①如参加排列有n个元素，必须互不相同的。 ②在一个排列中，同一个元素，只能取一次。 ③如两个排列相同，是指两个排列的元素相同，元素的排列的顺序也相同。123和132是两个不同的排列。 【数学定义】：从n个不同的元素中取出m(m≤n)个元素的所有排列的个数，叫从n个不同的元素中取出m个元素的排列数。用符号表示。 如从n个不同的元素中取n个元素组成的排列。叫做全排列。全排列数公式为： 【数学定义】：0！=1 计算全排列数的程序。 计算n的全排列数就是计算阶乘n!程序清单用整型数只能计算到7!=5040,计算8!=40320就出界。用长整型也只能计算到12！=479001600，计算13！=6227020800就出界。求N!的精确值的程序放在高精度计算中讲解 如要把每个排列列举(即把每个排列的元素输出)，最简单的方法是用多重循环。 根据排列的基本条件，编这样的程序必须： 有n个元素参加排列，就用n重循环 n个元素都有被选的可能，所以每个循环的初值=1，终值=n 因为每个排列的各个元素是不允许相同，所以在每个循环中要有判断各元素值互不相同的条件语句。判断不同的常用方法是：如在第一层循环变量是i，第二层循环变量是j,第三层循环变量是k。则第三层循环是 FOR k:=1 TO n DO IF (ka) AND (kb) THEN BEGIN 语句 END; 这样写比较直观，但元素较多时，语句就冗长。所以当元素较多时，可用一个布尔数组来处理。先使布尔数组的所有元素值都为真： FOR i:=1 TO n DO f[i]:=True; 表示元素1～n都没有用过，在进入某层循环，取了循环变量的值i，就要使其f[i]:=False，在它的内循环中就不能再用其值。在此循环体的最后一句应该再使f[i]:=True出循环，以便再次进入本层循环时能再用其值。下面的程序就用的这种方法。 用多种循环解排列问题，只能一个n值对应一个n重循环的程序，不能通用。 【题目】求n(2≤n≤4)个数的排列。 方法一：用多重循环。因多重循环的排列程序不能通用。n的取值范围是2～4，用CASE语句分重循环重循环重循环来处理。程序清单略 方法二：多个多重循环程序冗长，多重循环的形式都一样，可循环层数最多的一个加GOTO语句。具体方法见下程序 【程序清单】PROGRAM PAILIEA; Label 10,20,30,40; Var i,j,k,l,t,s:Integer; f:ARRAY[1..4] OF Boolean; a:ARRAY[1..4] OF Integer; BEGIN REPEAT ‘用直到循环限制s的输入值 Write(Input s (2=s=4) : ); Readln(s); UNTIL (s1) AND (s5); FOR i:=1 TO s DO f[i]:=True; CASE s OF ‘根据s值的三种情况，分别处理 2:GOTO 20; 3:GOTO 30; 4:GOTO 40 END; 40: FOR i:=1 TO s DO BEGIN ‘4个数的全排列从这里进入 f[i]:=False; a[4]:=i; 30: FOR j:=1 TO s DO IF f[j] THEN BEGIN ‘3个数的全排列从这里进入 f[j]:=False; a[3]:=j; 20: FOR k:=1 TO s DO IF f[k] THEN BEGIN ‘2个数的全排列从这里进入 f[k]:=False; a[2]:=k; FOR l:=1 TO s DO IF f[l] THEN BEGIN