|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
, R7 O9 |. U6 `& f
. W0 U; P |. o5 _求最大公因數？
& d. P+ T" [; E, n. \. |/ i求最小公倍數？
e) g# X/ T* h$ O1 s0 h% ?6 Y- `7 E. M) h$ N- [( S* o
#1=45.9 Y7 F2 |4 z6 g# _' G
#2=36.; F: l' g; H0 m* I# ^# } n
把#1和#2的最大公因數投入#4
/ z( S" e' q. E4 C把#1和#2的最小公倍數投入#5) V6 f. u( Y2 ]) V# E' O
* D; e3 f4 @* Y$ O. L9 p+ a8 x" _#1的因數有哪些：分別放在#101～
2 a# k0 j! W0 e8 M. R7 E8 O# u! t#13=101.! A; N, \+ f0 u) q1 ]" g& N
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～) m8 [5 P: c. g4 D: ?! l
WHILE[#15 LE FIX[#1/2.]]DO1
1 ^6 c+ [; {; e7 F$ @- gIF[#1 MOD #15 EQ0.]THEN #[#13]=#15! a Y3 w" S( Y
#13=#13+1.8 j7 V( J4 B% P" g
#15=#15+1.5 A. L7 ~3 l( O' _, ^
END14 n: F4 \3 p% o
#[#13]=#1$ }" I v( a7 X5 B4 s
#15=#13
5 e( E# U6 R( @7 i% }, U+ ~) e+ I$ _; l$ ~' V! S- n% W8 R
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)- G" b. p. c# U- x2 P/ j a0 |
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
# x4 l {% {7 a7 E' X, r @IF[#4 NE #0]GOTO1
4 L- A& D. Q$ [8 L#15=#15-1.
- m1 e0 x k6 x# J k+ FEND13 i+ o% C _! x* A& t' O) K0 ? q
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)7 r% s3 a- o4 U7 F$ E1 k
#22=#2/#4& ~" \& P& H! s3 e7 D+ Z
#5=#4*#11*#22(最小公倍數)
/ n# d/ i' G# E$ FM0 A: a) B7 p/ x% p( m9 X7 ~! ^1 P
0 F; x# J$ e9 ~# ?7 N# aP.S5 e5 D2 V. U& a7 D4 d' C4 L6 d
我想把#11.#22和#5的式子簡化成
& @5 P. v- w& _' @#5=#4*[#1/#4]*[#2/#4]
3 A+ d& }$ U) j5 X0 O/ S& n我又想把#11.#22和#5的式子簡化成
+ N, a" f" o" p$ n#5=#11*#22/#4 結束 " ?7 i" \; ~/ | K: _$ g9 H
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
