|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
. W1 q( R5 K0 s7 o+ X/ u
, O! n4 h+ h x. p, G4 |求最大公因數?
, n. J8 U# L+ @, d/ {: b求最小公倍數?
" L* T* `$ s7 x( M! W- ?' f! t
0 X7 X9 @. Q. s#1=45. R2 X1 o6 O2 {9 g
#2=36., }( Z7 U5 z5 F3 K2 l7 G
把#1和#2的最大公因數投入#4: Y5 ?3 R/ S3 g
把#1和#2的最小公倍數投入#5
0 A" X: r4 B" v3 r \2 v
( ]& ]3 c E% J4 n k0 U8 p#1的因數有哪些:分別放在#101~& c$ E. T! e, w; g
#13=101.: D# R3 _4 T1 J: P. b- M5 N
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
( Y) f0 s) \& C0 BWHILE[#15 LE FIX[#1/2.]]DO16 R9 d+ Q! }* }
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
4 q: k' w, T5 B* Z8 p#13=#13+1.
9 \$ s! J9 s/ e# L) B#15=#15+1.* H1 R6 T2 T: v. x
END1
3 P5 e, u# D" _' [3 P% u#[#13]=#15 ^/ b& ^- k4 R9 b* P( P5 |
#15=#13
$ d4 Q- w& v, P0 j) j) a1 l. C9 U- Z- i: I: g1 w$ z
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)7 ]# [6 I+ w4 h* l9 a
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]$ I8 L6 a* d0 A& t
IF[#4 NE #0]GOTO19 X* @8 p+ o, f6 }0 [
#15=#15-1.. W l, i/ ~3 F% c9 ^7 Z5 A
END1
7 \) O0 R$ ]1 p. nN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)" c3 |! v( o1 p, B1 |
#22=#2/#4, V6 c% {& y \, G# X4 n
#5=#4*#11*#22(最小公倍數)
! a. ?4 D: u+ ^; f2 d- u# S2 Q* NM0
& s2 u4 O- ~% ~ R# m, W6 B) e- {5 ^ ?3 }$ T
P.S2 ]- h- {) i) B( P+ L
我想把#11.#22和#5的式子簡化成
9 Z$ \0 q( Z+ g% o$ f#5=#4*[#1/#4]*[#2/#4]' ~1 B% W5 m& S% Q; g+ L
我又想把#11.#22和#5的式子簡化成$ X# q& p( ^, g1 A' i
#5=#11*#22/#4 結束 7 b" d6 D/ Y4 e
|
|