|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
6 |" ~! t X- K: I" M" x8 `/ k+ r6 `# i" I. O9 c
求最大公因數?/ z. K, ]$ r* @) }2 u7 E
求最小公倍數?
* o. V+ t5 J# E; r* i0 d6 O5 M4 d; F9 d1 e& P8 d' G9 k7 m1 K- \% O
#1=45.9 I: K. I" e; J9 E7 m; A ^
#2=36.
# k% W' _2 q* k, M把#1和#2的最大公因數投入#4
0 B" _5 J, Y' U O! j2 u把#1和#2的最小公倍數投入#5
! n) a2 ?* r, _! _1 _# B
# s8 n. I+ X( L+ H: {#1的因數有哪些:分別放在#101~
4 P% D, V. n- N#13=101.
& A7 }, h6 z, z) ]#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)" q5 G9 ^" J& O# M0 g `& X
WHILE[#15 LE FIX[#1/2.]]DO1
, h0 |9 D. J/ w: g. J) i* W4 NIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
4 _; e# Y" S/ l* a' w" n$ S#13=#13+1.8 u: s+ }/ W5 W6 h
#15=#15+1.% e5 y4 P; ?4 f: O& {' T3 T0 f& N; [
END1$ u: }+ r+ s. F% V* k
#[#13]=#1- E, Y% K# @: B; M1 d! J/ e7 d
#15=#13& F, @# r1 v1 O2 q
7 l' H1 @% w' c1 ^, D$ z. J6 d
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
! p# }8 j+ ]; wIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
5 W# x0 f" p! XIF[#4 NE #0]GOTO1
$ e+ U: h( x: ~5 X @#15=#15-1., P+ Q: @6 i2 S, l& ^
END1
% p8 U' P$ a' M8 x0 ~5 B! HN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)/ k. I, L1 _* v, i3 B; c5 W% n
#22=#2/#4; C( H1 X+ @& k% f* M& k
#5=#4*#11*#22(最小公倍數)
* S) c l1 Y( i* }; XM0
0 \+ L1 ?$ t6 b* F: i5 U% U1 U* v& v% C0 y8 f* y1 S
P.S3 m6 v6 P9 v ?
我想把#11.#22和#5的式子簡化成
* s& G/ Z+ C% _! a( \: T8 A1 \( N) \#5=#4*[#1/#4]*[#2/#4]
- M# Z( i6 ?+ P" W我又想把#11.#22和#5的式子簡化成
1 K; E. I9 B8 i# ~" Q; w0 w( l#5=#11*#22/#4 結束
5 Z! L. {/ Q. S+ c" V! z' o/ K |
|