|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
0 A5 q) z) B7 k' R$ m1 U6 o4 t* o) D: Y& | ^
求最大公因數?
H+ b1 R3 @- h! _6 W; b q求最小公倍數?
0 _2 n K* l$ w; D- Z
; u( e1 x e6 j7 h#1=45.
2 N8 f1 p' f3 {8 ]9 k. S/ n+ d#2=36.
+ Y" b% C# h* V4 S$ J: \把#1和#2的最大公因數投入#4
, \+ h0 w C0 J- D7 x. t把#1和#2的最小公倍數投入#5) E3 P. X* ?' W# h, G& B7 _
% L, J% S4 P* m9 `- g. d#1的因數有哪些:分別放在#101~
8 F! p7 ?. H* U#13=101.6 j6 s9 N6 l6 ], Q9 @+ Y
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)4 U0 E6 k+ Z$ p5 @5 I! T* {# R
WHILE[#15 LE FIX[#1/2.]]DO1+ Q% v( ?( L0 R- d/ S
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
b1 z' v4 m* P8 `! E% m#13=#13+1.
$ N9 Q& e) w6 f0 u* K! T#15=#15+1.
1 t1 U7 S1 m3 z+ |8 [8 d9 E/ h) bEND1# E9 p" u% e' g& Y0 B0 G
#[#13]=#1. }$ [- m* y& g0 t; H
#15=#13
@8 o- { J% F# ~' l) C/ _
2 d& |. |; x4 J5 t; B3 K; DWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
b% E# M4 N) R; Z# u" \. ^' v$ X; xIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
( y" h- _1 a/ X- bIF[#4 NE #0]GOTO1
) y. Q6 F0 o4 b9 P% l# k3 Y6 N#15=#15-1.
( S! j8 n0 o; T. F* u) n/ CEND1- _* Y% E% b* d4 y; w
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)! v' }( v9 \ Z9 D3 E6 M4 G5 @8 x. k5 A
#22=#2/#4
& z0 \6 T% k; d( b" K u0 E& m* \#5=#4*#11*#22(最小公倍數)) s! A3 J. U3 I G" ]/ D
M0! f" D' B& v! S$ }+ |5 B
0 _& a* F$ `" S$ O% S" j9 u( x1 Z
P.S0 m0 ^8 O% m) P. T& D3 Y
我想把#11.#22和#5的式子簡化成
( P6 K& F; X$ L2 @3 G' Y7 g, F#5=#4*[#1/#4]*[#2/#4]
+ y4 y& d7 \6 `# L我又想把#11.#22和#5的式子簡化成
, o5 Q& I$ N7 U7 |8 ? u% |) `#5=#11*#22/#4 結束 5 n( R* U- x& z4 n3 i( t3 J
|
|