主题：请教moz!!行行好,帮帮忙吧!!!!
纯情鸭鸭
[专家分：30] 发布于 2007-07-21 13:34:00
密码:1 2 3 4 5 6 7 8 9
在空格处填入适当的'+'或'-'使得数等于输入的X
例如:X=182
123+45+6+7-8+9
输入X后,打印所有的可能性!
回复列表 （共27个回复）
沙发
moz [专家分：37620] 发布于 2007-07-21 14:50:00
不会吧?
怎么搞这些稀里古怪的题目?
板凳
纯情鸭鸭 [专家分：30] 发布于 2007-07-21 14:53:00
拜托拉!!加分!!!加分!!!!!
3 楼
moz [专家分：37620] 发布于 2007-07-21 15:11:00
DEFLNG A-Z
INPUT X
FOR i = 1 TO 3 ^ 8
s$ = SSS$((i))
IF XXX((s$)) = X THEN PRINT s$
NEXT
FUNCTION SSS$ (a)
b$ = "1"
FOR i = 50 TO 57
c = a MOD 3
a = a \ 3
IF c > 0 THEN b$ = b$ + MID$("+-", c, 1)
b$ = b$ + CHR$(i)
NEXT
SSS$ = b$
END FUNCTION
[color=0000ff]
FUNCTION XXX (s$)
s$ = "+" + s$
DO
a = VAL(s$)
e = e + a
s$ = MID$(s$, LEN(STR$(a)) + 1)
LOOP WHILE a
XXX = e
END FUNCTION [/color]
4 楼
红辣椒妹 [专家分：80] 发布于 2007-07-21 15:37:00
请说一下思路!
5 楼
红辣椒妹 [专家分：80] 发布于 2007-07-21 15:59:00
可以不用函数FUNCTION作吗?
6 楼
Matodied [专家分：7560] 发布于 2007-07-22 07:56:00
关键是这个&怎么运算呢？（1&2=12）
7 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-22 10:45:00
是呀!如果知道了怎么运算就简单多了!
8 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-22 10:46:00
我在试着把这个程序转成PASCAL!!
9 楼
纯情鸭鸭 [专家分：30] 发布于 2007-07-22 11:09:00
那就请lovely哆啦,快点转成PASCAL吧!!!
10 楼
纯情鸭鸭 [专家分：30] 发布于 2007-07-22 11:53:00
moz不在吗?
moz去哪了?
moz给点思路吧!!!
我来回复
您所在位置：