主题：ti
春夏秋冬CXQD
[专家分：140] 发布于 2007-12-06 18:00:00
朱某被害，四个嫌疑犯A、B、C、D被审查。甲、乙、丙、丁、戊五个年轻的侦察员了解到如下线索:
甲说: A、B当中至少有一人作案; 乙说: B、C当中至少有一人作案;
丙说: C、D当中至少有一人作案; 丁说: A、C当中至少有一人与本案无关;
戊说: B、D当中至少有一人与本案无关。
五名侦察员的判断都是正确的，编程找出罪犯。
回复列表 （共10个回复）
沙发
我的电脑 [专家分：990] 发布于 2007-12-06 18:01:00
CLS
FOR A=-1 TO 0:A(1)=A
FOR B=-1 TO 0:A(2)=B
FOR C=-1 TO 0:A(3)=C
FOR D=-1 TO 0:A(4)=D
IF (A+B<=-1)+(B+C<=-1)+(C+D<=-1)+(A+C>=-1)+(B+D>=-1)=-5 THEN
FOR J=1 TO 4
IF A(J)=-1 THEN PRINT CHR$(64+J)
NEXT J
END IF
NEXT D,C,B,A
END
板凳
QB小猪 [专家分：1200] 发布于 2007-12-06 18:02:00
CLS
FOR A = -1 TO 0: A(1) = A
FOR B = -1 TO 0: A(2) = B
FOR C = -1 TO 0: A(3) = C
FOR D = -1 TO 0: A(4) = D
IF (A + B <= -1) + (B + C <= -1) + (C + D <= -1) + (A + C >= -1) + (B + D >= -1) <> -5 THEN 10
FOR I = 1 TO 4
IF A(I) = -1 THEN PRINT CHR$(64 + I),
NEXT I: END
10 NEXT D, C, B, A
END
有点不够长！！
3 楼
QB小猪 [专家分：1200] 发布于 2007-12-06 18:03:00
我的电脑，你太讨厌了..............
4 楼
网虫一号 [专家分：1230] 发布于 2007-12-06 18:09:00
CLS
FOR A=-1 TO 0:A(1)=A
FOR B=-1 TO 0:A(2)=B
FOR C=-1 TO 0:A(3)=C
FOR D=-1 TO 0:A(4)=D
IF (A+B<=-1)+(B+C<=-1)+(C+D<=-1)+(A+C>=-1)+(B+D>=-1)=-5 THEN
FOR J=1 TO 4
IF A(J)=-1 THEN PRINT CHR$(64+J)
NEXT J
END IF
NEXT D,C,B,A
END
5 楼
小精灵LS [专家分：580] 发布于 2007-12-06 18:09:00
??
6 楼
小精灵LS [专家分：580] 发布于 2007-12-06 18:11:00
CLS
FOR A = -1 TO 0: A(1) = A
FOR B = -1 TO 0: A(2) = B
FOR C = -1 TO 0: A(3) = C
FOR D = -1 TO 0: A(4) = D
IF (A + B <= -1) + (B + C <= -1) + (C + D <= -1) + (A + C >= -1) + (B + D >= -1) = -5 THEN
FOR I = 1 TO 4
IF A(I) = -1 THEN PRINT CHR$(64 + I)
NEXT I
END IF
NEXT D, C, B, A
END
7 楼
我的电脑 [专家分：990] 发布于 2007-12-06 18:11:00
你才讨厌呢！
神经病，弱智，智障
还患有肺癌
还有鸡婆症
8 楼
小精灵LS [专家分：580] 发布于 2007-12-06 18:15:00
CLS
FOR A = -1 TO 0: A(1) = A
FOR B = -1 TO 0: A(2) = B
FOR C = -1 TO 0: A(3) = C
FOR D = -1 TO 0: A(4) = D
IF (A + B <= -1) + (B + C <= -1) + (C + D <= -1) + (A + C >= -1) + (B + D >= -1) = -5 THEN
FOR I = 1 TO 4
IF A(I) = -1 THEN PRINT CHR$(64 + I)
NEXT I
END IF
NEXT D, C, B, A
END
9 楼
春夏秋冬CXQD [专家分：140] 发布于 2007-12-06 18:16:00
两个吵的够厉害的嘛，脏话都打出来了
10 楼
我的电脑 [专家分：990] 发布于 2007-12-06 18:16:00
要你管，鸡婆
我来回复
您所在位置：