|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
7 _5 @- a9 O5 W( M+ A1 |8 k( W5 ~6 `+ c! E2 C1 r, v4 _
求最大公因數?
+ [2 j8 \/ k2 r' A+ w0 w求最小公倍數?
% m; @# j3 T1 l5 U4 l
6 @8 n( Y' W7 Y7 M4 ]#1=45.
8 q4 v* J# |3 I' C; y2 G#2=36.8 P( I% e2 V+ i% D0 G
把#1和#2的最大公因數投入#4% W& _3 M5 \7 Z0 l
把#1和#2的最小公倍數投入#5' S3 v; a3 {8 o$ h
7 Z" c9 I2 |7 j2 E! E
#1的因數有哪些:分別放在#101~4 w8 [4 m& S9 L1 ~0 N- D/ j
#13=101.
8 G2 b2 u' O: p+ ]#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)) Z F4 I0 Z& c- V2 Q
WHILE[#15 LE FIX[#1/2.]]DO1
6 Y b7 X M3 [: c* PIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
# d3 r+ _/ K" O* h- ^" y#13=#13+1.
5 h. M* Z5 s) o1 _( _#15=#15+1.3 q+ E# Y4 Q3 I8 B$ @4 E
END19 N: M8 b. l* [8 c
#[#13]=#1) K$ a8 O. K2 F3 Z0 v/ U7 q* E7 E9 s
#15=#13
6 N! L7 k/ \( J$ j* l ^: |7 {
4 k; n% y7 u6 {' Z- E" C" d5 XWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
, u4 r. I6 g& D0 Y* W: UIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]5 u7 V1 `& @: l* r p9 X
IF[#4 NE #0]GOTO12 H" [' h" M3 t2 }4 }: R9 Y& Q! w
#15=#15-1.% {2 u3 c& |! \" ~+ y
END11 F/ O: d& U% j v
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)$ i- m( ?6 ^* f+ y* E! S. y
#22=#2/#4) V" F' ?$ b; s: S$ u! D
#5=#4*#11*#22(最小公倍數)- C& u0 ?7 k. A; ?0 e1 y" t2 ~' m! W
M0# ]* x! e# R( ]% ~
2 J; v0 G5 K- e) F( D7 y, A
P.S
, B+ G8 ]* ~+ u3 x" ~0 p我想把#11.#22和#5的式子簡化成
3 E1 b0 v, ~+ T( g( K% ~#5=#4*[#1/#4]*[#2/#4]
$ m6 ?) J) j* p' a我又想把#11.#22和#5的式子簡化成
1 I3 u4 M4 p) n#5=#11*#22/#4 結束 ! @' K2 w3 `0 F8 t0 `6 e5 n
|
|