|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
: ^" v( T1 S. U' O8 S9 ^; ]6 ^6 _2 a2 |: j2 ?/ U3 d
求最大公因數?
6 ]3 o$ P/ A- ?3 e) q/ z0 r求最小公倍數?
* e$ a( e: S' D3 n3 W
2 z; X7 a v) [2 l#1=45.* H9 d! b& I4 ^1 [6 Z+ G
#2=36.; B& S: e( V, i6 X7 R* p! i
把#1和#2的最大公因數投入#4
7 C. X$ s: f3 @$ X把#1和#2的最小公倍數投入#53 F }, @" g8 Z% K. z
' e0 o# K2 K0 X9 h
#1的因數有哪些:分別放在#101~
6 V9 Q: S# `$ y' C" e0 G5 c+ |" ^7 d#13=101.
8 w( B2 a: y0 f$ _1 u; U+ T#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
0 ^5 d% {7 ], P' O' d5 _/ v0 {WHILE[#15 LE FIX[#1/2.]]DO1" ]4 ?/ z; K( Z, ^+ ~/ n% s' C
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15$ q, ]: l3 T- k( @ q( j: K# |
#13=#13+1.
+ s& Q2 x' y1 N) u1 f* Q#15=#15+1.' R# q0 E, U3 l" Q V
END13 C7 l9 M/ z# N1 Z# Q
#[#13]=#1" z* Q& U3 ~+ A/ G: q$ c6 [7 G
#15=#13
) C7 O& Z0 C4 {# l
/ f# U$ s% G7 G8 k& pWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
- v) \% u& X. @IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]0 { T: o2 q+ |/ \, r
IF[#4 NE #0]GOTO1
! C% l3 T; g; R7 @, j& r& H9 o#15=#15-1.
2 x$ B5 m, m: j5 c5 O4 d9 |% |END1) B0 R4 Z$ q/ r3 ~# n
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)0 q" F( E5 [2 {8 g& V3 T+ t1 a6 J& a9 M
#22=#2/#4
; X0 m; C& _" K% W0 S* i6 `* o#5=#4*#11*#22(最小公倍數)
9 [6 I4 g& E, q& E' U+ DM0+ c% T( |2 j# a a. U7 }# o
! ^6 S9 `0 a, g' y! OP.S
; U) k) h+ Q0 a% x, p; }我想把#11.#22和#5的式子簡化成
# E+ k% l" N0 B- c#5=#4*[#1/#4]*[#2/#4]0 i$ r8 D6 d1 w; t: _; `
我又想把#11.#22和#5的式子簡化成
4 e3 `7 J& ?6 c3 u$ {#5=#11*#22/#4 結束 * h6 P7 |7 B! K4 Z' a) v# S7 p/ L
|
|