|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 , u" P5 k l- e! s; @' J& n
( B+ p" W& K3 @, @- q
求最大公因數?
5 y8 E! A/ b7 G7 r8 c! T求最小公倍數?3 H8 ~: I# h7 @" r" w
" o( p0 u: y( H#1=45.
: \1 J) Q W" [0 c' |% u#2=36.
* l0 L4 i. M3 y. v7 F$ y6 A1 M7 d( d把#1和#2的最大公因數投入#4; i. P! @( m1 A1 b1 p
把#1和#2的最小公倍數投入#5
5 B8 O: C& L( B X: L% u
9 f/ ]$ J8 u: h, h#1的因數有哪些:分別放在#101~
?8 b1 |# v7 \& t" m! v#13=101.8 K+ H+ ^: t% Q* s
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
9 b; p* J" z# J. z, A6 \6 _WHILE[#15 LE FIX[#1/2.]]DO1. u6 l- M: d/ w: k
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
0 x D; [7 p, Z* i% s% j#13=#13+1.
' w6 ]; S3 u' f' S* }#15=#15+1.. v7 x' B8 i/ G4 n# O- H# q
END1
) _" k( F1 @+ P, p; a#[#13]=#1
2 ~% E. _$ u1 ?' k3 d$ f6 X#15=#13
+ T- @1 E, u( A1 v( j& _* q4 C( R8 ^& u+ z! @% T) [
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
7 T& Q. I1 J$ qIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]* @* _3 P0 L, e; G
IF[#4 NE #0]GOTO13 ^: V7 A0 E' x: L
#15=#15-1.
' w" x6 A, z; D& PEND1
+ k; j2 s: l! {7 n2 eN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
5 p3 f+ C4 i# B; z' o#22=#2/#4* i5 e6 s, T- S* C' y+ K
#5=#4*#11*#22(最小公倍數)
6 p+ o" ]) w* }6 o; @+ Z2 kM0
3 N) y) W e7 j( P3 O6 M$ D" P/ }. H( {# }" z
P.S* Y k& Y+ k! [! H1 |
我想把#11.#22和#5的式子簡化成
9 z" X% ^4 d0 W& A0 @# v#5=#4*[#1/#4]*[#2/#4]
, J' G$ H7 i) G8 H我又想把#11.#22和#5的式子簡化成
0 O' f9 e3 S: [( v0 S2 c6 c& w#5=#11*#22/#4 結束 , i) @3 _ M+ j
|
|