|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 6 E# h* E( S% s& O0 k& k/ f _
8 ^$ @1 w* U& `
求最大公因數？
/ Q b& u! h/ S求最小公倍數？: Q- @) T+ r; k) G0 N. W; W
9 d( r% l2 [; F: B" g; e
#1=45.
- Q, d; C& d% _& k8 G- u#2=36.4 |! F+ d7 S# A& A
把#1和#2的最大公因數投入#4
; S# m) R, Y* ~, H把#1和#2的最小公倍數投入#5& z* y+ a7 n( b
% ?3 j' O3 E8 G- q" |) ?
#1的因數有哪些：分別放在#101～: w( b e) K3 S
#13=101.
; V/ Y4 s5 k/ l; Z' I/ l/ i* P#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～), V8 t) M# A6 ^/ e
WHILE[#15 LE FIX[#1/2.]]DO1- X0 g4 U+ e' G
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15% E, D8 ~0 Q/ A
#13=#13+1.5 C) b: t" L/ M% z2 o
#15=#15+1.: `' v( _& e( X. O! G
END1+ z/ j1 G: k$ M& ?- |
#[#13]=#1' L( ^, I. B2 ^& u
#15=#136 X; W3 I+ [1 ]% \$ M- e
) k4 I, }+ A5 i3 ~; W' c G0 |
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
' s6 u: K4 \! p5 w1 xIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
1 |( d7 k! m7 dIF[#4 NE #0]GOTO1+ K. e5 S$ v0 ?6 N! [! `0 m) X
#15=#15-1.3 H4 ?, X6 c$ T( n
END1) Z& [. |3 r+ E- [
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)* T5 f6 ?. d9 S' T3 n
#22=#2/#49 W5 }0 z: |# {/ E; a+ R
#5=#4*#11*#22(最小公倍數)
4 \; x9 }2 v0 z- S, m4 zM0' Q- u1 Y# o$ q7 j7 P0 J
- i3 h" e/ b! R vP.S
$ A+ K F5 |' Z: ]* q我想把#11.#22和#5的式子簡化成1 s/ X2 [5 f3 u/ a. x
#5=#4*[#1/#4]*[#2/#4]
0 l y' Y& Q( B' H( b/ n' M$ m+ g* x我又想把#11.#22和#5的式子簡化成
3 R1 J) M5 G2 |" f# K/ o3 r, ~#5=#11*#22/#4 結束 0 H& h. I! L" m3 G; @ y+ y
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
