|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
5 R7 ]% z# [* F& ]2 X% {& Y5 E% p" k" L, O8 y6 j, U- B
求最大公因數？
, ], V1 k" {/ U3 F5 ^, J求最小公倍數？
0 A1 ~$ u" |- ^8 B$ Y+ L
y5 q. O! L% u' V6 F( R7 n#1=45.
- s2 U' B; _- I4 S. H#2=36.
% e( ]- } p% \把#1和#2的最大公因數投入#40 c# S1 P6 h& |7 T% S/ D% z
把#1和#2的最小公倍數投入#5
J7 V, k* |: p) J" W. N" C) x) ]: H
#1的因數有哪些：分別放在#101～ f1 [2 V: g3 B1 l/ A, _ ]# j+ B
#13=101.! g$ w1 f$ |5 ^5 g3 o( i( \ q
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)( q. {0 L) O- m1 W7 \
WHILE[#15 LE FIX[#1/2.]]DO11 D6 g6 J% N8 } r) h+ o9 I
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15! q4 |: V$ [$ D( T: {4 n
#13=#13+1.
. P+ u* f. Y9 w* u( n#15=#15+1.. S/ A2 e- a# M0 V$ T' E) K
END18 m- l: Y7 l* ?+ @7 _; C
#[#13]=#17 N0 J( ]6 q# u* \, q
#15=#13
1 T& O9 h4 Y+ o9 k4 \/ w/ O( D2 u' t3 s4 @* S8 t
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
' c* I! s' C$ S' R8 y8 C1 p( gIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
6 Q& J4 b4 U0 nIF[#4 NE #0]GOTO1& [# J4 @$ l2 |) x1 O
#15=#15-1.$ @5 u7 ]! j% B4 T2 k8 ~3 u* u
END1
2 ? ]0 K! z6 ?+ \5 H VN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)3 g6 R9 X8 Z1 Y/ f( i- J' g4 H
#22=#2/#47 j9 s. a. M& r- @& L, Y" R/ }
#5=#4*#11*#22(最小公倍數)- s* ^ A( `' j \6 J
M0
: |6 f" S2 E) _" R
- s# v9 H& S1 y4 B* j! ZP.S
% B2 e3 E5 {+ p2 R5 C( I我想把#11.#22和#5的式子簡化成, P5 @; u* ?9 f9 B: a# {4 }8 ]8 [
#5=#4*[#1/#4]*[#2/#4]
1 d, Q3 S" N3 H# F. @; h6 \( a我又想把#11.#22和#5的式子簡化成1 k, ^4 @5 S: ]1 H
#5=#11*#22/#4 結束 4 C W- V: m$ `7 I3 J
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
