|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
2 w2 \, R. H% v7 c8 B( T7 R# C
. h2 i% }9 ~$ o' B- _, M& i$ c求最大公因數？
3 `* a1 E4 H9 ]" G- \- y+ u8 N求最小公倍數？/ `# w5 a; h4 B* d4 P
" Y; R: K, q7 \! P# b
#1=45." {+ A& r- q0 H7 ?
#2=36.
& O- t+ H0 B7 }, L1 ]; F把#1和#2的最大公因數投入#4
) T4 V7 q. n: c( C% g6 C0 w# o把#1和#2的最小公倍數投入#5
1 L. b3 o6 J( _8 C/ i
3 p0 X7 }/ G" M#1的因數有哪些：分別放在#101～
3 j2 B9 q9 W7 ~/ Y#13=101.
8 v8 l2 U- q0 d) s' ^6 @! h#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)- @6 d3 D8 ^2 A% O3 \3 Z5 L
WHILE[#15 LE FIX[#1/2.]]DO1
/ `' S: _8 C5 v4 @2 T( WIF[#1 MOD #15 EQ0.]THEN #[#13]=#150 P" r. ~! p: X( M1 [
#13=#13+1.) C- q% O7 ]: f. B6 r$ a4 o
#15=#15+1.
, ]% _& B; C G) q4 CEND1% g2 s, ^- w- [% W1 d/ R
#[#13]=#19 x8 _& B& n2 I6 z0 z2 f
#15=#13
& W8 U! N# s8 L0 `% G/ |1 P G9 n# _- A. s' E" c
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
7 H5 w3 Y/ j& F) q2 pIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
1 n# ], e; t$ Y# ` w ]1 TIF[#4 NE #0]GOTO1
& w' {/ R: ^" C- c+ N! S1 W#15=#15-1.
. H s4 v) S- j" _& sEND1
# T- L& S' Z2 |* ^" {% N$ I" A# _0 E! C' eN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)8 o; U2 Z5 x. a4 g! L3 q: [
#22=#2/#4
( |6 U4 Z3 `- ?" G3 |. J#5=#4*#11*#22(最小公倍數)6 W, R0 D4 K/ A
M0
" q+ S1 r; _( o1 m( Y
. S& F# Y" @' v7 E7 i# M3 }P.S( t6 S, H% S1 V' S2 D
我想把#11.#22和#5的式子簡化成8 _' R- O0 s2 N$ X: T3 _
#5=#4*[#1/#4]*[#2/#4]2 V7 f! r. S6 ^1 o4 d. P4 @4 u5 m: ?& M
我又想把#11.#22和#5的式子簡化成8 r# k1 m* a% x+ I/ n7 z" d) {
#5=#11*#22/#4 結束 * w5 f* y) h" Y! Z+ h6 j7 M6 b
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
