|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ; Y* y' V! N0 P+ k: o6 H; H. P
0 S& ?; a+ ~" z( r) J
求最大公因數？
4 P, Q3 s4 c9 S$ H求最小公倍數？
: [7 N8 O3 W( W* p. h$ O" X) j8 M4 p! O% F, B
#1=45.
% b# ~8 A$ f t0 h4 o( y; ^8 q0 K9 S6 s#2=36.& N+ [/ E& b' v7 q3 Z
把#1和#2的最大公因數投入#42 g3 W. e7 ]5 }5 k% ]0 k. j
把#1和#2的最小公倍數投入#55 e& ?1 I' L% {2 r
/ }9 C# d. l0 x* l# a
#1的因數有哪些：分別放在#101～
* J' H' z# ^% [! L- L8 P$ C#13=101.
9 D6 M" }4 Z8 O" b- ~$ L#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)/ l* H- q. r4 n9 Z
WHILE[#15 LE FIX[#1/2.]]DO1: C/ P& J" K% L7 W* z
IF[#1 MOD #15 EQ0.]THEN #[#13]=#155 ?+ ^% F8 I! h- U) n
#13=#13+1.
& w2 j" w0 S6 @: O) P3 N5 r#15=#15+1.7 [* ^* x% T$ U# k, g0 l- }9 \
END1. c, |" j( f: }! Y' x
#[#13]=#1
4 y- u$ \; B' e/ Z( A#15=#130 j k9 B5 ~, T$ I z5 c
7 l7 F% n- b* }! p) M: b& f7 f
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
& X/ Z" i& k, v& @) j) m, ^IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
1 V) n8 h8 T/ H3 u9 G4 N: A$ ~8 DIF[#4 NE #0]GOTO19 W9 {. ?0 z B( Z4 C0 Q5 D3 [
#15=#15-1.
* U1 N1 T, ?" q/ gEND1
7 K! y' _; s. v. y0 }5 v) q8 t4 F* UN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)4 q2 u- t* _. p, a7 t- f
#22=#2/#4
" t( |, L5 {1 `3 D! @+ P#5=#4*#11*#22(最小公倍數)
) p2 {9 P; N$ P6 o/ ]; lM0
& a% I! S& \0 ?0 C
1 t1 d3 i, S+ J0 _7 I$ GP.S
4 b R6 Q* F0 e9 R# ?我想把#11.#22和#5的式子簡化成7 J. p. v1 R( H- }# T
#5=#4*[#1/#4]*[#2/#4]; ^2 C" z' e! q- m# k# j- x! F
我又想把#11.#22和#5的式子簡化成
$ S+ R$ U2 H1 {1 N! a, m#5=#11*#22/#4 結束 % C P! ^. d1 c
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
