|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 * @ W/ O) E. e: E S6 ?8 f& U7 c
$ O" W$ M0 h( g7 n! b1 n4 z; S0 p
求最大公因數?+ k: s# I. {0 P+ P+ _
求最小公倍數?: A c/ V* Z- P% F% v
; t$ H" I1 u$ e+ Z, u7 ?; K7 e#1=45.: M; A4 N0 W P/ d4 `
#2=36.
& G6 R2 F, i& ^& w$ v把#1和#2的最大公因數投入#4
/ W. q) A; w) j1 t9 s. ?! ?把#1和#2的最小公倍數投入#5" y5 H' I# G7 G/ K1 u3 p# L
3 a" a* ?$ |0 y5 T#1的因數有哪些:分別放在#101~ J' C/ N3 ^. k8 n& w
#13=101./ L7 o+ }0 s$ z3 C6 j+ ^* R! d$ M
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)8 O U2 V/ |1 p8 q( D9 q
WHILE[#15 LE FIX[#1/2.]]DO1- w) Z! j5 B0 e) \; a( }3 U
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
& {' @$ f6 D% X; m [- C5 V& w+ K#13=#13+1.* a4 n: t- v; m" M
#15=#15+1.# ?: o4 |! G9 r* N$ p
END12 t5 n! F& I: Y% I; g* Z3 P
#[#13]=#1! z- R& n4 K ~# N
#15=#13
9 o H% X; }" l0 x* T- @9 A( E
1 G. H7 V% I4 O9 ~! ^+ F. PWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)% I/ J' k) X R& }% j
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
0 L1 y0 m1 H" `+ K% r. dIF[#4 NE #0]GOTO18 t8 _! C z- C- V; ^ m0 u
#15=#15-1.
9 n0 P; e% l2 O9 B, p- \, f8 FEND1
. F' z+ X5 C0 h+ l; jN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
4 ?8 K: H* R, R3 W. Z. Y2 `* O7 I#22=#2/#4
5 G. n# \2 I5 | Q: ^) @#5=#4*#11*#22(最小公倍數)
9 X, P" q1 R* }M0
# h" h) t+ z; h* Z. E9 M6 K( V# O1 ]) v3 M* S( l5 l: e4 R
P.S- Z5 c @4 d' _( ]7 f/ l: V% M2 z
我想把#11.#22和#5的式子簡化成2 f1 y! L0 }; T
#5=#4*[#1/#4]*[#2/#4]
$ C# H: k% V$ A f3 E/ Q. i我又想把#11.#22和#5的式子簡化成) p% Z# s0 s g. n$ T( G d ]
#5=#11*#22/#4 結束
/ }; O- Q. C" N' W& W! J2 c |
|