1、8/4/2022河南省實驗中學現代教育技術中心1順序列舉法舉例：某個班有48個學生，按1-48編號，稱為學號。 按學號順序分為6個組，每組8個人。請挑選所有學號是所在組號倍數的學生的學號。8/4/2022河南省實驗中學現代教育技術中心2第一種方法：設某個學生的組號為I，組內號為J，學號為NO，則 NO=？，看每個學生的NO是否為I的倍數。PROGRAM AS;VAR I,J,NO:INTEGER;BEGIN FOR I=1 TO 6 DO FOR J=1 TO 8 DO BEGIN NO=（I-1）*8+J IF INT(NO/I)=NO/I THEN WRITELN( NO) ENDEND.

2、8/4/2022河南省實驗中學現代教育技術中心3方法二：設學號為NO，則組號I=？PROGRAM AS;VAR I,NO:INTEGER;BEGIN FOR NO=1 TO 48 DO BEGIN I=INT(NO-1)/8)+1 IF INT(NO/I）=NO/I THEN WRITELN(NO) ENDEND.8/4/2022河南省實驗中學現代教育技術中心4將1-6的自然數排成兩行三列，使每一行相鄰的數右比左大，每一列相對應的數下比上大，編程找出所有的排列方法。8/4/2022河南省實驗中學現代教育技術中心5算法：S(0) I從2345開始，D1=1，D6=6；S(1) 分離I的各位數字分

3、別為:D(2),D(3),D(4),D(5);S(2) 檢查各位數字是否互不相等且都在2-5之間,若 是轉S(3), 否則轉S(6);S(3) 檢查是否符合行條件,即D(2)D(3),D(4)D(5), 若符合轉S(4),否則轉S(6);S(4) 檢查是否符合列條件,即D(2)5432轉S(7),否則轉S(1);S(7) 結束.8/4/2022河南省實驗中學現代教育技術中心6PROGRAM AS;VAR I:INTEGER;B:BOOLEAN; D:ARRAY1.6 OF INTEGER;BEGIN D1:=1;D2:=6; FOR I:=2345 TO 5432 DO BEGIN D2:=I

4、 DIV 1000; D5:=I MOD 10; D4:=(I DIV 10) MOD 10; D3:=(I MOD 1000) DIV 100; B:=(D2=D3)OR (D2=D4)OR (D2=D5)OR (D3=D4)OR (D3=D5)OR (D4=D5); B:=B OR (D2D3)OR (D3D4)OR (D4D5); IF NOT(B) THEN BEGIN WRITELN(D1:8, D2:8, D3:8); WRITELN(D4:8, D5:8, D6:8); END; END;END.8/4/2022河南省實驗中學現代教育技術中心7二.排列列舉例4 舉出所有用1,2,

5、3這三個數字組成的,且每位數 字互不相同的三位數.例5 有A,B,C三個選手爭奪冠亞軍,舉出比賽所有可能的情況.8/4/2022河南省實驗中學現代教育技術中心8PROGRAM AS;VAR I,J,K:INTEGER;BEGIN FOR I:=1 TO 3 DO FOR J:=1 TO 3 DO IF IJ THEN BEGIN FOR K:=1 TO 3 DO IF KI AND KJ THEN WRITELN(I,J,K) END;END.8/4/2022河南省實驗中學現代教育技術中心9排列列舉算法:從N個數中任取M 個數組成一個排列,放在數組P里.S(0) I=M;S(1) 若IN,則使

6、P(I)=1且I累減1,轉S(1),否則轉S(4);S(4) 檢查P(1),P(2),P(M)是否各不相等,如果是各不相等 置F=1,轉S(5),否則轉S(0);S(5) 返回.8/4/2022河南省實驗中學現代教育技術中心10子程序SUB-2.2 REM SUB-2.2 I=MIF IN THEN P(I)=1:I=I+1:GOTO 520550 FOR J=1 TO M-1FOR P=J+1 TO M560 IF P(J)=P(P) THEN 510570 NEXT P580 NEXT J590 F=1:RETURN8/4/2022河南省實驗中學現代教育技術中心11示例在航海中常掛出不同顏

7、色的一組旗,表示某種信號,今有紅,黃,綠,藍四面旗,任意取三面從上到下掛出,可以有多少種不同的信號?試全部列舉.8/4/2022河南省實驗中學現代教育技術中心12算法:S(0) 置N=4,M=3,P(1)=1,P(2)=2,P(3)=3,且建立對應關系;S(1) 由P(1),P(2),P(3)的值依對應關系按格式打印一個排序;S(2) 調用排序子程序;S(3) 若F=1則轉S(1),否則轉S(4);S(4) 結束.8/4/2022河南省實驗中學現代教育技術中心13程序:FOR I=1 TO 4P(I)=I:READ C$(I)NEXT IN=4:M=3GOSUB 200: REM PRINTG

8、OSUB 500: REM SUB-2.2IF F=1 THEN 60END200 REM PRINT210 FOR J=1 TO 2220 PRINT C$(P(J);” -”230 NEXT J240 PRINT C$(P(J)250 RETURN260 DATA R,Y,G,B500 REM SUB-2.28/4/2022河南省實驗中學現代教育技術中心14二.組合列舉例: 有六位同學去照相,第每次照3個同學,共可照出多少張不同的照片?每張照片都誰?10 N=620 FOR I=1 TO N-230 FOR J=I+1 TO N-140 FOR K=J+1 TO N50 PRINT : P

9、RINT I,J,K60 NEXT K70 NEXT J80 NEXT I90 END8/4/2022河南省實驗中學現代教育技術中心15組合列舉算法：（N 個數中每次取M 個，放在數組A中）S(0) I=M;S(1) A(I)累加1;S(2) 若IM 并且A(I)=N-M+I,則調整A(P)使A(P)=A(P-1)+1, P=I+1,I+2,A(M),否則轉S(3);S(3) 若A(I)0轉S(1);否則置組合結束標志F=0,轉S(6);S(6) 返回.8/4/2022河南省實驗中學現代教育技術中心16 REM SUB-2.3410 I=M 420 A(I)=A(I) IF IM THEN F

10、OR P=I+1 TO M:A(P)=A(P-1)+1:NEXT P440 IF A(I)0 THEN 420470 F=0480 RETURN8/4/2022河南省實驗中學現代教育技術中心17例9某班挑出八名同學組成兩個4100米的接力隊參加校運會,這八名同學的百米成績為:(見本程序清單)由于事先得知競爭對手的成績不超過50.82秒.問如何組隊使本班穩拿第一,第二名?打印所有方案及相應成績.8/4/2022河南省實驗中學現代教育技術中心18設對手的4100米成績為SP，八個同學的百米成績和為S,兩個隊的4100米成績為S1,S2,每個同學的百米成績為C(I).S(0) M=4,N=8,A(I)=I(I=1,2