|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
8 O- D+ b* a- W& h! l& {9 A
% B2 l& W' S) w: X( W% r. {求最大公因數?
7 G9 k/ I/ d- c7 o2 Y- a6 U求最小公倍數?
4 b* w; P( r! T% c2 R* Y
, u8 z* {2 B2 m! O8 x" \8 c#1=45.! l2 A0 ~; s/ W1 \, i4 V
#2=36.
/ ]& ]- y9 G( i( Y W把#1和#2的最大公因數投入#48 S3 B& c7 E; {: M
把#1和#2的最小公倍數投入#5* z4 _3 g4 @1 z0 p( r
& M! K- o0 u, Z* m g, |+ ]#1的因數有哪些:分別放在#101~
) ?; T% p J: d) E0 ?+ ], B: o: k#13=101.
+ U+ j5 I* G+ O+ D: @2 d#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
# e s z+ l) b& KWHILE[#15 LE FIX[#1/2.]]DO1
. @1 J: f- \- d, ?/ F/ X6 `IF[#1 MOD #15 EQ0.]THEN #[#13]=#159 ?( q3 {! S" [8 n0 A* t: S. T
#13=#13+1.
( f& \+ X3 ^) J- I I/ `#15=#15+1.
_+ H9 `* k* W7 \+ Q" N3 g3 JEND1
: r( G4 n- D; X#[#13]=#17 `$ f3 z, _ i# q, L
#15=#13
4 G3 W8 M& ?5 \, J' W6 l, r! @9 }" h9 z+ h3 Y# S
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
8 Y: r" J, a/ E7 W$ cIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
# G; T: S6 J) d: R7 J+ BIF[#4 NE #0]GOTO1& S6 x& y# Y& p' \
#15=#15-1.
- j/ F4 a$ g2 b8 W) fEND1
( H4 W7 _, I& u, i1 X) CN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
6 [4 Z/ R' I, U& P#22=#2/#45 L* B* V: D* w- x0 i+ A
#5=#4*#11*#22(最小公倍數)9 j' C" `% j4 }. N: o
M0
, \$ D+ ? } A S9 S, S4 i( w! S2 j5 j' o
P.S
4 t6 ~3 Y$ O1 C4 r. ^) \9 B1 [我想把#11.#22和#5的式子簡化成
% A% h7 M. Y3 \/ \8 m6 p+ I#5=#4*[#1/#4]*[#2/#4]9 u+ z; J4 S& a. b! ?
我又想把#11.#22和#5的式子簡化成
8 D, W' ?: v8 F#5=#11*#22/#4 結束
+ Z& q0 @+ K0 J0 }# `, h |
|