|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
8 s) a m- g+ ^, E; t# `# b8 ?( p$ M/ t! H5 }
求最大公因數?, @, D4 m0 N' m9 d
求最小公倍數?, f1 O" K* ^4 `' N) X
i i6 B* z. o& g( P+ u- l#1=45.5 v5 l+ u% S! [: q I/ ?
#2=36.
( T( [& I$ [. [1 ?: i1 w把#1和#2的最大公因數投入#4' Q6 }3 M6 {$ T r$ u1 X! J! K
把#1和#2的最小公倍數投入#5! h# e5 j u& Y
4 O' v# l+ R1 E- M9 h- u#1的因數有哪些:分別放在#101~5 l0 {4 [4 U; f. e; k
#13=101.
$ l+ y8 r. r: h% n' ] P+ f#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~) b% J5 r. S0 ~+ z. f. K- A' _
WHILE[#15 LE FIX[#1/2.]]DO1
" d" B7 J( o: T, C. YIF[#1 MOD #15 EQ0.]THEN #[#13]=#156 b, E- H3 g$ o* f& p9 B2 K% L! Z
#13=#13+1.
, i% F. d2 S- B; ^1 P4 f* S#15=#15+1.1 n. R' i# L' W% g5 n; W
END14 e. d Y5 t+ l/ s
#[#13]=#1
- ?2 k5 x9 H! B+ U. z' Y0 U/ C5 A#15=#13
! N: g% P0 C& E
) S* D f0 [6 V9 ~- HWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
0 R `4 _( e5 @' X, ^IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
; Q7 I: r% k( `IF[#4 NE #0]GOTO1# `. n/ E4 |8 a |+ S+ t5 m- W8 Y) {4 K
#15=#15-1.* r( Y5 q4 z1 _& E/ V9 \
END1" p) {8 v5 p3 N9 e' ]: S
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
1 a* g2 m& [; k6 F' Y/ B#22=#2/#40 c8 d ]- o' C
#5=#4*#11*#22(最小公倍數)
, [3 i3 W, H4 l3 CM0
$ f$ W" U- a! S5 D6 W( y. r% K/ a6 U9 U5 m+ C9 x0 q( h7 Z
P.S+ b9 {( K- |- X3 U1 q X2 V
我想把#11.#22和#5的式子簡化成
9 Z& B5 Q/ M3 c9 J/ |6 h q) [#5=#4*[#1/#4]*[#2/#4]
# R9 Z4 z8 G( }3 ?0 Y% v& w我又想把#11.#22和#5的式子簡化成
/ Q" z1 i- ?# K* a1 ]! p#5=#11*#22/#4 結束 / K* l1 i4 W7 k- s5 q/ [
|
|