|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
+ }! K2 O, ^) p; ~+ m! c1 l$ I. n- _6 \: o
求最大公因數?: E$ R( K0 j4 F7 N" B
求最小公倍數?8 L' u$ w- A+ c+ H4 T: l# A) c
4 I3 a1 F7 G( J
#1=45.
* ]2 i- b% v. U1 K+ K; e: P#2=36.
# I4 v+ r3 q/ n& S% ?4 d9 H把#1和#2的最大公因數投入#40 v* s4 ~6 v( F( b& F& g0 g5 z# B' ]
把#1和#2的最小公倍數投入#5
, H; X4 n L( v3 |, B
; B: H- G5 ?0 {5 L5 ~2 u#1的因數有哪些:分別放在#101~1 w) S" V- m5 Y3 x- c
#13=101.
' E$ k2 `) C' L# Z) w9 b#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
& G; z( v& p! x' U/ a. m8 H0 qWHILE[#15 LE FIX[#1/2.]]DO1& i/ h5 S4 N0 J. l# u: i5 `
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
+ \7 T* N9 F: _ |$ S2 f#13=#13+1.6 e" Q8 s7 p: T
#15=#15+1.
; |1 g' o. z MEND1
% Y* H! |5 }0 `+ H5 B#[#13]=#1
" K0 Y _3 X8 T#15=#13* V/ K) W) \& k# g8 ?
4 a& f+ D u A0 D& S
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
0 K$ J5 R! ?; U: z2 vIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
5 G% z6 X- J% X/ R9 vIF[#4 NE #0]GOTO1
' H" e, R( [: d+ A4 Q/ n4 T#15=#15-1. h3 |1 Q( F Y) i9 |0 h
END1
; Q+ E4 W, X2 Y! S& uN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)$ w% P1 v. k7 G: k, S
#22=#2/#4
9 I$ O6 t+ o5 g8 r& S" O0 p' ^: I1 g#5=#4*#11*#22(最小公倍數)8 O/ q) o- L* Z. U, b
M0- e4 Y) n4 m1 {
+ a' n4 F* Q9 s# g7 P2 q
P.S
5 Y1 s! q# |3 _' D! z/ V2 G {我想把#11.#22和#5的式子簡化成
M; Q5 |) M3 B#5=#4*[#1/#4]*[#2/#4]
8 J1 C( I _4 M: J6 s我又想把#11.#22和#5的式子簡化成4 c% Q) P$ M1 H% h
#5=#11*#22/#4 結束 ; M) @3 P" D! F
|
|