|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯 $ I" K8 j+ }! L; J1 t0 p
1 _% Y+ W, C, U4 E9 D. N
求最大公因數?6 Z+ s, Y! Z) l; j, i3 f- Y( C* y
求最小公倍數?
! E0 |9 }: |1 x% z; _
2 I, k4 `8 j. @2 X#1=45.1 x/ [- o) c% Q* I$ L
#2=36.8 j9 }% \$ F+ F- S& ?3 m" d" J
把#1和#2的最大公因數投入#4
/ F0 ?" A9 [% f8 e2 G" T1 t把#1和#2的最小公倍數投入#58 H- _: d% b8 Q& b/ D: w( Z
" H5 B; ?# H; T& o#1的因數有哪些:分別放在#101~- D' V* j' |# l& b( ?) S3 M; ^9 X
#13=101.! O- h, M9 R2 E8 F" ]4 m) q5 T: V# Z% y
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~) T; N! k# R8 e l) H6 R
WHILE[#15 LE FIX[#1/2.]]DO1" Q* M D. F$ s+ F+ c$ q, M+ V
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15- X& l3 P6 o9 O8 w7 D' r! \$ U5 t
#13=#13+1.( X5 k8 `. O; \2 }) R5 P
#15=#15+1.
$ e* Y/ x) \/ [( D+ C; yEND15 F3 y# A: M4 G! G" I* ~' |/ f
#[#13]=#1# m1 H8 x# N2 q
#15=#132 u7 B; G8 i6 |& N8 [/ A! w
' h. {% i+ Q" O; U F7 ~
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
, q+ I. j0 W, t; @. S" R. KIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]4 U5 U0 v3 K! G/ A" D
IF[#4 NE #0]GOTO16 v9 b8 a2 I- H3 U+ j! R1 T4 q9 Y- D6 B
#15=#15-1.: D# }5 k! x% }# |# d9 a
END1
8 H3 A2 Q' K; r, Q7 C$ D6 ?. cN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號); X$ y3 p3 u- Z( `1 v
#22=#2/#4& h; L: a2 N7 K* T
#5=#4*#11*#22(最小公倍數)9 t# M! b" h% U! z2 E. T* {5 ~
M0
: C8 y3 w# V! H& M, W3 G
* I* |* W L# s7 cP.S
" f$ S& ~7 K% G) h我想把#11.#22和#5的式子簡化成
- }2 C" m2 o% e3 o#5=#4*[#1/#4]*[#2/#4]
" ^0 Q" e/ z4 J: x& C3 _我又想把#11.#22和#5的式子簡化成
! }) R' G" R0 ^ ?4 H#5=#11*#22/#4 結束
8 o8 k4 {* c- x* J |
|