|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 : c4 \ @5 T8 n9 c" }! ~
; D& y5 `' _+ n& D
求最大公因數?
* n: q; l$ c' }8 |& x+ C4 e0 [求最小公倍數?* R/ L/ n9 [. C6 R8 x S) |
; X0 J$ ]; O e. Z9 R3 S$ v#1=45.
+ @# S# Z T2 V) Z @4 u#2=36./ y3 A. p: y8 T o5 i
把#1和#2的最大公因數投入#4
( ^' v8 M' |' k" c$ O把#1和#2的最小公倍數投入#5
! A- a) G7 c" K+ k3 Q
) j$ I4 I& }) }- X$ o$ J* N4 l#1的因數有哪些:分別放在#101~4 O1 E& C; E7 N& G9 S5 S
#13=101.
7 w/ K% Z4 G( c. ~#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
9 U) M7 \7 v; h& A# lWHILE[#15 LE FIX[#1/2.]]DO1
$ k$ N$ r2 t8 w0 N7 cIF[#1 MOD #15 EQ0.]THEN #[#13]=#153 L+ S+ y* l0 R6 r2 J7 T+ O
#13=#13+1.
! ]& o3 F/ U0 n2 d6 K) F, f3 M#15=#15+1.4 j. p! R6 l* ]: ^7 d( @) F
END1
: w) s3 D7 b9 f1 d3 c1 t3 [9 o( d& @1 i#[#13]=#10 W% U8 g1 B/ z6 q$ I( J
#15=#130 X- m$ n5 H# ?* U; U* K
+ c$ Z* N d* ]2 L. F
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
6 a- L8 B8 q7 u3 d* aIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]+ W+ q0 Z3 \4 d% B) {+ ] v9 P) C9 J
IF[#4 NE #0]GOTO1
+ k. W$ U4 l/ c3 d( b# i#15=#15-1.
5 S9 Q0 g& m/ f4 }& {# EEND1; m1 ?6 H) p5 b) I( X* }' H% b
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)) H) k- \, M4 y( t& A8 C" X: ~
#22=#2/#4
! K1 C- C z& |5 J- N6 f' i8 F#5=#4*#11*#22(最小公倍數)
/ y4 l5 V5 x9 M- Z' B6 RM0
. p. N) x1 @, p. D1 Y7 O& z/ u: ]( e; ]
P.S. S3 s4 E: K+ n/ j, i& v3 h
我想把#11.#22和#5的式子簡化成: j6 X& U6 Y, Q9 E+ T c4 J$ U. _) D
#5=#4*[#1/#4]*[#2/#4]
u2 @7 c1 A L7 U/ @( v' A我又想把#11.#22和#5的式子簡化成1 f) N! g& J8 O# }: a5 ^
#5=#11*#22/#4 結束 + L9 @4 V A9 O3 I3 T
|
|