想垂名青史？想发布您的大作？想把您的作品与全世界网友共享？来吧，果糖软件让您梦想成真！
果糖软件是GooDown资源分享联盟旗下的主打软件资源站之一，开站一个月来，在广大网友的厚爱和支持下人气一路狂飙，站长的QQ也是异常繁忙。对于年轻的软件园来说，这确实值得骄傲，也感谢大家一直以来的大力支持。

我们的宗旨始终是：将免费进行到底！我们的优势是：本地高速下载（除非作者提供了自己的下载链接），而且我们不强制网友点广告。还有我们的流量会使您的作品很快传遍全世界！

如果您有自己开发的软件作品，自己破解的软件或任何基于研究目的的DIY软件作品，请联系我们，发布与宣传由我们替您完成。我们鼓励原创、鼓励精品！还等什么呢？

如果您有作品需要我们在软件园发布，请您详细注明软件名称、版本、授权信息、软件语言、运行环境、软件介绍、版权声明及其他注意事项等，然后就交给我们吧。

您可以在此跟帖、给我发论坛消息，也可以联系QQ：251888780或1883183 欢迎各位网友及软件开发团体来果糖软件发布作品！

[此贴子已经被作者于2005-8-8 20:27:30编辑过]

在偶上中学时，老师在复习迎考时经常漫无目的地给偶们布置题海战术，这种题海战术重复很多，为了节省精力，偶就花了一些时间（也不知道搞这个是不是更费精力，不过偶觉得比做题目好玩），就编写了许多BASIC程序，用来解答运算各种数学题目，其中属这个多元一次方程式的解算程序难度最大，这个程序对于当年的偶可以算是登峰造极的一个自编程序了。近日，在网上无意中发现了BASIC程序编写软件，于是勾起了偶儿时的记忆，于是重新翻起了偶以前的编程手稿，将它重新输入，放了上来，以作纪念。如果有哪位还用得着的话，兴起还能用用。（由于偶的编程都是以前吃饱了没事自学个，所以可能在技巧性上面还不是特别出色，如果有编程老鸟看到有效率较低的地方，敬请谅解了）

[原创]BASIC程序——解多元一次方程

编写时间：1995年 作者：dinzu (注意：如需引用请注明原作者）

程序清单：

10 DIM A(30,31)

20 HOMERINT”This is the solve simple equation program.(DINZU 1995-a03)”

80 INPUT”How many unknown quantity?”,N

100 PRINT”Please input unknown quantity!”

110 FOR I=1 TO N

120 FOR J=1 TO N+1

125 PRINT I;”a”;J;”=”;

130 INPUT A(I,J)

150 NEXT J

160 PRINT

170 NEXT I

180 FOR J=1 TO N

200 IF A(J,J)<>0 THEN GOTO 270

210 FOR I=J TO N

220 IF A(I,J)<>0 THEN GOTO 260

230 NEXT I

240 PRINT”No unique solution or no solution”

250 GOTO 800

260 GOSUB 500

270 C=1/A(J,J)

280 GOSUB 600

290 FOR I=1 TO N

300 IF I=J THEN GOTO 330

310 C=-A(I,J)

320 GOSUB 700

330 NEXT I

340 NEXT J

400 FOR I=1 TO N

410 PRINT”X(”;I;”)=”;A(I,N+1)

420 NEXT I

430 GOTO 800

500 FOR K=J TO N+1

510 B=A(J,K)

520 A(J,K)=A(I,K)

530 A(I,K)=B

540 NEXT K

550 RETURN

600 FOR I=J TO N+1

610 A(J,I)=A(J,I)*C

620 NEXT I

630 RETURN

700 FOR S=J TO N+1

710 A(I,S)=A(J,S)+C*A(J,S)

720 NEXT S

730 RETURN

800 INPUT”CONTINUE(Y/N)”,A$

810 IF A$=”Y” THEN GOTO 20

820 PRINT”BYE-BYE!!!”RINT”DINZU 1995-A03”:END

著作权dinzu（光和明）所有，如需引用请注明作者。

[此贴子已经被作者于2005-8-26 15:26:14编辑过]

程序说明：

可以计算多个联立一次方程组。输入“ＲＵＮ”，程序开始运行。首先，输入方程组中未知数的总数，之后按方程组顺序逐项输入各未知数的系数。

输入规则：

n1A+n2B+n3C+……＋nxX=Nx+1　（n1:一号系数，n2二号系数，……nx第Ｘ个系数，x+1第Ｘ＋１个系数或常数系数）

屏幕将显示：１a1 (第一个数字“１”代表了单方程号码，后一个数字“１”代表了系数号码。输入时应注意区分不同未知数的系数，如果某一单方程中不包含某个未知数时，则该未知数的系数为“０”。特别注意该程序不能计算１号方程第一号系数为零，如有这种情况请将单方程换个位置输入，确保第一个方程的第一个系数不为“０”。

范例：

要求解答以下方程（三元一次）

２Ｘ－３Ｙ＋Ｚ＝０

２Ｙ＋２Ｚ＝１６

３Ｘ＋Y－Z＝４

将程序置入内存后，输入“ＲＵＮ”显示如下（红色显示需用键盘输入）

RUN

This is the colve simple equation program.(DINZU 1995-a03)

How many unknow quantity?3

Please input unknow quantity!

1 a 1 =? 2

1 a 2 =? -3

1 a 3 =? 1

1 a 4 =? 0

2 a 1 =? 0

2 a 2 =? 2

2 a 3 =? 2

2 a 4 =? 16

3 a 1 =? 3

3 a 2 =? 1

3 a 3 =? -1

3 a 4 =? 4

X( 1 )= 2

X( 2 )= 3

X( 3 )= 5

题目的答案就是x=2，y=3,z=5．这样只用几秒钟就做好了一道题目了，再也不用怕老师布置多少题了，来一道灭一道．偶还编有一元两次方程，一元两次不等式等各种程序，有那个上学的需要找偶好了．

最后声明，著作权dinzu（光和明）所有，引用请注明原作者．

虽然简单是简单的点,否过是偶原创个哦,而且是十年前的作品的.想想当时也不容易个哦.

hoho~小武击滚到~~~~[em07]

原来光局还会BASIC语言的啊，高手啊。我以前也学过的，不过早都还给老师了，呵呵。

唔……小武强个……

呵呵……我也用vfp写过解一元二次方程的程序，比小武的要简单，就不拿出来显丑了。只是记得当时也就是一个对对答案的用途。……因为老师要过程的……：（

[em04]

我发现这网站满现个

武力压制

以下是引用冰点-101在2005-12-24 12:40:57的发言：
小武的水平我一直佩服个，只有不知小武在性方面如何，这一直是我疑惑的地方，有待小武亲自解说~~[em09]

呵呵~

小武的水平我一直佩服个，只有不知小武在性方面如何，这一直是我疑惑的地方，有待小武亲自解说~~[em09]

[em07][em07][em07][em07][em07][em07][em07][em07][em07][em07]

[em07][em07][em07][em07]