主题：难
蓝莎菲莹
[专家分：370] 发布于 2007-04-04 18:04:00
两个乒乓球队进行对抗赛，各出三人。甲队为A、B、C；乙队为X、Y、Z。
已知抽签确定了比赛名单。A说他不和X比，C说他不和X、Z比。请找出三对赛手名单
回复列表 （共10个回复）
沙发
游戏之王 [专家分：540] 发布于 2007-04-05 17:24:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
板凳
爱丽斯LING [专家分：560] 发布于 2007-04-06 17:13:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
3 楼
黑白猪-- [专家分：420] 发布于 2007-04-06 17:26:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
4 楼
爱丽斯LING [专家分：560] 发布于 2007-04-08 16:43:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
5 楼
随便你好 [专家分：530] 发布于 2007-04-08 17:08:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
我的是对的哦!!!
6 楼
小精灵LS [专家分：580] 发布于 2007-04-08 17:10:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
7 楼
chyx [专家分：450] 发布于 2007-04-08 17:27:00
我包你对
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
8 楼
Lovely哆啦 [专家分：1360] 发布于 2007-04-09 14:43:00
CLS
FOR A = 1 TO 3: A(1) = A
FOR B = 1 TO 3: A(2) = B
C = 6 - A - B: A(3) = C
IF A * B * C <> 6 THEN 10
IF (A = 1) OR (C <> 2) THEN 10
FOR I = 1 TO 3
PRINT CHR$(64 + I); "-"; CHR$(87 + A(I))
NEXT I
10 NEXT B, A
END
9 楼
红辣椒妹 [专家分：80] 发布于 2007-04-09 15:13:00
楼上都什么乱七八糟的,搞不懂,都是些高手呀!自叹不如......
10 楼
纯情鸭鸭 [专家分：30] 发布于 2007-04-13 21:49:00
应该用逻辑,对吧!
我是一只小鸭鸭小呀小鸭鸭!!!嘎,嘎,嘎
我来回复
您所在位置：