|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 % `, w1 w, B3 H9 ], H2 _ C7 b9 {
, q; Q! B7 B+ W
求最大公因數?- {& D& T" m7 ^ n
求最小公倍數?3 W; ^9 X* Q# `, I5 h
3 P. _* ~1 N7 Z- V: R4 k
#1=45.( j! ?7 ?, }8 b$ B2 J+ m0 d$ M
#2=36.
1 G( U( o* _1 M4 p把#1和#2的最大公因數投入#44 D2 i4 j6 `! o6 [3 b v5 Q
把#1和#2的最小公倍數投入#5
: a# a. _1 y* [9 X5 ?
$ K8 `' C4 j3 @; a$ ]" v' z#1的因數有哪些:分別放在#101~
! X7 q; K1 _; j#13=101.
: l8 U6 Q% Q ^, ^ Z2 n! d/ i4 i#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)( K. v8 j- J! e, `7 k) I* ~, \' M
WHILE[#15 LE FIX[#1/2.]]DO1
. w/ E1 T5 `+ j. s1 r' j2 {) iIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
4 L) p8 ~' S7 i; K#13=#13+1.
2 r& I% j; r4 h2 K" b#15=#15+1.2 }2 Q7 y; g8 ?7 B. ?# X
END1+ |3 ~0 t3 d; T A# W2 P6 m
#[#13]=#1! H4 v: C+ ?! i- n/ w: i3 T
#15=#13
' g6 I$ a) S% a! }# A6 }
" @0 T6 s6 l) `WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
; ]& n8 i4 Y' GIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
, n. Q" i. H9 K9 I. nIF[#4 NE #0]GOTO11 C/ n5 K# d: F) s1 d" p+ C
#15=#15-1.$ l3 I# h$ ~" M L
END14 g, K( B1 L! s
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)& K/ e; [4 S$ c- @* v7 r" Q
#22=#2/#4
9 t, `" L# O5 p#5=#4*#11*#22(最小公倍數)1 N: ^, l' t) G" Z; Y8 `+ Z
M06 S8 l% u9 w A" y" f
0 W6 p7 @0 v" C( w
P.S8 Z% F8 ~4 I5 v: G
我想把#11.#22和#5的式子簡化成6 M9 l* b( m a6 x) ]
#5=#4*[#1/#4]*[#2/#4]8 U2 _8 P) A- T L/ [' [
我又想把#11.#22和#5的式子簡化成2 s: E" ~ x' J4 g8 F; G
#5=#11*#22/#4 結束
% g1 f: l; `. w" ^2 U+ m) ^ |
|