|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯
' @1 g1 z9 _' E+ C' Q! q: o
2 v% ~0 E6 k+ j) ]9 z" x& E求最大公因數?
' n9 T U/ ~2 O求最小公倍數?
1 [* g( A! m( \! k5 V( e# \/ V4 i& J, o* r4 l1 M4 z7 G
#1=45.
- w, h5 p" c- N4 f; R# X#2=36.
4 G2 h6 O2 V3 t4 U把#1和#2的最大公因數投入#4! }0 D! e H; A* P. r
把#1和#2的最小公倍數投入#5& r' k- H: ~9 T$ [* c& K
- l9 v# r% _4 Y; S& R/ j#1的因數有哪些:分別放在#101~* d* d I9 y! H% s
#13=101.
0 ? m/ ^ C1 U' p P1 J, J9 {$ ]( w#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)* l, K5 C: ]/ W* }, y
WHILE[#15 LE FIX[#1/2.]]DO1
& @9 M/ `! R, R; PIF[#1 MOD #15 EQ0.]THEN #[#13]=#15& v4 ~: N) u2 v5 w$ I, d$ ]
#13=#13+1.- X9 ~' [7 v$ @" e5 }
#15=#15+1.2 J6 R! e* U4 _6 n/ r/ _- S
END1
8 e2 N( D' h, \4 U% o: F, ]#[#13]=#1: P1 f* b5 W* a3 B9 n' t
#15=#13/ k# f, |( T6 {: k* u
4 b# E+ h4 U, Q+ K& V6 z; N+ Q! n
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了) T W# b3 V3 h/ D! ]+ {- I) J8 |+ h9 A
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
& ~5 E7 L7 z+ O5 @4 IIF[#4 NE #0]GOTO1
: c+ x% B$ K9 V#15=#15-1.% e! e+ F: G2 ^5 p3 X. q1 W2 L7 M
END13 u) t5 q! x% p- m; ] g+ E
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
9 n! S: ?7 t7 x# ~+ W#22=#2/#4
, N$ F2 R% m+ X#5=#4*#11*#22(最小公倍數)1 K: D- j; r. d2 V
M0
2 s# V& M) U3 @& k$ L. }3 I
6 W- I9 F1 V" y! |1 YP.S
/ S" N- q1 q7 F# p: F/ i$ ~我想把#11.#22和#5的式子簡化成! O- Z5 t# a0 h$ q; ?
#5=#4*[#1/#4]*[#2/#4]! e8 P0 d* @2 u. a5 x% Y4 \
我又想把#11.#22和#5的式子簡化成
' G$ S9 t }0 G6 f#5=#11*#22/#4 結束 1 p. t- t. K* d# D5 P5 H
|
|