|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 , t9 }; C- ~: ~, T$ o& s" m
! B9 t: O" i _求最大公因數?
4 h9 Z9 v+ Q. i' }( m求最小公倍數?+ s; l8 E: s" j) U
2 ~5 ]+ f; C' G: ?7 {( @6 E% e& |
#1=45.& q! ^2 Q8 H. A
#2=36.0 b1 v' Q; C7 V
把#1和#2的最大公因數投入#4 y' F, Q3 e( ?+ y; l3 |
把#1和#2的最小公倍數投入#5
& l" T \8 y( h$ C! |$ a
' P+ {& _# u u8 e#1的因數有哪些:分別放在#101~
/ M, R+ j7 S- P. u; _#13=101.
7 D0 T! E8 q! S#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
0 y! }2 h6 g; W# A8 p2 T$ G/ f- WWHILE[#15 LE FIX[#1/2.]]DO1' T9 w0 K K4 W6 I) \1 e
IF[#1 MOD #15 EQ0.]THEN #[#13]=#152 |) N2 F/ R6 c' D
#13=#13+1.
- K/ B+ O5 W9 a% L7 L#15=#15+1.
; [' ~ _* n# ~- eEND1
9 m9 I9 {9 m" ^6 k" [! F0 w x#[#13]=#1
3 {. J% H) b/ O7 n s9 b+ f#15=#13
. y. A! n$ N- Z. r! U
% A3 Q, w, T+ a/ B$ p6 G2 lWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)) @# c5 w5 Z% l0 Y- ~% k# W+ Z
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]& z$ i+ T) K8 ^. b
IF[#4 NE #0]GOTO1/ g7 z; c# S: e0 J7 B7 ]9 U
#15=#15-1.
. [* v; D/ O a$ r- z, PEND1
% C% m+ C' w6 b7 J% [* |) |N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)& t* E1 K! _( B& J% g
#22=#2/#4
; i/ B* ]+ W' @7 ^6 C#5=#4*#11*#22(最小公倍數)
A9 h5 n3 T1 FM03 o# s6 M# G" U+ m" d, J
+ i, ]- v" ?9 d( {# p6 ~P.S
& q% F& k8 [/ w& o# B# {" a我想把#11.#22和#5的式子簡化成
/ m: i" f8 f/ A6 d/ }/ e- o#5=#4*[#1/#4]*[#2/#4]
& ~7 ~2 \2 N6 u. D9 W我又想把#11.#22和#5的式子簡化成
; i3 y2 o9 \# ?" L# B$ d" T& |3 i#5=#11*#22/#4 結束
: i% y3 j8 P6 n% c& q |
|