|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ( C3 R4 d/ b! `: X
E/ t: C7 ~7 G3 O& G4 g
求最大公因數?( X/ b0 f6 r. v) c
求最小公倍數?
. k8 Q9 y, e3 [7 o7 b: c E: _6 `
1 G: _0 G/ t2 h- \" B3 ]#1=45.& P b# f8 d4 ]$ T
#2=36.0 t6 U1 j3 O7 ~# o
把#1和#2的最大公因數投入#4( ^4 }: Y7 R7 c4 e/ L8 M
把#1和#2的最小公倍數投入#5
: D; B7 G$ d0 h6 z# ^" e: p
) S1 R( S* u7 m% u& @, J#1的因數有哪些:分別放在#101~
9 J! g& w! p- ?; H# G1 N#13=101.$ P& f3 \5 E# P6 B. ]; w3 O
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)2 O/ i3 i. k1 L# d1 y# |$ Z
WHILE[#15 LE FIX[#1/2.]]DO1
0 b8 a+ W+ J4 k5 RIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
; Y& Q6 k- D: r# _#13=#13+1.
- a& D5 c/ I& d- e#15=#15+1.5 g/ x% o: _2 r" J$ J! K; L2 Q
END18 M. w6 M2 S8 m
#[#13]=#1* O7 o6 N5 r& t
#15=#13, z( P; L, c3 G8 K6 `- N( j2 L9 z' r
B$ S. B7 ~: F k3 X6 W2 w
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
7 U( k. z9 ` ]6 f, j9 ~IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]- a1 h4 U a1 `7 F8 `) b
IF[#4 NE #0]GOTO1$ |9 v; s# s/ J. y6 o( s
#15=#15-1.
' i) }' t G1 q% hEND1+ H8 p+ T; N$ i, D
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
! c6 j& d: T- f#22=#2/#4
' B! j8 u% y; V: r* v, g) p2 l+ Y#5=#4*#11*#22(最小公倍數)" j0 L, z( Y! T: F, Z- ]( y7 n
M0
3 z1 d P8 s, d8 i, x. H9 O/ Z
" l% M6 N% A1 n4 GP.S
0 I% |) n9 C7 W& W' C! [" y) m我想把#11.#22和#5的式子簡化成8 z& ~6 g6 G, n/ o/ Y: Y1 N) P
#5=#4*[#1/#4]*[#2/#4]3 |6 b% o% c/ f5 |/ m, y9 h. d; X0 n
我又想把#11.#22和#5的式子簡化成
+ O+ [* C/ t- f7 p#5=#11*#22/#4 結束
& K Y( V& D8 l: w) n* I |
|