[开_54]牵一发而动全身

cxjsjt

UNARTHUR ：sorry,未验证结果(答案)就妄加评修。题6的条件确实可以表述，下面这样是否更加合理。

t7 = 0: t8 = 0 For i = 1 To 10 If arr(i) = arr(6) Then t7 = t7 + 1 If arr(i) = arr(6) + 1 Then t8 = t8 + 1 Next i Select Case arr(6) Case 1, 2, 3, 4 If t8 <> t4 Or t7 = t4 - 1 Then GoTo xxx Case 5 If t7 = t4 Then GoTo xxx End Select '题6条件，t4为A答案的个数

UNARTHUR

t7不明白你想表示什么？不妨加上问题说明？不过认为当Case 1, 2, 3, 4时t8 <> t4 判断就以足够

cxjsjt

t7统计的是问题6本身选择答案的个数。

t7 = 0: t8 = 0 For i = 1 To 10 If arr(i) = arr(6) Then t7 = t7 + 1 If arr(i) = arr(6) + 1 Then t8 = t8 + 1 Next i Select Case arr(6) Case 1, 2, 3, 4 If t8 <> t4 Or t7 = t4 - 1 Then GoTo xxx Case 5 If t7 = t4 Then GoTo xxx

End Select '题6条件，t4为A答案的个数

单就题6而言，当选(E)以上都不是的时候，需排除答案E的个数刚好与A的个数相同的情况；同理，当我们选(D)统计答案E的个数的时候，此时有可能答案D与A的个数相同，因此也应排除；以此类推，选(C、B)统计D、C时应排除刚好答案C、B与A的个数相同的情况。

当然，在这个总题解答中，考虑不考虑上述情况，答案一样。同样的，我始终认为，问题2中有明确的唯一性要求，编程中也应予以考虑，增强程序的严密性。虽然，加不加这个要求也求出了正确的答案。

t0 = 0 For i = 2 To 6 If arr(i) = arr(i + 1) Then t0 = t0 + 1 Next i If arr(arr(2) + 1) <> arr(arr(2) + 2) Or t0 > 1 Then GoTo xxx '题2条件

情有独钟

太难啦.............请各位多多指教..

drm

讚喔..超有創意的...又多學了一項知識！

drm

想請問暴力求解、穷举法可否破解這種因大家都唔能夠肯定答案，反而特顯答案的推理題嗎？ 兩例如下： ************************************************* （例一）： 小明和小强都是张老师的学生，张老师的生日是M月N日，2人都知道张师 的生日是下列10组中的一天，张老师把M值告诉了小明，把N值告诉了小强，张老师问他们知道他的生日是那一天吗？

3月4日 3月5日 3月8日 6月4日 6月7日 9月1日 9月5日 12月1日 12月2日 12月8日 小明说：如果我不知道的话，小强肯定也不知道 小强说：本来我也不知道，但是现在我知道了 小明说：哦，那我也知道了

请根据以上对话推断出张老师的生日是哪一天？

*************************************************

（例二）： P先生、Q先生都具有足够的推理能力。这天，他们正在接受推理面试。 他们知道桌子的抽屉里有如下16张扑克牌: 红桃 A、Q、4 黑桃 J、8、4、2、7、3 草花 K、Q、5、4、6 方块 A、5 约翰教授从这16张牌中挑出一张牌来，并把这张牌的点数告诉P先生，把这张牌的花色告诉Q先生。 这时，约翰教授问P先生和Q先生:你们能从已知的点数或花色中推知这张 牌是什么牌吗? P先生:“我不知道这张牌。” Q先生:“我知道你不知道这张牌。” P先生:“现在我知道这张牌了。” Q先生:“我也知道了。”

请问:这张牌是什么牌?

*************************************************

.

UNARTHUR

相似的题目很多，应该是可以的，关键是要把题目蕴含的意思搞明白。建议你在程序版新发一个帖子，也可以启发大家的思维。

drm

多謝UNARTHUR的回覆，明白了，最緊要是清楚题目蕴含的意思為主因，程式只是加快運算速度（幾百倍的）。 呢條題目真係好正，做到線性規劃的工作！靈活性有過之而無不及！ 好想快d睇得明d代碼！未寫過程式，現在開始學習，希望兩個月內睇得明，寫得出！

jaluo

太强了

goldhawk10

好程序,呵呵,,,讨论的好,舒服