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

比例试一般笔算就行了

计算芙

AZ....我也做了一个
代码:(换行一律按EXE)
0→G
0→A
0→B
0→C
Locate 1,1,"1:A:B=C:X"
Locate 1,2,"2:A:B=X:D"
While Not((G=35) Or (G=36))
Getkey→G
WhileEnd
Cls
If G=35
Then "A:B=C:X"
"A="?→A
"B="?→B
"C="?→C
Cls
"A:B=C:X"
"X="
B÷A×C
Else "A:B=X:D"
"A="?→A
"B="?→B
"D="?→C
Cls
"A:B=X:D"
"X="
A÷B×C
IfEnd