|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
2 H6 l1 k% k" [9 {, d9 }
# o$ f1 t- P ? Y) T求最大公因數?
5 _, S( d% t' c9 _0 t求最小公倍數?! P9 w& ?& K( E9 n" U; O V$ m q
7 i: ?5 z1 |+ @* G#1=45.
$ |$ i3 W5 ^& q0 d k#2=36.8 X+ I4 e2 ~6 U
把#1和#2的最大公因數投入#4
4 t2 d. Q% [: F# d7 o把#1和#2的最小公倍數投入#5" p+ R3 a' ]* L& M9 p* d
' k5 a0 u0 K Z% Y
#1的因數有哪些:分別放在#101~
5 j% s* A! S2 A3 _7 _#13=101.
: ]# [9 c' o! v6 |' m1 G5 O6 ?#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)" }- n+ B3 F% n& A
WHILE[#15 LE FIX[#1/2.]]DO19 F+ x: z1 Y3 s1 p+ C
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
; b. X' w- G9 a4 V6 W#13=#13+1./ P& f. Z$ b+ { Y" Q" t% U& c5 j
#15=#15+1.8 S3 e( K; ^ n* }7 u' z
END1
# y8 X$ [% N8 Y5 J; |8 X#[#13]=#1
4 d2 Y" E7 o* T#15=#13
t% G& Y$ N; Z1 y# h/ ~" f/ _% e6 v& M' F* q3 \
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
8 z* s) M* X( `/ [IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
. }1 ^8 h- F3 JIF[#4 NE #0]GOTO1
, v( _. G" ^$ r4 M4 E9 I#15=#15-1.
/ d. q- m8 r; i; Y8 GEND1
% A5 k- x1 o8 q* R+ `N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
$ q: T5 p/ {( @" V#22=#2/#4
9 e- o3 j5 Q# l- M#5=#4*#11*#22(最小公倍數)
9 a: s/ c1 P: t9 _2 LM0
2 T% Q+ j+ U% ~ @% f- `# J' x" K+ y' @1 n
P.S
& }8 W* U$ w0 a) k% j我想把#11.#22和#5的式子簡化成
: y4 T! I7 R/ s0 g#5=#4*[#1/#4]*[#2/#4]
; g1 V8 H4 Y* \我又想把#11.#22和#5的式子簡化成
6 i) z7 L: G. ~6 S5 b4 A. A#5=#11*#22/#4 結束
9 U+ N8 z" P0 } e) i4 h6 k4 T |
|