主题：急倒的了!!!!!
随便你好
[专家分：530] 发布于 2007-04-01 16:50:00
四国语言问题：
在一次国际会议上，甲、乙、丙、丁四人在一个会议小组中讨论，交谈时发生了语言障碍，
在中、英、法、日4种语言中，每人只会两种。可惜选不出一种大家都会的语言。于是：
1) 只有一种语言有三个人会；
2) 甲会日语，丁不会日语，但能互相交谈；
3) 乙不会日语，但甲和丙交谈时，要请他当翻译；
4) 乙、丙、丁三人想互相交谈，却找不到三人都会的语言；
5) 没人既能用日语，又能用法语交谈。
问：甲、乙、丙、丁各会什么语言?
最好简单点!!!!![em9][em9][em9][em12][em12][em12]
回复列表 （共10个回复）
沙发
黑白猪-- [专家分：420] 发布于 2007-04-02 10:56:00
偏偏不给简单的
CLS
DIM A(4, 4), X(5, 2), N$(4)
FOR I = 1 TO 5: READ X(I, 1), X(I, 2): NEXT I
FOR I = 1 TO 4: READ N$(I): NEXT I
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR A = 1 TO 5: A(1, X(A, 1)) = 1: A(1, X(A, 2)) = 1
FOR B = 3 TO 5: A(2, X(B, 1)) = 1: A(2, X(B, 2)) = 1
FOR C = 1 TO 5: A(3, X(C, 1)) = 1: A(3, X(C, 2)) = 1
FOR D = 3 TO 5: A(4, X(D, 1)) = 1: A(4, X(D, 2)) = 1
FOR I = 1 TO 4
IF A(1, I) + A(3, I) = 2 THEN 10
X = A(2, I) + A(3, I) + A(4, I)
IF X = 3 THEN 10
Y = X + A(1, I): M = M + (Y = 3)
P = P + ABS(A(1, I) AND A(2, I))
L = L + ABS(A(2, I) AND A(3, I))
Q = Q + ABS(A(1, I) AND A(4, I))
NEXT I
IF M = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR I = 1 TO 4
PRINT CHR$(64 + I); ":";
FOR J = 1 TO 4
IF A(I, J) = 1 THEN PRINT N$(J); SPC(1);
NEXT J
NEXT I: PRINT
END IF
10 A(4, X(D, 1)) = 0: A(4, X(D, 2)) = 0: M = 0: P = 0: L = 0: Q = 0
NEXT D
A(3, X(C, 1)) = 0: A(3, X(C, 2)) = 0
NEXT C
A(2, X(B, 1)) = 0: A(2, X(B, 2)) = 0
NEXT B
A(1, X(A, 1)) = 0: A(1, X(A, 2)) = 0
NEXT A
END
[em12][em1][em12]
板凳
随便你好 [专家分：530] 发布于 2007-04-04 09:13:00
你这个坏东西！！！
[em6][em6][em6]
3 楼
小精灵LS [专家分：580] 发布于 2007-04-04 16:31:00
CLS
DIM A(4, 4), X(5, 2), N$(4)
FOR I = 1 TO 5: READ X(I, 1), X(I, 2): NEXT I
FOR I = 1 TO 4: READ N$(I): NEXT I
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR A = 1 TO 2: A(1, X(A, 1)) = 1: A(1, X(A, 2)) = 1
FOR B = 3 TO 5: A(2, X(B, 1)) = 1: A(2, X(B, 2)) = 1
FOR C = 1 TO 5: A(3, X(C, 1)) = 1: A(3, X(C, 2)) = 1
FOR D = 3 TO 5: A(4, X(D, 1)) = 1: A(4, X(D, 2)) = 1
FOR I = 1 TO 4
IF A(1, I) + A(3, I) = 2 THEN 10
X = A(2, I) + A(3, I) + A(4, I)
IF X = 3 THEN 10
Y = X + A(1, I): M = M + (Y = 3)
P = P + ABS(A(1, I) AND A(2, I))
L = L + ABS(A(2, I) AND A(3, I))
Q = Q + ABS(A(1, I) AND A(4, I))
NEXT I
IF M = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR I = 1 TO 4
PRINT CHR$(64 + I); ":";
FOR J = 1 TO 4
IF A(I, J) = 1 THEN PRINT N$(J); SPC(1);
NEXT J, I: PRINT
END IF
10 A(4, X(D, 1)) = 0: A(4, X(D, 2)) = 0: M = 0: P = 0: L = 0: Q = 0
NEXT D
A(3, X(C, 1)) = 0: A(3, X(C, 2)) = 0
NEXT C
A(2, X(B, 1)) = 0: A(2, X(B, 2)) = 0
NEXT B
A(1, X(A, 1)) = 0: A(1, X(A, 2)) = 0
NEXT A
END
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-04-04 18:04:00
CLS
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 5: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 10
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT n$(j); SPC(1);
NEXT j: NEXT i: PRINT
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
END
5 楼
hhhchy [专家分：300] 发布于 2007-04-04 18:04:00
CLS
OPEN "f:\123.txt" FOR OUTPUT AS #1
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 2: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 1
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
1 NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT #1, CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT #1, n$(j); " ";
NEXT j: NEXT i: PRINT #1,
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
CLOSE #1
END
6 楼
游戏之王 [专家分：540] 发布于 2007-04-04 18:05:00
CLS
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 5: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 10
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT n$(j); SPC(1);
NEXT j: NEXT i: PRINT
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
END
7 楼
hhhchy [专家分：300] 发布于 2007-04-04 18:07:00
虽然我的方法很不简单,但也是对的!
[em1][em2][em3][em7][em6][em6][em11][em15][em20][em19][em18][em17]
CLS
OPEN "f:\123.txt" FOR OUTPUT AS #1
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 2: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 1
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
1 NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT #1, CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT #1, n$(j); " ";
NEXT j: NEXT i: PRINT #1,
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
CLOSE #1
END
8 楼
chyx [专家分：450] 发布于 2007-04-05 17:26:00
CLS
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 2: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 1
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
1 NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT n$(j); " ";
NEXT j: NEXT i:? ,
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
END
9 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-30 08:25:00
为什么给chyx30分,他的和我们的不是一样吗??
气愤!!!!
10 楼
wzc1996 [专家分：1680] 发布于 2007-07-30 11:34:00
CLS
DIM a(4, 4), x(5, 2), n$(4)
FOR i = 1 TO 5: READ x(i, 1), x(i, 2): NEXT i
FOR i = 1 TO 4: READ n$(i): NEXT i
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 5: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR i = 1 TO 4
IF a(1, i) + a(3, i) = 2 THEN 10
x = a(2, i) + a(3, i) + a(4, i)
IF x = 3 THEN 10
Y = x + a(1, i): m = m + (Y = 3)
P = P + ABS(a(1, i) AND a(2, i))
L = L + ABS(a(2, i) AND a(3, i))
Q = Q + ABS(a(1, i) AND a(4, i))
NEXT i
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR i = 1 TO 4
PRINT CHR$(i + 64); ":";
FOR j = 1 TO 4
IF a(i, j) = 1 THEN PRINT n$(j); SPC(1);
NEXT j: NEXT i: PRINT
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
END
我来回复
您所在位置：