|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯 m- @! |: I9 p/ K7 h, `
7 k3 R, @1 a4 {( O9 H求最大公因數?$ e1 T6 S6 _% m$ q3 M
求最小公倍數?
i2 L! r5 O/ l7 T2 ~1 ~0 n$ H) E
, ~, n- y. t. ]- X- g+ S/ y" L: _#1=45.. D# V0 C3 i4 @+ P7 o0 B; E- a
#2=36.& N+ V/ P2 R/ G8 H/ p4 \
把#1和#2的最大公因數投入#4
2 g$ u1 D2 y- O& C把#1和#2的最小公倍數投入#5( }( F6 ]' i4 v. O7 g. u
+ ^3 j% T0 U3 P8 D2 M1 o#1的因數有哪些:分別放在#101~. N$ f3 t7 t2 n+ W' A5 L% l
#13=101.4 B5 [2 g; u) x! Y1 r3 m9 T2 f
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~): g. q4 z# O% [: t* M3 f
WHILE[#15 LE FIX[#1/2.]]DO1
4 y" m5 m- e. o; a( RIF[#1 MOD #15 EQ0.]THEN #[#13]=#15" T% f/ V1 J5 X" |% U
#13=#13+1.3 _& Z* c% ^4 p2 M* ~, ?4 J1 s
#15=#15+1.
; z& a) Y7 n/ Z( u: L8 @) wEND1# p/ l( o# v# Q7 D0 V
#[#13]=#1
- L% r6 |' I9 o. n: r#15=#13
; d( Y1 P) r4 p6 \
4 x g. K7 `4 ?WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)/ Y! j# ?9 V9 m! q+ d7 x3 V2 g
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
) W/ j R4 L m7 B$ `* x# U( vIF[#4 NE #0]GOTO15 P) `& l+ B% S/ ~
#15=#15-1.3 t& T5 R$ _9 A3 @ v
END1
8 @8 p% X0 e3 p# i$ d: N. cN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
8 ~9 k- w2 O2 i8 h& D#22=#2/#42 f7 S4 s% `5 ?
#5=#4*#11*#22(最小公倍數)
1 \* }7 d0 k0 J+ IM0
5 u0 E/ R0 k8 Q8 R& k+ i0 u
) C& O( F2 h }% [+ MP.S) s. Q& ^4 x6 }5 W2 Z9 B. l1 T
我想把#11.#22和#5的式子簡化成
, Z, s" U- Y& u0 N#5=#4*[#1/#4]*[#2/#4]
9 I; E4 `' {2 @4 Y& _% ]5 A1 k我又想把#11.#22和#5的式子簡化成
9 f+ @ N) q4 L; z6 h4 @+ [#5=#11*#22/#4 結束 ' Z. R* U' I+ f$ W5 X
|
|