主题：请GGbond帮我做一下今年市复赛的第3题
Matodied
[专家分：7560] 发布于 2007-07-18 21:23:00
我复赛就这一题没做出来，请你把你的方法讲一下。一定加30分！
回复列表 （共9个回复）
沙发
Matodied [专家分：7560] 发布于 2007-07-19 20:45:00
GGbond不在？
板凳
007bond [专家分：540] 发布于 2007-07-20 09:14:00
大侠GGbond归来,
DECLARE SUB LWB1 (K!)
DECLARE SUB LWB2 (K!)
CLS
DIM SHARED N, F, W, A(8), B(9), C(8), J
INPUT N
LWB1 (1)
IF F = 0 THEN PRINT "F": END
PRINT F
END
SUB LWB1 (K)
FOR I = 1 TO 4: A(K) = I
IF K <> 7 THEN
LWB1 (K + 1)
ELSE
FOR J = 1 TO 7
C(J) = A(J): B(J) = J
NEXT J: B(J) = J: W = 7
FOR J = 1 TO W
IF C(J) = 4 THEN B(J) = B(J) * B(J + 1): LWB2 (J)
IF C(J) = 3 THEN B(J) = B(J) / B(J + 1): LWB2 (J)
NEXT J
FOR J = 1 TO W
IF C(J) = 2 THEN B(J) = B(J) + B(J + 1): LWB2 (J)
IF C(J) = 1 THEN B(J) = B(J) - B(J + 1): LWB2 (J)
NEXT J
IF B(1) <> N THEN
GOTO 10
ELSE
F = F + 1
FOR J = 1 TO 7
PRINT J;
IF A(J) = 1 THEN PRINT "-";
IF A(J) = 2 THEN PRINT "+";
IF A(J) = 3 THEN PRINT "/";
IF A(J) = 4 THEN PRINT "*";
NEXT J: PRINT J
END IF
END IF
10 NEXT I
END SUB
SUB LWB2 (K)
FOR Q = K TO W
C(Q) = C(Q + 1): B(Q + 1) = B(Q + 2)
NEXT Q
W = W - 1: J = J - 1
END SUB
3 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-20 09:14:00
DECLARE SUB WSY1 (K!)
DECLARE SUB WSY2 (K!)
CLS
DIM SHARED N, F, W, A(8), B(9), C(8), J
INPUT N
WSY1 (1)
IF F = 0 THEN PRINT "F": END
PRINT F
END
SUB WSY1 (K)
FOR I = 1 TO 4: A(K) = I
IF K <> 7 THEN
WSY1 (K + 1)
ELSE
FOR J = 1 TO 7
C(J) = A(J): B(J) = J
NEXT J: B(J) = J: W = 7
FOR J = 1 TO W
IF C(J) = 4 THEN B(J) = B(J) * B(J + 1): WSY2 (J)
IF C(J) = 3 THEN B(J) = B(J) / B(J + 1): WSY2 (J)
NEXT J
FOR J = 1 TO W
IF C(J) = 2 THEN B(J) = B(J) + B(J + 1): WSY2 (J)
IF C(J) = 1 THEN B(J) = B(J) - B(J + 1): WSY2 (J)
NEXT J
IF B(1) <> N THEN
GOTO 10
ELSE
F = F + 1
FOR J = 1 TO 7
PRINT J;
IF A(J) = 1 THEN PRINT "-";
IF A(J) = 2 THEN PRINT "+";
IF A(J) = 3 THEN PRINT "/";
IF A(J) = 4 THEN PRINT "*";
NEXT J: PRINT J
END IF
END IF
10 NEXT I
END SUB
SUB WSY2 (K)
FOR Q = K TO W
C(Q) = C(Q + 1): B(Q + 1) = B(Q + 2)
NEXT Q
W = W - 1: J = J - 1
END SUB
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-20 09:16:00
讨厌的GGbond!气愤!!!!
5 楼
Matodied [专家分：7560] 发布于 2007-07-20 12:54:00
我要的是GGbond帮我做，不是007bond！
还有，007bond的程序根本就是错的！
6 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-20 21:59:00
007bond(也叫GGbond)哈,哈!!
掉陷阱啦!!
7 楼
007bond [专家分：540] 发布于 2007-07-21 08:24:00
GGbond就是我007bond,而且我的程序是对的,不信,再试一下.
8 楼
Matodied [专家分：7560] 发布于 2007-07-27 14:03:00
我在考试时的方法和你是一样的。都是先用递归把运算符找到，之后计算。但是在计算后的把后面数据向前移的时候老是死循环，怎么回事？如果说了，再加20分。
9 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-28 18:21:00
我不知道
我来回复
您所在位置：