cztian 发表于 2010-12-16 12:26:36

5800p解比例式

主程序：RATIO
子程序：RATIO1，RATIO2
主程序代码：
Lbl 1
"1.A:B=X:D"
"2.A:B=C:X"
?→G
If G=1
Then Prog "RATIO1"
IfEnd
If G=2
Then Prog "RATIO2"
IfEnd
Goto 1
IfEnd
子程序RATIO1:
"A"?→A
"B"?→B
"D"?→D
A÷B→E
E×D→X
Cls
Locate 1,1,"X="
Locate 3,1,X输出（注：“输出”表示x²上面的三角）
Return
子程序RATIO2:
"A"?→A
"B"?→B
"C"?→C
A÷B→E
C÷E→X
Cls
Locate 1,1,"X="
Locate 3,1,X输出（注：“输出”表示x²上面的三角）
Return

rouren 发表于 2010-12-18 10:43:23

这。。。

imath 发表于 2010-12-18 12:30:58

..我个人认为也许在COMP下直接交叉相乘，不仅更快，而且还有自然书写。。

Cyvre 发表于 2010-12-18 21:13:48

同意ls……

疯不狂 发表于 2010-12-19 16:18:05

95es plus附带…………

rouren 发表于 2010-12-24 17:54:50

比例试一般笔算就行了
页: [1]
查看完整版本: 5800p解比例式