|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 . q/ o5 J. I% P, `5 ?3 P9 B
; c1 k0 \; q5 h1 N, C6 \
求最大公因數？
2 o4 m6 C8 q4 o1 L& h" {求最小公倍數？
# [+ ^1 c. Z. C" e1 t) M7 v( J. U% x$ y1 r: y1 }
#1=45.
) l* f: Y) H: P1 u8 m* G#2=36.
4 A- X6 C4 t4 ^0 ~1 g& H3 L' R) I把#1和#2的最大公因數投入#4
* k. X* @7 B# Y" E e/ c/ h, I把#1和#2的最小公倍數投入#5
" D6 f3 k) D" _5 c( W3 K8 g) ]% A+ m7 x
#1的因數有哪些：分別放在#101～. q" U9 h y( b- Q; ]* N8 t
#13=101.
0 S& p. A3 p# I! }#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
# Y- {" |1 e- F oWHILE[#15 LE FIX[#1/2.]]DO1 B" e R- X6 g/ Z
IF[#1 MOD #15 EQ0.]THEN #[#13]=#153 l7 q7 w* D4 X$ g
#13=#13+1.% g+ I- Q# l: o: d
#15=#15+1.
: |2 `2 Y$ L$ z! F kEND1; i |- [& R- q2 u- m" F. j! b
#[#13]=#1
4 {* I6 c# l" ?0 `- Q- d z+ p% ~. j#15=#13, B/ m$ }# ]0 w# ?( d) C2 G
3 S0 n8 D% U; L# tWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
/ _; x8 c% k1 {; k2 IIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
3 Y8 r6 t9 ^0 y, y. S% C, EIF[#4 NE #0]GOTO1
7 V* \0 W% Y1 D; N#15=#15-1., Y3 I4 j9 D- \, V/ t& e
END1
m( I+ e/ X9 d: vN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
$ R% p1 ^% M8 E5 s0 N' U) }5 D#22=#2/#4
l& ^- |% n+ z, o, p0 ^" s#5=#4*#11*#22(最小公倍數)
0 h) L; \ r; s$ ^0 f4 X) IM01 E1 F3 O# n8 ?5 w% I" E
) S' h. u1 ~+ n2 V1 }2 `
P.S/ ?/ i& b* y; y' ^% |/ T
我想把#11.#22和#5的式子簡化成
+ e1 B" o- ?0 C4 ^#5=#4*[#1/#4]*[#2/#4]$ \4 J9 B6 D: x3 Y* n: h
我又想把#11.#22和#5的式子簡化成
# \+ W1 v- S7 |. E#5=#11*#22/#4 結束
8 [" v I; p; J Y8 s |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
