|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
/ k9 s4 o: V' ], i+ h3 ]
$ v" O8 Q! O k2 e8 F9 v% p求最大公因數？: L0 n) z3 N/ E5 v- h
求最小公倍數？
; s. W( y8 n7 T/ n& ~( _; r3 |# H6 k/ w
#1=45.' O) X/ S: M- G6 u3 v
#2=36.
: O0 a& t1 I/ _% I; m把#1和#2的最大公因數投入#4
6 T+ l3 }& Q# P) a把#1和#2的最小公倍數投入#5( z4 K% g9 }! X( y
3 q$ E+ J1 o8 q' O A( b
#1的因數有哪些：分別放在#101～
2 s" _3 d- o- C2 Z& T: H r#13=101.
. K1 |5 j3 q/ g5 I7 \#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
8 m7 k P0 w* Y% NWHILE[#15 LE FIX[#1/2.]]DO19 w/ ~) K6 [- t/ s: ~! x. q" l
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
& F; {6 j$ N/ Y( o( R- H#13=#13+1.
7 b9 `+ W! Z% j3 |#15=#15+1.9 h: M' X: P% J6 I
END1
9 l8 x" P/ o- S6 M#[#13]=#1
$ ~% j1 h) e2 @$ A8 [, L#15=#13
( b& J- _9 D, F0 {0 }
! ~8 J3 y! V8 j. d! P( uWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了): l/ N' R" m" w8 y
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
0 t$ }9 t2 S* _ cIF[#4 NE #0]GOTO11 @; Y5 b! c4 v
#15=#15-1.' J2 P: O6 u& ?% ~" M$ D. m
END1
' d, t) ?, `9 x o0 T, j& O& Z# yN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
" a* E/ _' g% k; i#22=#2/#4
6 k: ^8 I( N5 ^& m- q' l+ W7 U3 ]& L#5=#4*#11*#22(最小公倍數)
/ U/ E7 C) o, S# p& sM0
+ s- u2 ^% l2 V i2 w* x2 k. e" G" P
P.S
" {/ \4 S) A* B$ [% I2 ~& ]我想把#11.#22和#5的式子簡化成6 {( n, W# `' ~6 I- `- X5 O# O
#5=#4*[#1/#4]*[#2/#4]
@2 f: q0 u* t; t9 h3 {) V- Y& h! Q我又想把#11.#22和#5的式子簡化成6 U0 E [1 r/ R- D) X) |0 ~* M
#5=#11*#22/#4 結束 : P% z6 H) o2 ]5 L. J9 L* o
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
