[原创]gvbasic 算 24点

cc90042938

你自己不能测试吗?

coolmoon

前面在列举F\G\H\I的程序应该怎样写,

还有怎样筛选结果,希望高手指导一下,

我没有电脑连线,没办法在WQX上测试

[此贴子已经被作者于2005-3-11 21:57:22编辑过]

coolmoon

改进了的算24点的GVBASIC源码

看看源码,好像没错,但是在WQX上总是提示 "?UNDEF`D STATEMENT ERROE IN 1217"


请教到底是什么原因(请不要只是翻译出错的提示内容,这个我三年前就会!!!)

希望哪位高手能提供一个NC2600机子上用的类似CC800中GVBASIC的程序,现在NC2600的GVBASIC太麻烦了,要查看代码需要按N下键盘...

hxdwq789

哪就是你在1217句GOTO或者THEN的行号不存在呗~

sippey

最后加几句没用的代码试一试

Anson

楼主你的程序我没看过～不过看到你说暴大就有点怀疑～因为本来我写过一个算24点的～蛮小的～方法就是用循环把所有可能的运算顺序列举一遍～

Eastsun

以下是引用混乱羽翼在2005-4-28 17:07:08的发言：
～方法就是用循环把所有可能的运算顺序列举一遍～

y以WQX的速度能够忍受等待的时间吗？

Anson

能～速度很快的～记得在5秒之内～是很久以前的东西了～

LAODA

以下是引用coolmoon在2005-3-12 18:03:42的发言：

改进了的算24点的GVBASIC源码

看看源码,好像没错,但是在WQX上总是提示 "?UNDEF`D STATEMENT ERROE IN 1217"

[upload=txt]viewFile.asp?ID=1374[/upload]
请教到底是什么原因(请不要只是翻译出错的提示内容,这个我三年前就会!!!)

希望哪位高手能提供一个NC2600机子上用的类似CC800中GVBASIC的程序,现在NC2600的GVBASIC太麻烦了,要查看代码需要按N下键盘...

请教到底是什么原因(请不要只是翻译出错的提示内容,这个我三年前就会!!!)
首先，这在求助中有解释。其次，1217中出现了不存在的行号，你若知道且iq>60的话，应该没啥不明百的

FoxAllan1020

楼主，我觉得您的算法似乎过于冗长哦~~可以看出您还是很有耐心的。佩服ing

林的家人

