|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 3 I4 P N' ~; V$ l( z
! W) Y& s1 U+ q$ Z( A/ B
求最大公因數? m5 ]0 L- [. i) u) o; v" `
求最小公倍數?
& R4 P1 J% m8 g$ D3 x" K3 N3 c" Q+ ^: k" G# k8 n
#1=45.1 N. [( C3 {3 n, j3 E9 o
#2=36.. w3 |6 l4 l$ ~: D
把#1和#2的最大公因數投入#4" _! P& Y. I. w5 o1 d
把#1和#2的最小公倍數投入#5
# p" B# N6 R/ L
& \- d/ w6 u7 h9 E#1的因數有哪些:分別放在#101~+ m! I* O9 @2 `( m. B
#13=101.& ?; ]* P9 |* G; ~0 c- w
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)4 V5 w; ]2 M; G: R2 z0 ?
WHILE[#15 LE FIX[#1/2.]]DO1
% d+ P1 P' N0 A4 ]0 SIF[#1 MOD #15 EQ0.]THEN #[#13]=#15: ?4 W6 G: {0 i9 M$ k8 {" i$ n9 r
#13=#13+1./ x0 H3 |7 O1 y/ c, o7 R2 e
#15=#15+1.
+ A+ d& T% ?# |& W' o) n/ T' iEND1
4 a( n( u. ^, C* X, x& }#[#13]=#1
' d" S7 N+ {% Y% w) R#15=#13& y4 j) X) s( x1 s; [# I% b
' j- Z( w1 w+ ]& ?( O/ e/ x
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
: n& F0 o" O5 t; n( N5 M# \IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]. @1 }/ {; R9 M/ r
IF[#4 NE #0]GOTO1
& A4 n* F7 w* e) ~#15=#15-1.
- s- |: F7 N. n4 f7 kEND15 c1 r3 ^+ O) f6 Z
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
4 |( x8 @( u# x2 D( j#22=#2/#4
4 \. I, l& A1 `5 [$ k+ i#5=#4*#11*#22(最小公倍數)/ {5 F8 d5 ^0 Y! G5 f, _
M0 V$ H/ D. B$ \( E
. j; L* t2 D/ C& D5 y
P.S7 c3 a$ w4 o ?/ U$ E. H4 N
我想把#11.#22和#5的式子簡化成
9 ^7 T: l* p' b3 V3 ]5 d3 s#5=#4*[#1/#4]*[#2/#4]2 e! P/ G( {5 n5 P5 s5 t3 s7 O$ C
我又想把#11.#22和#5的式子簡化成
8 a$ S/ d1 b4 T h( \: @#5=#11*#22/#4 結束
) K9 ] Y; |- h- v. K |
|