主题：呵呵,有实力的进来看看......
hanxuemin
[专家分：0] 发布于 2005-08-20 16:30:00
学校进行了一次英语考试，共有10道是非题，每题为10分，解答用1表示“是”，用0表示“非”的方式。但老师批完卷后，发现漏批了一张试卷，而且标准答案也丢失了，手头只剩下了3张标有分数的试卷。
试卷一：
① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 0 1 0 0 1 0 0 得分：70
试卷二：
① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 1 0 1 1 1 得分：50
试卷三：
① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 0 0 1 0 1 得分：30
待批试卷：
① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 1 1 0 0 1 1 1 得分：？
请编一程序依据这三张试卷，算出漏批的那张试卷的分数。
[em9]
回复列表 （共4个回复）
沙发
neptuneSCB [专家分：0] 发布于 2005-08-20 20:15:00
60分
穷举就可以~~~~
板凳
neptuneSCB [专家分：0] 发布于 2005-08-20 20:16:00
补充一下，我是用逻辑推出来的~~~~~~给点~~~分
3 楼
hanxuemin [专家分：0] 发布于 2005-08-21 20:03:00
用逻辑谁也推得出来啊...
关键是代码!`
4 楼
XVenus [专家分：20] 发布于 2005-08-21 22:14:00
Program ex;
Var
a1, a2, a3, a4, a5, a6, a7, a8, a9, a10: Byte;
Begin
For a1:=0 To 1 Do
For a2:=0 To 1 Do
For a3:=0 To 1 Do
For a4:=0 To 1 Do
For a5:=0 To 1 Do
For a6:=0 To 1 Do
For a7:=0 To 1 Do
For a8:=0 To 1 Do
For a9:=0 To 1 Do
For a10:=0 To 1 Do
If (ord(a1=0) + ord(a2=0) + ord(a3=1) + ord(a4=0) + ord(a5=1)
+ ord(a6=0) + ord(a7=0) + ord(a8=1) + ord(a9=0) + ord(a10=0)=7)
And (ord(a1=0) + ord(a2=1) + ord(a3=1) + ord(a4=1) + ord(a5=0)
+ ord(a6=1) + ord(a7=0) + ord(a8=1) + ord(a9=1) + ord(a10=1)=5)
And (ord(a1=0) + ord(a2=1) + ord(a3=1) + ord(a4=1) + ord(a5=0)
+ ord(a6=0) + ord(a7=0) + ord(a8=1) + ord(a9=0) + ord(a10=1)=3)
Then Begin
Write(ord(a1=0) + ord(a2=0) + ord(a3=1) + ord(a4=1) + ord(a5=1)
+ ord(a6=0) + ord(a7=0) + ord(a8=1) + ord(a9=1) + ord(a10=1));
Halt;
End;
End.
我来回复
您所在位置：