|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 c" h7 P6 N: D% k
4 a; @. |; b9 g# J4 n" K求最大公因數？; K$ ?/ G5 V/ H5 z7 X
求最小公倍數？
* O3 n! q7 v" [3 Y7 x1 K" Q
, G3 H0 u- D+ `6 w `#1=45.5 T2 U( \. E- [! O" J0 F2 z
#2=36.
0 I) f6 a1 ]7 X) k* T把#1和#2的最大公因數投入#4
/ R0 L- y( K0 M% W! n- B把#1和#2的最小公倍數投入#5, n7 G1 A. ?4 O6 k
" o$ u4 d% s, q/ S& \#1的因數有哪些：分別放在#101～# z* T- r. i: D S& J% A7 K
#13=101.
, t" o6 x5 @) H/ H( V#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)/ i9 f9 i$ a. B
WHILE[#15 LE FIX[#1/2.]]DO1% w) F2 x2 N6 k+ c/ O. w
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
; V/ Q9 Q0 Q# Q% _8 @#13=#13+1.
F$ s5 U* \, s2 c) A, u8 h#15=#15+1.
( w# @- c; _ t3 M& | ~* M" T. DEND1
5 B7 \3 ?: z/ f; i( G$ ~4 [* g6 ~. @#[#13]=#17 P4 j- b- X0 N* a* r4 [* B% }
#15=#13
. Q/ \$ E6 W4 I3 n* A% j
3 m8 V/ s6 }1 Y- M$ K' zWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
8 S% a6 n: K! fIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]- q7 q3 a& |5 z5 p/ S6 `# N' ?
IF[#4 NE #0]GOTO1
, L/ \3 d- T* F& `( K#15=#15-1.1 [1 Z+ [7 ? X7 F3 ~4 t: { U
END1
% T6 v: u9 E2 j+ }N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)- X& W5 T( c3 R D
#22=#2/#4( `3 t v4 ~1 o. N* g+ K/ e
#5=#4*#11*#22(最小公倍數)
: ~: R5 N" ~# m2 P7 nM0 V- A9 M! ^8 ^; o% d* i
[7 r' f& z/ M1 LP.S3 V) U( e& N5 D, t
我想把#11.#22和#5的式子簡化成
* c/ k' E1 ? V7 g#5=#4*[#1/#4]*[#2/#4]. Z+ m% `: P1 n2 y
我又想把#11.#22和#5的式子簡化成
( E: x& Z' m( I* ~7 G#5=#11*#22/#4 結束 - Y9 j$ T5 p* Y+ c: T9 r, S
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
