|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯 7 l- a, @) Z5 f& o% H! ]1 p
" l( g# C4 y( u: y5 r求最大公因數?
; ^0 L+ q+ k, z9 z& v' I# d( {6 ?$ z求最小公倍數?) `9 I0 v' O# W( B9 P7 `4 s$ ^
, F O* }; G- j#1=45.4 N3 z! b. ]) ^8 t4 m2 S7 ] z
#2=36.5 T7 a; @5 T# G
把#1和#2的最大公因數投入#4
. V3 q/ I; w2 Y% a把#1和#2的最小公倍數投入#5: X/ D5 v, X9 T4 L. G
& B0 a# J w3 _3 `# y0 X* P
#1的因數有哪些:分別放在#101~! |* {9 W7 r; P. }( A
#13=101.+ U! ~" }* G6 s
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
, N% h6 F. | K% J3 wWHILE[#15 LE FIX[#1/2.]]DO1% C4 n$ B0 G, P0 i
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15, F& v0 i( }* W1 _
#13=#13+1.$ l' e. t1 q6 F5 X2 p. O9 K
#15=#15+1.
/ M* h, O( i6 M2 }8 YEND14 h% X5 q- a0 ^$ T8 R/ c
#[#13]=#1* e6 C& j8 p8 o* K8 ]' A
#15=#130 P$ j$ n' w, h) g
5 H* Y3 G: Q. M" d4 ~) SWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)1 c9 r, X2 ]- Q: S
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
k: P5 g8 Y! V$ q+ N* V3 Q6 zIF[#4 NE #0]GOTO1
9 R: @5 o6 q# A5 K' e: y#15=#15-1.! G0 [ r R& |5 B) E; o
END1
' \( P4 k" X: e2 i e. GN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)3 w7 W N- E! r% ?, H6 m$ G
#22=#2/#46 r8 P4 a% @0 I& L" M
#5=#4*#11*#22(最小公倍數) x- v$ ^* w# ]6 |3 m8 W1 Q
M01 y7 H5 m( m" r `
" L9 N$ m) A/ h8 S
P.S
# G+ H9 R; k" S+ d. G5 `0 [我想把#11.#22和#5的式子簡化成
. x& n. ~" M6 l7 t8 z) X#5=#4*[#1/#4]*[#2/#4]
( k$ y. T* l1 r我又想把#11.#22和#5的式子簡化成
+ P* K+ G( G) X4 M. P5 [: P9 s. m#5=#11*#22/#4 結束
" d4 H! d6 d' M% M |
|