|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 4 {) S$ ]; {8 e
7 ~6 G$ z3 M1 h. t% t求最大公因數?
! z- y: L+ u( e$ @: c2 ~求最小公倍數?
# y7 W2 c9 h6 \" r5 o4 v
0 K& I) _+ ~1 s#1=45.
5 `! B! n% X, S+ s, T! M) Q#2=36.
! ~# H' _: r% u把#1和#2的最大公因數投入#4
$ e3 i( Q Q; d/ ~把#1和#2的最小公倍數投入#54 R I/ ~6 y5 I! e
' r/ m" ?( @3 a- k- N4 v1 o
#1的因數有哪些:分別放在#101~. |. C& K6 c& @2 U' H9 a
#13=101." l7 G3 Z2 P: E1 Y
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
9 H3 y9 m. o! h8 iWHILE[#15 LE FIX[#1/2.]]DO1
* u0 _" x" `3 X% j: HIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
* _) o ~8 @" @#13=#13+1.# k3 @2 c5 I$ ~* j" m, F
#15=#15+1.$ _/ h( s4 o9 }! i; S
END1
; W9 Q, q1 Z3 t( y#[#13]=#16 w+ D! g' m! [4 g/ S
#15=#13- s! y$ I# W5 e: X$ r2 g4 f a4 t4 W
' D" q0 u0 _6 G5 {2 h1 T% fWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)7 e9 F }8 M, ^" ?
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
; L2 J$ V( l3 w, ~2 I' c+ }IF[#4 NE #0]GOTO1# f, Z# |; G; l5 G3 }
#15=#15-1.6 h; \; Z' O% ]5 p
END1) ?' _5 y' s+ e# Q8 y$ H' t
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)/ s. Y& b. L3 O y( S" @9 u3 x
#22=#2/#4) L1 S7 I) ]# t7 N6 @; S, e2 l
#5=#4*#11*#22(最小公倍數)7 w4 ?/ f- M3 K. O) q5 @4 q' c
M0
6 ?. y5 V0 B" [, L( ~# t
4 l( Z& p, y/ ?% D+ o2 KP.S
* d. c3 i( B$ X$ m! L我想把#11.#22和#5的式子簡化成$ s' s6 N8 Z+ z, e9 T9 D5 I( b+ R6 m/ {
#5=#4*[#1/#4]*[#2/#4], F, @# c! z4 M- P1 z% M, f1 ]
我又想把#11.#22和#5的式子簡化成% v- i: H& \1 ~
#5=#11*#22/#4 結束 4 w F* E6 K& b
|
|