|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 : m! I7 Y, T. |/ u6 N
* x* T8 T0 S: n! s3 d
求最大公因數?# F9 ~9 L; C& d) ~2 A6 @% {/ U
求最小公倍數?/ y8 p" I: D m- I# L8 [3 F
2 u% j) [/ C6 p0 u B4 @
#1=45.
' S8 T7 w& P) P M0 H# s" A#2=36.
. B |9 N0 N9 ~把#1和#2的最大公因數投入#4
& h- M& q+ F' B# w9 ^把#1和#2的最小公倍數投入#52 }: G9 l: o4 \; ^" C( ^0 d% k5 s0 l
1 v" r. S% Z- h4 @#1的因數有哪些:分別放在#101~
+ X4 S3 _- B& e) p' W#13=101.
& X" f! R4 y/ d0 ?#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
* S+ e' ]$ }) ^6 m8 `% ?% O3 GWHILE[#15 LE FIX[#1/2.]]DO1 S: V8 f' d& K* I! F! Z
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15) e" @- n9 K j H; Y' y
#13=#13+1.4 J; C4 I. B& v% p/ \. S
#15=#15+1.
: Z+ `* r" @, H( c: j& {/ F+ z8 k$ {END1
& d% ~8 j% u+ | l4 E' ?- Q' o#[#13]=#1/ m$ A2 z* z( _2 T" m# Z, d
#15=#13% H, Q# c; H# Q; m! z5 p9 `
" C' L3 q0 K" J7 X
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了): s. g5 f) v. u( k1 l p% {
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
/ L4 a6 l: @ N7 zIF[#4 NE #0]GOTO1
- l n" p, {. ?- ?0 i5 d#15=#15-1., \( X5 v" T3 \! o
END1
! c2 G9 G) _2 L) NN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
0 m. [1 ?2 h0 L3 c2 w8 G#22=#2/#4+ R8 z# ^ Z+ d. I1 ?& N! u" T
#5=#4*#11*#22(最小公倍數)
5 J- @ z/ [2 `7 [M00 g1 @/ l( _# J/ O: G9 V0 H
% P; I Z W+ K; UP.S
8 b9 D6 M% [6 d; i+ A& u我想把#11.#22和#5的式子簡化成. l7 Q$ f7 f& w/ F4 P% Z
#5=#4*[#1/#4]*[#2/#4]; R' J+ ^1 p, W) w* X
我又想把#11.#22和#5的式子簡化成
" p1 m$ M8 w, l% {+ P. Q) B#5=#11*#22/#4 結束
$ V$ _7 g: y! w4 n* Z1 V |
|