培训学案算法穷举判断名次.pdfVIP

判断名次

在某次数学竞赛中,A、B、C、D、E五名学生被取为前五名。请据下列说法判断

出他们的具体名次,即谁是第几名？

条件1:你如果认为A,B,C,D,E就是这些人的第一至第五名的名次排列,便

大错。因为:

没猜对任何一个优胜者的名次。

也没猜对任何一对名次相邻的学生。

条件2:你如果按D,A,E,C,B来排列五人名次的话,其结果是:

说对了其中两个人的名次。

还猜中了两对名次相邻的学生的名次顺序。

分析：本题是一个逻辑判断题，一般的逻辑判断题都采用枚举法进行解决。5个

人的名次分别可以有5！=120种排列可能，因为120比较小，因此我们对每种情

况进行枚举，然后根据条件判断哪些符合问题的要求。

根据已知条件，A1,B2,C3,D4,E5,因此排除了一种可能性，只有4！

=24种情况了。

参考程序：

ProgramExam10;

Var

A,B,C,D,E:Integer;

Cr:Array[1..5]OfChar;

Begin

ForA:=1To5

Do

ForB:=1To5Do

ForC:=1To5Do

ForD:=1To5Do

ForE:=1To5DoBegin

{ABCDE没猜对一个人的名次}

If(A=1)Or(B=2)Or(C=3)Or(D=4)Or(E=5)ThenContinue;

If[A,B,C,D,E][1,2,3,4,5]ThenContinue;{他们名次互不重

复}

{DAECB猜对了两个人的名次}

IfOrd(A=2)+Ord(B=5)+Ord(C=4)+Ord(D=1)+Ord(E=3)2ThenContinue;

{ABCDE没猜对一对相邻名次}

If(B=A+1)Or(C=B+1)Or(D=C+1)Or(E=D+1)ThenContinue;

{DAECB猜对了两对相邻人名次}

IfOrd(A=D+1)+Ord(E=A+1)+Ord(C=E+1)+Ord(B=C+1)2ThenContinue;

Cr[A]:=A;Cr[B]:=B;Cr[C]:=C;

Cr[D]:=D;Cr[E]:=E;

Writeln(Cr[1],,Cr[2],,Cr[3],,Cr[4],,Cr[5]);

End;

End.