|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ) ^( r8 O9 R8 M! r8 H- j7 |
/ {1 Z3 |6 N" C, T, b2 j求最大公因數？! @; ]* Q* R# B( X: \
求最小公倍數？. Q: G! W# s. f7 _' ~
* s1 k* {( _% q* Z( ]& G#1=45.
5 D% T0 D4 e f#2=36.9 X' A+ @. M4 h4 j( q
把#1和#2的最大公因數投入#4( e# ^$ Y# ?8 _$ M& G2 v# v/ E
把#1和#2的最小公倍數投入#5
) N0 [* l4 O+ ?0 X, V# w
, Z1 B$ O: [8 l+ }* W `6 }#1的因數有哪些：分別放在#101～
+ U: T" l( ?0 E* s; M1 ]#13=101.
, L0 P1 y$ y8 u+ z6 |( |#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
" L* L; j* L" p& ]1 LWHILE[#15 LE FIX[#1/2.]]DO1
+ f% p2 _0 k+ j0 U A- }IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
9 n4 v4 w+ D0 U1 n, C6 M: {#13=#13+1.2 M3 a- N, q. @7 M5 B! [* b
#15=#15+1.
) f4 t8 y$ u W& v2 _END13 r. j% |$ ?* Y5 Y7 _) A9 V# J
#[#13]=#1
; g- `! J3 _, k9 M. z- B5 V#15=#136 J) [- K+ ]8 r3 _/ j1 \
9 ?4 J- ^+ S; [2 a* `WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
+ o' P% w: K! ~; TIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
9 G& E5 W% q. p5 m/ {IF[#4 NE #0]GOTO17 _2 ]/ |& Q1 n' r, a
#15=#15-1.% u0 K3 C5 d) N2 M
END1; Y+ X3 G- {& ~' H6 D
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)# s' q+ ]) |9 r/ ?) ~5 R
#22=#2/#4
( d% C& F2 k7 l e) o8 p! V#5=#4*#11*#22(最小公倍數)) O. I3 j+ `& U- V1 y8 q( b
M0
/ b8 ?$ L l+ g7 L# K7 v: ~# g* ]/ E/ t0 X& f
P.S/ d, s8 d4 l. J- Z" k
我想把#11.#22和#5的式子簡化成
2 m- s) {5 w, n, D# v#5=#4*[#1/#4]*[#2/#4]
, V( V- L# b0 }9 J: C5 q8 l我又想把#11.#22和#5的式子簡化成
" j; T2 g/ M$ H#5=#11*#22/#4 結束 ) g8 w7 L6 K+ S. \4 g$ I
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
