|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
& x/ r& R+ L% S! E7 d& m
4 v4 _/ |1 e- K, Z求最大公因數?
4 v+ G& Y9 b0 T) Z/ s+ A6 E. G求最小公倍數?( m B2 D) w- l3 }2 G1 V& E2 w* k
$ m0 D6 @* T" a; A3 _#1=45.
; G/ W$ W8 L: a1 f8 c#2=36.
9 X- b9 L: B. N4 B3 o2 V* ]: r8 L把#1和#2的最大公因數投入#4
$ F# N; y k: _5 ?把#1和#2的最小公倍數投入#5; ~8 @6 k* @3 P. T3 U, T
; E* |7 z/ S( B
#1的因數有哪些:分別放在#101~
, A# u" s1 B# O( n4 O#13=101.9 O" \0 X+ W% R! _0 I
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
/ U0 D, x& B1 ]+ xWHILE[#15 LE FIX[#1/2.]]DO1( M" e$ ^. Q/ h- Y$ r
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15& E; l0 C' g) o
#13=#13+1.& _0 s$ Q5 H) ^/ o
#15=#15+1.
9 e! c |$ p. PEND1
; c. V4 Y7 W% k" }9 O#[#13]=#11 H2 \% X8 v1 V9 t& i+ J( e1 W( w+ \
#15=#13
3 o5 j( S7 } q) g9 l
! q5 l R' h4 M6 [$ n \4 v4 VWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)) w/ A+ w0 a2 K
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
0 l2 L, [% N2 m. a2 N( `IF[#4 NE #0]GOTO1$ Y% X0 v- t0 {* j; M
#15=#15-1. F( W# T I& a) w
END1 u( {3 W ^4 `% N
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
1 G" r/ m4 i! g#22=#2/#4
5 z! a: D q1 o4 c9 E" D#5=#4*#11*#22(最小公倍數)
: Y# g& c4 A) p M3 _) p* T4 B3 pM0
/ q s; F& T. E. ~
1 @( V* I) G S- V: a1 h& V' S! }P.S4 W6 h8 n" b( R+ u
我想把#11.#22和#5的式子簡化成
* |) t K5 e k6 t#5=#4*[#1/#4]*[#2/#4]
4 _; V Q, k# }, z我又想把#11.#22和#5的式子簡化成
5 v3 i# j1 }; _% g3 V#5=#11*#22/#4 結束 ( K# x9 E7 r% X" C" C) T1 M3 v
|
|