|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
; j [3 t- e" s% q4 a) |, O. P! m6 B- Z' F& R9 B' I2 t
求最大公因數？
2 I7 [7 e2 b) L0 \/ e6 j8 R* w求最小公倍數？8 L( Z+ l* C' \0 C, u
/ d6 A- N; ?* N) a#1=45.
& _5 V( f. z4 L7 C: ]2 U! x#2=36.
' q( k" n& {8 |4 ?, G把#1和#2的最大公因數投入#4
; s2 t, {, N: s) S/ \把#1和#2的最小公倍數投入#5
# O/ E; n) j4 Q' d: [4 P
) f1 N' b! X+ p( Z1 h' j#1的因數有哪些：分別放在#101～% ?* E* z. [* z; q
#13=101.
2 @0 n d: C4 x6 U" A3 p+ s#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)" j: N w( c6 V
WHILE[#15 LE FIX[#1/2.]]DO1
; g+ T9 J7 B5 g. NIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
+ [0 V/ @ d3 _+ N#13=#13+1.: c' w3 K6 k& l8 U
#15=#15+1.: i/ J! w0 O( I. \8 @- E; ?
END1
( s# g/ j. P- Q+ W#[#13]=#10 x* K1 C) G- Q# i
#15=#13
- X! \1 ]% d- O4 x2 A& \; w! H$ m: g8 d3 A0 ^8 b
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
. {# b* q5 T' @) q0 j! lIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
( D( J6 [: H; g( W9 e/ JIF[#4 NE #0]GOTO1* z [. k. a* M, r) o6 b
#15=#15-1.: g5 W2 [1 @* I9 N s
END12 w+ r1 N, G8 K f8 z/ p: S8 @
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
/ {4 G5 c+ P1 r; i% H$ i' W0 a#22=#2/#47 V: o5 [4 ^0 W/ ?% l( L
#5=#4*#11*#22(最小公倍數)& f% Z9 S4 r+ D3 k
M0
* V8 m- E7 E' M# m# R
- E4 [* v5 f, u" U( H+ J9 o U# hP.S
" T% G3 q: @& b& L我想把#11.#22和#5的式子簡化成. j) A: x1 x9 c/ y4 f
#5=#4*[#1/#4]*[#2/#4]
. p7 m* F# _& v. V& u8 ?' A5 Y% F我又想把#11.#22和#5的式子簡化成$ A8 {) K1 u P% N$ P; T; p
#5=#11*#22/#4 結束 6 |% h' y* l" g t6 a5 F3 A
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
