|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯
2 ~/ G. f$ I8 r k- M1 s1 n" H/ p, x. ^; u( N( R4 E% }
求最大公因數？
( \- E P n c求最小公倍數？6 E/ F# @" N# V( r
5 ~+ F) m( X% z+ X7 D3 m, j#1=45.% `9 d; d) r7 |) a# O
#2=36.
: l" v% w. {9 V把#1和#2的最大公因數投入#4/ Q6 Q/ @% L- m; s, |
把#1和#2的最小公倍數投入#5! ^) E# R% d4 Z6 `* |
& X7 j/ k5 B& ?) y2 k* `
#1的因數有哪些：分別放在#101～( h1 ]/ f) T; r" z+ D
#13=101.' Z! b' O Z' [& Y
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
" d% ^' L2 R5 [# |& O$ QWHILE[#15 LE FIX[#1/2.]]DO1
( i/ [4 @- S9 \2 }IF[#1 MOD #15 EQ0.]THEN #[#13]=#150 x' h1 G1 E# _# X( D
#13=#13+1.& q8 b2 x0 _2 q; ]$ b5 \, s* `
#15=#15+1.
" z% K- Z, Z D9 G& M& ~6 g) `END1# L/ S9 p; r2 F' X3 c" _
#[#13]=#13 `+ v1 N) b! n9 \( [$ ]: Z
#15=#13# i% e) r( M# K: u$ [ a* ]
! a5 p1 n1 y4 U8 w% ^; HWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)* c0 Z3 A5 w2 Z0 d( U
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
$ {1 M1 i$ }- j; \" Z& P6 UIF[#4 NE #0]GOTO1
7 ~& l- B Z1 }( ?6 Q6 i" x#15=#15-1.6 ? C" P4 }. I
END1; T$ k; M; O) q$ ]
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
+ R/ J/ |! y+ p( d4 |#22=#2/#4! R, X4 N) r/ _% V( @& E4 J0 P
#5=#4*#11*#22(最小公倍數)! a; ]1 |8 ?" h: `
M0* }( P+ s3 H% n8 E
1 m3 z) ]9 w) r+ S& G
P.S
1 ]# l* T/ H; D% [! d1 v u我想把#11.#22和#5的式子簡化成
# X6 U9 d& s! p$ s7 `0 K/ f0 `7 G; H#5=#4*[#1/#4]*[#2/#4]
* z8 v4 ~+ C9 \" Y$ E我又想把#11.#22和#5的式子簡化成5 M3 }5 L5 v" {/ G
#5=#11*#22/#4 結束 9 n! V% }6 L% `$ y% O: O8 M, d# R! J
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2013-2-26 21:19:24
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
