|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 + {8 C# y+ G% ?7 ]; R
7 o/ `( r0 {3 d* w/ {求最大公因數？ L$ D4 i* I- G2 D1 k1 r+ s! e
求最小公倍數？& S8 I1 ?3 t) {$ i% S. Q$ \
* ]0 D3 y7 N4 v6 M
#1=45.+ j W5 U ?. T' k" l/ {
#2=36.
8 K0 W7 x$ }8 Z, ]% _2 Z把#1和#2的最大公因數投入#4
* {% T' q5 d. ?把#1和#2的最小公倍數投入#5; A$ P! g6 D% M
& v- U: n- V. w: o& t# L#1的因數有哪些：分別放在#101～1 ^( p \+ X3 g4 x) B
#13=101.
5 i- I2 U* J. G% T0 b6 E#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)2 e* Z: m) f4 B, E( _( y& O: n
WHILE[#15 LE FIX[#1/2.]]DO1) s' H/ I0 l0 h, e# u9 g
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
3 U5 w% x" P' l$ D#13=#13+1.* O4 x. p) |, Q. ^: t% G
#15=#15+1.8 k9 T' z, _0 |4 @3 ? ^
END19 l* f8 e& P- [7 n8 w
#[#13]=#1$ Z6 h( z. W" |* H# O! m2 [ z A
#15=#13
$ `- ~6 y0 {% m' d5 S% J3 [- ?6 D( Z* y% F
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)0 U. q6 i* \' ^& Y
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]: z; L9 S# }& L. Y+ L' m
IF[#4 NE #0]GOTO1/ L8 n/ k0 q* B& E. H
#15=#15-1.( }( _) l4 ~- G
END1
1 ?, C+ E" m3 r& l! M3 YN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號) K" A' s. ^6 D( W
#22=#2/#4
$ O% F1 i, y8 o- B* l#5=#4*#11*#22(最小公倍數)
: r! ~+ a. P' A- i8 [9 g7 XM0# Z7 h! o: Y( Q6 g; Y! C& x
0 A9 v: i& W: h7 z Q/ ~
P.S6 C* H6 z# r( K/ }0 I
我想把#11.#22和#5的式子簡化成0 K- b) k$ K. |/ p3 y
#5=#4*[#1/#4]*[#2/#4]
9 @/ e+ F+ C, e4 H我又想把#11.#22和#5的式子簡化成. K; b$ v2 L4 p, }, a% q
#5=#11*#22/#4 結束 ; N6 H" B, J/ W0 f$ N
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
