|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 % y& l% w. S( r, X3 M0 Q$ {
3 q; l/ u! P1 o b8 c7 r0 s求最大公因數？1 T: Q3 C& w& b S' b1 m+ g
求最小公倍數？
6 U& n! t7 X3 e% b$ c2 i/ ^9 X' Z- y* k8 N9 J3 i
#1=45.0 C3 u+ P# y2 l6 R' q9 _" ]7 C" s5 O
#2=36.1 S2 |% a/ V: G3 e3 }
把#1和#2的最大公因數投入#4
' c) N9 k e) a+ p# [( k' Z' E把#1和#2的最小公倍數投入#5
3 z" N/ ]5 z! ?; _
* Z( e5 L' G- l: Q4 a+ U' u! d#1的因數有哪些：分別放在#101～
/ ~" A. O# I& U# r9 @#13=101./ L2 G3 w, a/ y" `( E! @; h
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
0 K1 {4 P: H, V& [% W) u' f+ JWHILE[#15 LE FIX[#1/2.]]DO16 F q. h3 m1 H7 [" O
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15+ _7 h- |2 e* z
#13=#13+1." O- \0 P1 F2 ]& v+ k
#15=#15+1.8 R& ^9 B4 }; P' ?5 _
END19 _& P( ^- L% a" V, S
#[#13]=#1; Y$ f) V; X9 X8 Q- q* I: j9 x
#15=#13
]0 ^& W4 d/ }8 p$ M
1 N' [/ I" s1 w/ ^) |0 j1 u2 NWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
) u7 S- v* ?4 ~5 O6 G+ l4 \- bIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
. j0 h) \: p9 j A# gIF[#4 NE #0]GOTO1% y; B- P% N( \$ V1 ?
#15=#15-1.4 R, i" K3 S- s& N2 N
END1
, \4 Y) [, k* A6 vN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
8 r- E1 }1 x& b6 G4 M# _#22=#2/#4& c# g6 ?+ G+ s+ G+ o4 p) ?! ]3 Q
#5=#4*#11*#22(最小公倍數)! C* `& j6 P8 v' s5 o
M0
/ a4 S* J) {% V2 y! D* [8 z6 q7 @
P.S
S0 M+ T: y0 o, j我想把#11.#22和#5的式子簡化成 H4 a' k: c5 f
#5=#4*[#1/#4]*[#2/#4]) ^) p5 e) ~/ F3 \) c$ d
我又想把#11.#22和#5的式子簡化成6 u! ]6 e. w4 S. t6 c
#5=#11*#22/#4 結束
" b+ C+ y# v# |% N9 c$ Q0 K; G3 r5 ? |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
