|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
2 g9 b( R! |" h3 K
* { r: x) }* d1 Q求最大公因數?
6 S) F) B8 k$ ~( R3 h求最小公倍數?
& D6 P( h5 a/ H
$ }% x0 T- a% [4 f- W7 S$ q. |#1=45.
/ h1 ~7 Z! T; u R, F6 T#2=36.' {) x, p0 \8 g+ B/ |1 n) f
把#1和#2的最大公因數投入#45 J1 I3 n% L" J$ Q
把#1和#2的最小公倍數投入#5
1 {9 j% w" D, h9 I ~, G3 ]: k+ N F. }1 g. y0 R7 ?7 F
#1的因數有哪些:分別放在#101~ j# Q9 `$ N8 X( l6 U
#13=101.
' X, `2 R. T# s#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)( j# g4 |: W. q
WHILE[#15 LE FIX[#1/2.]]DO11 \2 }" C2 {2 y6 w+ b2 Z' H. c
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
W, P+ m% j! w1 A' o# ~; r#13=#13+1.& X8 { y$ V& p. Z( W2 \7 g
#15=#15+1.; K. m! E7 g E9 N% g9 O
END14 U9 o3 t. F2 L2 m" W
#[#13]=#1
, W/ a9 g+ Y F/ J G3 T8 N! i#15=#132 z, Z) W+ W! [
& b8 d' W# V; Q( v& I: y# n fWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)2 V$ p& G0 [ R
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]* k# J0 P! n [# Y8 A
IF[#4 NE #0]GOTO1' l B9 t: o7 A# K. i+ A
#15=#15-1.
0 g5 J& i& i8 h, rEND1* D9 t, j/ G5 n5 s- Z
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號) L5 s! c; U) d; m, C' M2 B
#22=#2/#4+ E4 n1 k- H" O0 Y
#5=#4*#11*#22(最小公倍數)5 T4 s. s1 ? R
M0. q( z9 g' z1 b; R0 k
- C# Z: k! R4 P7 B: h, Z/ @P.S
3 D8 Z, r: [( E( B" K9 V: y8 J我想把#11.#22和#5的式子簡化成
% [% }0 C$ D+ w& A/ l! R#5=#4*[#1/#4]*[#2/#4]5 n6 s( B% T9 r& W
我又想把#11.#22和#5的式子簡化成
1 Q+ Q! A8 ^3 J4 [- N#5=#11*#22/#4 結束 2 H) U+ v! ]8 B
|
|