rouren 发表于 2010-6-27 17:39:40

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

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 发表于 2010-6-27 18:44:53

好复杂,看不懂

efeks 发表于 2012-2-8 09:51:41

"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 发表于 2012-2-8 09:52:22

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

efeks 发表于 2012-2-8 09:54:19

sorry to 挖坑……

wtof1996 发表于 2012-2-8 11:10:12

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

wtof1996 发表于 2012-2-8 11:21:21

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

NAT 发表于 2012-2-9 15:03:25

管理员快快回来啊！

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

我灌水，我快乐。

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

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

936854586 发表于 2012-2-9 15:40:23

什么日子啊

efeks 发表于 2012-2-9 17:04:53

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

936854586 发表于 2012-2-9 19:25:17

ls误解

无语聊 发表于 2015-8-13 15:01:42

路过
页: [1]
查看完整版本: 发一个5800p最小公倍数程序