5800p解比例式

cztian

主程序：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

这。。。

imath

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

Cyvre

同意ls……

疯不狂

95es plus附带…………

rouren

比例试一般笔算就行了