我的天啊，你的比我的还正宗！
10 PRINT "24点:1～99"
20 INPUT A,B,C,D
25 FOR I =1  TO 4:E =A:A =B:B =C:C =D =E
30 IF A =0  OR A >99  THEN 10
31 NEXT I:A$ ="+":B$ ="-":C$ ="*"$ ="/":E$ ="=24":F$ ="(":G$ =")"
32 IF A +B +C +D =24  THEN PRINT A;A$;B;A$;C;A$;D;E$
33 IF A *B *C *D =24  THEN PRINT A;C$;B;C$;C;C$;D;E$
39 FOR I =1  TO 4:E =A:A =B:B =C:C =D =E
40 FOR K =1  TO 3:E =B:B =C:C =D:D =E
41 FOR Q =1  TO 2:E =C:C =D:D =E
42 IF A +B -C -D =24  THEN PRINT A;A$;B;B$;C;B$;D;E$
43 IF A +B +C -D =24  THEN PRINT A;A$;B;A$;C;B$;D;E$
44 IF A *B +C -D =24  THEN PRINT A;C$;B;A$;C;B$;D;E$
45 IF A *B +C /D =24  THEN PRINT A;C$;B;A$;C;D$;D;E$
46 IF A *B *C +D =24  THEN PRINT A;C$;B;C$;C;A$;D;E$
47 IF A *B *C /D =24  THEN PRINT A;C$;B;C$;C;D$;D;E$
48 IF A *B *C -D =24  THEN PRINT A;C$;B;C$;C;B$;D;E$
49 IF A *B -C -D =24  THEN PRINT A;C$;B;B$;C;B$;D;E$
50 IF A *B /C -D =24  THEN PRINT A;C$;B;D$;C;B$;D;E$
51 IF A *B /C +D =24  THEN PRINT A;C$;B;D$;C;A$;D;E$
52 IF A *B -C /D =24  THEN PRINT A;C$;B;B$;C;D$;D;E$
53 IF A /B +C +D =24  THEN PRINT A;D$;B;A$;C;A$;D;E$
54 IF A /B -C -D =24  THEN PRINT A;D$;B;A$;C;B$;D;E$
55 IF A /B +C -D =24  THEN PRINT A;D$;B;A$;C;B$;D;E$
56 IF (A *B +C) *D =24  THEN PRINT F$;A;C$;B;A$;C;G$;C$;D;E$
57 IF (A *B +C) /D =24  THEN PRINT F$;A;C$;B;A$;C;G$;D$;D;E$
58 IF (A *B -C) *D =24  THEN PRINT F$;A;C$;B;B$;C;G$;C$;D;E$
59 IF (A /B +C) *D =24  THEN PRINT F$;A;D$;B;A$;C;G$;C$;D;E$
60 IF (A /B -C) /D =24  THEN PRINT F$;A;D$;B;B$;C;G$;D$;D;E$
61 IF (A /B +C) /D =24  THEN PRINT F$;A;D$;B;B$;C;G$;D$;D;E$
62 IF (A *B -C) /D =24  THEN PRINT F$;A;C$;B;B$;C;G$;D$;D;E$
63 IF (A *B +C) /D =24  THEN PRINT F$;A;C$;B;A$;C;G$;D$;D;E$
64 IF (A -B) *(C -D) =24  THEN PRINT F$;A;B$;B;G$;C$;F$;C;B$;D;G$;E$
65 IF C -D =0  THEN 70
66 IF (A +B) /(C -D) =24  THEN PRINT F$;A;A$;B;G$;D$;F$;C;B$;D;G$;E$
67 IF (A -B) /(C -D) =24  THEN PRINT F$;A;B$;B;G$;D$;F$;C;B$;D;G$;E$
68 IF (A *B) /(C -D) =24  THEN PRINT F$;A;C$;B;G$;D$;F$;C;B$;D;G$;E$
69 IF (A /B) /(C -D) =24  THEN PRINT F$;A;D$;B;G$;D$;F$;C;B$;D;G$;E$
70 NEXT Q
71 IF A *B +C *D =24  THEN PRINT A;C$;B;A$;C;C$;D;E$
72 IF A *B -C *D =24  THEN PRINT A;C$;B;B$;C;C$;D;E$
73 IF (A +B +C) /D =24  THEN PRINT F$;A;A$;B;A$;C;G$;D$;D;E$
74 IF (A +B -C) /D =24  THEN PRINT F$;A;A$;B;B$;C;G$;D$;D;E$
75 IF (A +B) *(C +D) =24  THEN PRINT F$;A;A$;B;G$;C$;F$;C;A$;D;G$;E$
76 IF (A -B) *(C +D) =24  THEN PRINT F$;A;B$;B;G$;C$;F$;C;A$;D;G$;E$
77 IF (A -B -C) /D =24  THEN PRINT F$;A;B$;B;B$;C;G$;D$;D;E$
78 IF (A +B +C) *D =24  THEN PRINT F$;A;A$;B;A$;C;G$;C$;D;E$
79 IF (A +B -C) *D =24  THEN PRINT F$;A;A$;B;B$;C;G$;C$;D;E$
80 IF (A -B -C) *D =24  THEN PRINT F$;A;B$;B;B$;C;G$;C$;D;E$
81 IF A /(B +C +D) =24  THEN PRINT A;D$;F$;B;A$;C;A$;D;G$;E$
83 IF A /(B +C *D) =24  THEN PRINT A;D$;F$;B;A$;C;C$;D;G$;E$
84 IF A /(B +C /D) =24  THEN PRINT A;D$;F$;B;A$;C;D$;D;G$;E$
85 IF A /(B *C +D) =24  THEN PRINT A;D$;F$;B;C$;C;A$;D;G$;E$
86 IF A /(B *C *D) =24  THEN PRINT A;D$;F$;B;C$;C;C$;D;G$;E$
87 IF B -C -D =0  THEN 89
88 IF A /(B -C -D) =24  THEN PRINT A;D$;F$;B;B$;C;B$;D;G$;E$
89 IF B -C *D =0  THEN 91
90 IF A /(B -C *D) =24  THEN PRINT A;D$;F$;B;B$;C;C$;D;G$;E$
91 IF B -C /D =0  THEN 93
92 IF A /(B -C /D) =24  THEN PRINT A;D$;F$;B;B$;C;D$;D;G$;E$
93 IF B *C -D =0  THEN 95
94 IF A /(B *C -D) =24  THEN PRINT A;D$;F$;B;C$;C;B$;D;G$;E$
95 IF B +C -D =0  THEN 99
96 IF A /(B +C -D) =24  THEN PRINT A;D$;F$;B;A$;C;B$;D;G$;E$
99 NEXT K : NEXT I

coolmoon

我写了个gvbasic  的算24点的程序,暴大,没测试过,不知道能不能用,希望大侠们能帮个忙看看

[此贴子已经被作者于2005-3-11 21:39:18编辑过]