|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
) V6 ?6 T: e. a' Z4 v+ j7 S
) }* @2 x5 \6 v0 K" Z求最大公因數?
5 X8 _; e1 p) n* \" W4 h9 T求最小公倍數?4 O8 x1 g: `! [; u
5 r1 D9 q) e) T4 S
#1=45.
1 ^9 f; O% o1 o#2=36.! I7 W! ~' K! p1 o. e" X9 V' W5 A
把#1和#2的最大公因數投入#4
8 Y' i2 o2 w# k把#1和#2的最小公倍數投入#5
' ?. a5 [5 h/ b0 w! i& x9 s! j- A5 S% ?. B0 Y$ ]
#1的因數有哪些:分別放在#101~
# m1 A& x+ U D4 H#13=101.2 T# u7 d* k, e6 K% m
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
" N# c2 Y Y1 s( z0 v) uWHILE[#15 LE FIX[#1/2.]]DO1
6 g- X0 g" ?) }: d3 E: V' H+ u; ~* `IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
6 A2 k' R1 V% J#13=#13+1.
. J7 ~& W2 t% g1 z) X#15=#15+1. Q4 s6 O6 F& w( }# `
END1
9 B( ~8 Y# P) u% J, f, I# I#[#13]=#1
4 s7 t, t8 H0 j) @+ m! ?- w/ L#15=#13. @- N+ h5 U# W r
8 r2 y+ M. R0 v9 J0 A& A1 Z5 {
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
, v( Y+ u( n$ o1 @% c8 z0 t( }IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]# p- [3 d, F6 _5 b9 a
IF[#4 NE #0]GOTO1
9 C: ~4 Z" p% X2 Y#15=#15-1.
1 a1 H6 o+ v) k' m, F0 h0 u1 oEND1% v8 X7 |5 g0 d- m/ d, O& s
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)9 h& y1 M- |1 k! P
#22=#2/#49 c" @4 K& d* |1 i& W
#5=#4*#11*#22(最小公倍數)5 d9 [' `( L" {; W; g, D
M0
- m3 N; V* [ I, N. ?' B; q$ C* v* a/ B2 W) v: K7 B
P.S7 W6 j8 G8 J' I* O
我想把#11.#22和#5的式子簡化成* R2 f3 @) d' N& ]7 { [( u
#5=#4*[#1/#4]*[#2/#4]! m, d9 L8 C% H7 J. ?9 f, Z
我又想把#11.#22和#5的式子簡化成9 }' U( O+ a9 Z _. S
#5=#11*#22/#4 結束 " H# l# T; C/ ^3 G* C
|
|