|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
/ N( p7 d; I5 e2 }2 G& E! v/ p4 g( E: T% \8 F" J3 Q& S1 |
求最大公因數? {0 M" V" E% V ~
求最小公倍數?
2 e: ^7 ^5 @' O2 A3 a8 m2 b; D
0 T1 D5 Y) y* j#1=45.
/ g% {# f; i3 z#2=36.
0 P7 J' O* X! d; B把#1和#2的最大公因數投入#46 l% ^4 L- l5 ]6 Y+ k- m0 s |, X5 E+ ]
把#1和#2的最小公倍數投入#5
! ^% D- ]2 j4 n K9 K; x/ ^4 n: h F. f+ j- J* n+ U8 m+ f$ a2 K- r
#1的因數有哪些:分別放在#101~
( \9 D; [- X5 S" e3 a, W# _#13=101.( w2 h- L* o U
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
; Q3 {6 ]# D, } h! J: F) @. aWHILE[#15 LE FIX[#1/2.]]DO1
/ B1 M/ s# ^9 V) vIF[#1 MOD #15 EQ0.]THEN #[#13]=#15% U; v% \& v# r
#13=#13+1.$ P! h! d* R, o% O
#15=#15+1.! R" h, V" ^- R) y+ X. Z
END1( C+ S, P3 t/ a. i% T a( I( u* w
#[#13]=#1
7 @! {4 W* g6 g' ~4 S. z, D6 i#15=#13: ^7 c1 B9 [6 i* Q9 t" y
% C' i6 _, a* v
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
. R. x. s: m" EIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
. f5 [! G3 z% YIF[#4 NE #0]GOTO1! N6 t3 {* c4 g5 I( s
#15=#15-1.
: ?( u' O* N( R3 GEND1
" e7 r0 m, v% bN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號), E2 f. o" s7 ^+ H9 h
#22=#2/#4. M* F/ p* C5 I" M
#5=#4*#11*#22(最小公倍數)
: Z+ d6 c& x( e% u/ T Z/ b. nM0
8 B+ W( ], o* Q' U z) d- Q# H7 X- _9 E, a" {
P.S
0 U V4 t/ b, p/ Y我想把#11.#22和#5的式子簡化成+ T9 u- y" ~* t. ~2 T7 b6 p+ F) w
#5=#4*[#1/#4]*[#2/#4]
* k& v8 E: C: `. W' M6 p我又想把#11.#22和#5的式子簡化成* R1 R5 ~" `& D) m
#5=#11*#22/#4 結束
" [0 C* R8 U8 W2 k2 B H% o |
|