|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
2 {8 X+ ~5 Z1 E/ `! r4 |6 I
2 t2 H5 C; x* e- t3 ?& a4 B- J求最大公因數？" j3 ?7 c h* L
求最小公倍數？
+ U. o* g( f6 e0 _+ H0 T; ~" c) }: D k
#1=45.8 w% R: E H. u- G$ D, f2 n5 H
#2=36.
) b/ X. U/ k7 i% Z把#1和#2的最大公因數投入#4
/ }, L, J: j- r9 h6 r) j; O& }: Q把#1和#2的最小公倍數投入#5
/ D! I" [. D2 `9 ^. c* r9 T+ q- ^# G1 W: R" w
#1的因數有哪些：分別放在#101～
0 C7 _! D2 `. n8 r#13=101., I" C8 t4 l: q+ x
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)1 \4 j- y, y p; w' T$ N' c
WHILE[#15 LE FIX[#1/2.]]DO1+ _: v5 q s% j8 \) g) {
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15; }) J/ y3 z6 V# ?6 _& p# F* M
#13=#13+1.
4 j. g5 w+ E4 J' B4 a+ M. v O#15=#15+1.
9 [' M7 q& d5 k# h: N! V- OEND1
( l+ F) y$ `& S1 g* y#[#13]=#12 [6 i' H8 A6 n7 K+ y
#15=#133 C9 k3 d9 v4 j
?0 G- ?4 Q# Q- W! S0 RWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了) h/ ]' \- \7 o) C. m: K
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]4 y! E' R) x$ ?4 T: O) I, k
IF[#4 NE #0]GOTO1$ V4 D( |; e& `* r/ A7 z0 t4 {! ^
#15=#15-1.
4 o# h( A- E/ L* M2 F2 IEND1
3 h: Z1 ?9 J `3 }( V1 SN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)1 X4 l0 M3 I0 L; ^+ S8 Y0 [, l
#22=#2/#4& O7 A% l" N' r3 A! r
#5=#4*#11*#22(最小公倍數)0 S+ ^. g8 |. q- {( e
M01 j) E+ P4 r" ~
* }+ N$ r* c/ H7 T! {- vP.S
3 S( B% o5 @: P' D/ t我想把#11.#22和#5的式子簡化成8 B. h- {: Z9 w6 }, r* B
#5=#4*[#1/#4]*[#2/#4]. {& Q& Y0 P8 s$ _3 N0 ^. B+ _9 e
我又想把#11.#22和#5的式子簡化成
2 N; ?' Y# Q2 M#5=#11*#22/#4 結束
) {5 p! R6 U( }: g( E |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
