|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
( @! B9 N. o; ?3 m, V+ H
' K+ D3 I0 E2 N7 j& T" u; Q求最大公因數?
# i" a1 s2 R1 {: A求最小公倍數? N$ F x$ A5 t! l* d3 A
1 E& F" t) k3 L. F, H' Y$ ]$ \#1=45.: E- j4 C, l6 c, f* ~6 W1 l
#2=36.3 k: `1 v$ p5 v/ I
把#1和#2的最大公因數投入#41 g7 K( a0 L6 L5 M0 E) w6 x
把#1和#2的最小公倍數投入#5
9 H8 h/ s7 y& n" K
C& R% @! @2 `, W n#1的因數有哪些:分別放在#101~
* S3 [* D$ ^6 g B; k/ F#13=101.# M# R- N% M' G# z- s
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
1 b c& M4 x2 F* }3 `7 r7 T4 B! O' iWHILE[#15 LE FIX[#1/2.]]DO1) n$ p" M& D/ |% ~6 s4 J1 ?
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
# k- M$ e: y' I! n& P#13=#13+1.3 q& `0 a/ A# o+ f6 i
#15=#15+1.6 ~6 m( t( o; B2 E: X$ @
END1
1 [- M& B4 Q5 q$ `! L#[#13]=#1
% K$ }: H o) C2 j4 |#15=#13; N0 q6 r# _+ D( W! o' r
6 O7 S0 `8 D1 P& l( o- \+ mWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
F$ A1 `, E: p0 E1 Q/ @IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]% D: V: N9 Q8 D) q
IF[#4 NE #0]GOTO1
1 ]8 B9 @$ ~! n" ]#15=#15-1.
7 }- A3 Z5 E; h1 j2 `, cEND1' K& b; H% ?8 y+ y; Q2 Z# y
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)1 @! a' b( W) Q/ ?# ~
#22=#2/#4
& I" I: J, R+ K; g8 t2 O#5=#4*#11*#22(最小公倍數), V, Q( z: T# J" Y
M0: {9 Q+ N: F8 A8 f' g: ^
2 E/ {$ \+ a) I4 G. f& }P.S
0 A& Y3 `2 c4 O1 l4 B. X我想把#11.#22和#5的式子簡化成* l/ i# Z( ? S9 p
#5=#4*[#1/#4]*[#2/#4]
! L' } n& Y: _% v. ], L7 v' Z我又想把#11.#22和#5的式子簡化成
9 k' \6 c2 X7 r: s$ a k#5=#11*#22/#4 結束
0 t2 g# o) p7 G' E( T2 n* }; y: ^ |
|