|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 |& _" U5 X3 |7 N. t* G& Z& z7 P
& C( z# a9 ]/ C% a& Y# V, W求最大公因數?3 v6 ^/ D7 h" u m3 c
求最小公倍數?
0 U9 _' r0 t$ {5 U
5 u( p( x8 D' y#1=45.
; }9 k& K4 N0 ^9 |: c#2=36.
# }+ d+ l5 N) m ~, F9 I8 c% f4 C, E把#1和#2的最大公因數投入#4
# |' v `# y0 q6 e把#1和#2的最小公倍數投入#5+ k% k( x! P& K7 D/ Y# W
2 {$ I' q- Q; b/ |#1的因數有哪些:分別放在#101~: h Z) C1 _/ V6 r: k- ^
#13=101.
o7 |2 g5 a/ Y1 Q. t, h, _% @#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
5 e0 P, t, b" ~. LWHILE[#15 LE FIX[#1/2.]]DO1
- M# g9 E" g0 [ c7 E7 q2 @IF[#1 MOD #15 EQ0.]THEN #[#13]=#15& @3 z+ n9 b k. `5 G! w3 @% G- p
#13=#13+1.0 Y7 \1 o' B( Y( z
#15=#15+1.4 L# m+ Z, W$ C F
END1- ~9 N5 n+ A; w+ ?/ @; b, ~5 e
#[#13]=#1
0 y8 {+ h' t; H" b4 w: C7 u#15=#13
" W7 n# S9 N) f6 t
7 ~" M; K+ c) ?6 t" eWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)* Q+ O' e% S# D! @7 e7 M3 U2 s
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]" d" G/ c2 [! o8 n3 F3 i9 ]- G" M
IF[#4 NE #0]GOTO14 v: L7 l& P8 X4 v7 R: q. b
#15=#15-1. c9 m* e5 A3 P8 {+ b2 j% b0 I
END1# W5 J0 s* O# K2 J: Q
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
5 C, N/ I8 N6 t#22=#2/#4
$ Y }+ [4 t3 ?' x8 Y#5=#4*#11*#22(最小公倍數)4 ?: ^- B- Q8 t. V; T5 f, q% Y
M04 y$ ^. K: `# K. X
# K {. w0 D5 C, L3 uP.S
, M# _/ {6 b" K6 Q. y# g我想把#11.#22和#5的式子簡化成
, l \: r0 f |#5=#4*[#1/#4]*[#2/#4]
/ i" V' k% U1 _, g. N' s/ t我又想把#11.#22和#5的式子簡化成
* K: }. V$ X& R4 J7 [#5=#11*#22/#4 結束 * y2 v& |1 {9 m$ }( m L
|
|