|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 $ S1 j# i3 _* `8 [' |) ?3 q6 \0 c
) g5 Z7 x* H6 ~* c/ d9 y6 F
求最大公因數?
" G" r# m ? w$ ]1 r# G* x求最小公倍數?" E v6 l9 F1 o% B+ h' S
$ l. q" |' \- o+ f/ {- P- B. c
#1=45. g* E g; {2 w9 c
#2=36.
) q! P( O7 O; C0 t' o/ _8 u把#1和#2的最大公因數投入#4
. Q/ z1 B# p* A8 m" a" M, s# f把#1和#2的最小公倍數投入#5
1 U; S% d3 D; b+ y6 y0 g/ J5 V. n! P0 V
#1的因數有哪些:分別放在#101~/ P- m- q9 o0 G! G* [- d. j: P) P
#13=101.0 x) ^* ~* k! }' o) ?. v+ u5 h
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)# f; l6 I b! F* j5 f2 F
WHILE[#15 LE FIX[#1/2.]]DO1
" l0 \6 n, Q, v4 oIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
6 _7 ]( q9 |7 l* A2 x4 w#13=#13+1.+ K6 g- X: J- }5 e
#15=#15+1.
8 m+ |6 L# I- s7 s- X( T+ u1 T" }END12 h- j8 D! a3 H Z7 J. F
#[#13]=#1
& F. s: C8 a. j; y/ t; O& j8 y#15=#13# _, O. a4 D7 C! f# x1 X! J1 T" ?
- e/ u1 |2 `4 U; `5 y: U, g6 A! ~WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
, w! {8 g) i4 \7 i. \# s7 XIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
7 \4 }7 o: X6 F2 c: A4 `IF[#4 NE #0]GOTO1
6 W R' Y9 T! e) Q/ j' F% j9 x#15=#15-1.- g, i9 x; c$ E. ~
END1
# W) m, V3 Y4 w4 `, L# HN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)/ m3 U- C0 T+ ^" ?
#22=#2/#4 \- N4 E+ Z) c& z1 K, _/ `9 u. f8 m
#5=#4*#11*#22(最小公倍數)) d, w) u N. N! d* ` b( H. ^
M0
" H$ e2 ^* X3 Y8 I [7 E2 J; j6 q
P.S
5 o+ L8 i2 {) F% f# {/ O我想把#11.#22和#5的式子簡化成- ]: |1 C4 [8 N' G
#5=#4*[#1/#4]*[#2/#4]
( U( s g2 ?- J0 y; A我又想把#11.#22和#5的式子簡化成
. P2 V, z* d( p4 b/ |3 q y#5=#11*#22/#4 結束
3 z8 q+ C" c0 j, e8 \( K2 x( ~ |
|