发一个5800p最小公倍数程序

rouren

1→T
1→S
30→P
Cls
Lbi 3
"1"?→A
"2"?→B
If Frac(A)≠0 Or Frac(B)≠0 Or A=0 Or B=0
Then
Goto 3
IfEnd
1→C
1→D
Lbi 1
If Frac(C/A)=0 And Frac(C/B)=0
Then
C输出
Goto　２
IfEnd
C+D→C
If Frac(A/B)=0 And A≠B
Then
A输出
Goto 2
IfEnd
If Frac(B/A)=0 And　B≠A
Then
B输出
Goto　２
IfEnd
If Frac((sa/b)=0
Then
SA输出
Goto 2
IfEnd
S+1→S
If Frac(tb/a)=0
Then
TB输出
IfEnd
Goto 2
IfEnd
T+1→T
P-1→P
If P=0
Then
AB输出
Goto 2
IfEnd
Goto 1
Lbi 2

Σ理论EQN

好复杂,看不懂

efeks

"1"?->A
"2"?->B
Cls
If A<B
Then A->C:B->A:C->B:0->C
IfEnd
If A=B
Then A->E:B->F
Goto 1
IfEnd
If Frac(A/B)=0
Then A->F:B->E
Goto 1
IfEnd
A->C:B->D
While Frac(A/B)≠0
B->G
A-B(Int(A/B))->B
G->A:B->E
WhileEnd
CD/E->F
Lbl 1
F

efeks

这样可不可以啊 好像这样就挺灵的

efeks

sorry to 挖坑……

wtof1996

最小公倍数？
直接用最大公约数然后用两个数的积除以最大公约数就是lcm了
最大公约数用辗转相除法啊，非常简单的

wtof1996

饿，不好意思，没看到新的算法
好吧，ls你的算法就是，这个坑就到此为止

NAT

管理员快快回来啊！

今天是个特殊的日子...

我灌水，我快乐。

齐心协力，同舟共济，挖啊！！！！

管理员...对不起了....

936854586

什么日子啊

efeks

9750灌水的日子呗
对了，5800解方程的那个程序 有比着编上的没 为什么我编了以后，大部分的方程都解不了呢

936854586

ls误解

无语聊

路过