|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
' ^6 b3 L: A& d3 [
6 x; ]/ d" H, K1 j1 h1 W求最大公因數？
. R$ b5 P/ O; r) p1 s6 b求最小公倍數？" A. U( s9 O# j/ k: r6 X; d: s
2 n) C' ~3 G, n* j+ Y8 q#1=45.6 f9 v l2 y6 O8 ^
#2=36.
; V' n0 |. P" P$ s( }9 A把#1和#2的最大公因數投入#4
" `3 Y0 B, n1 A$ [$ e把#1和#2的最小公倍數投入#58 i9 t+ i. _. z5 Z
7 K% ?6 \1 l: g7 U o
#1的因數有哪些：分別放在#101～* v" r0 o8 ]1 s! [4 g
#13=101.
, [' L; _8 r; p#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)8 Y/ X/ ?: Y# V
WHILE[#15 LE FIX[#1/2.]]DO1+ J( j3 B1 ^8 v
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
/ @1 p# Q; z' ~; ^7 J9 E#13=#13+1.
$ _1 S: ]" e; ^0 x- I#15=#15+1." i' M' E3 j6 ^5 z+ C/ y ^
END18 p1 S. r, y8 \4 p! O& N1 E9 W5 _
#[#13]=#1
8 N& T6 X* N9 f9 d+ w3 w0 F#15=#13! i) f& X: F# e
6 P5 g4 W" v4 j6 f' Y1 xWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
3 X: w4 p. A4 fIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]/ K$ f3 Z1 c8 X
IF[#4 NE #0]GOTO1! j' D8 y7 }. c
#15=#15-1., j) }, m+ ~9 d% M$ g0 n% ^/ V
END18 \7 _4 j, |6 V1 u1 l
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
9 k+ ]! J& u- L1 V#22=#2/#4
- v* I+ x2 N9 H8 B#5=#4*#11*#22(最小公倍數)
+ I {7 s/ i& `/ Q6 y& i- ]M0( M* H3 I+ X6 A( e9 n) g
, r) ]) r3 k* \7 x7 e. FP.S8 u! ^; L) n, G/ D4 w7 p& v
我想把#11.#22和#5的式子簡化成
3 X) y9 ], @3 o6 g. C4 o, N* C#5=#4*[#1/#4]*[#2/#4]) v0 q ]; _, v' A
我又想把#11.#22和#5的式子簡化成& Q1 ]( `: g" Z ~
#5=#11*#22/#4 結束 1 I9 X6 j: D, x
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
