|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
\& x. C5 ] [# M A7 I: V! X+ M+ x' {6 C. C$ J4 N9 d$ W) \
求最大公因數？/ H- j+ M& o. n/ Z3 N
求最小公倍數？
7 ]8 |% O$ y# B _/ s/ d/ H! e3 H9 T: R- ^3 j
#1=45.+ T+ n0 Z" f5 Q7 E v
#2=36.
1 c* V, P* V& s3 c/ d把#1和#2的最大公因數投入#4! s9 U9 V2 m/ W7 U) d* W
把#1和#2的最小公倍數投入#5
' D& l" k# G' c+ E
z0 n- {6 _( v#1的因數有哪些：分別放在#101～
: @6 g$ Y$ p( v#13=101., I2 l2 s7 S9 `& n
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)7 `6 \. ?/ e9 o# o
WHILE[#15 LE FIX[#1/2.]]DO11 ~8 H* y7 H$ V/ f4 s/ ?" M
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
$ y' O, s/ J" I5 T: B0 F4 @* A3 l#13=#13+1.
; \- G7 r8 ~, J# J* {4 c#15=#15+1.
% u8 y- v3 h J8 M$ fEND1
, Y i% U4 L8 r4 X! x#[#13]=#1
J1 f1 I" f* K) t, T8 x#15=#13
$ u, t" [, f/ d4 h# l8 Q; w- {/ Q e/ P
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
% K. G6 z. c3 p) E+ q0 ]$ gIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]. r1 \% \& e7 q2 J
IF[#4 NE #0]GOTO13 q* W; Z; g5 {% h8 A+ c
#15=#15-1.
2 Q: K" Q, h1 V7 C* f$ u$ nEND1& i" F- `2 c9 f, \% e
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)% j2 P( R, B. g& g- y2 `) w$ P
#22=#2/#4# m0 R* x- h5 X3 N. _9 N- h4 ]9 N
#5=#4*#11*#22(最小公倍數)$ H0 u* n: _7 l; N" B3 O
M0+ l1 t( ?9 o2 d
7 f% Y$ @9 H6 a* x/ C1 }
P.S
% |* ?3 I' m) w P2 Y1 X3 I3 W* J3 a4 T我想把#11.#22和#5的式子簡化成" p" i, ]8 g5 y3 {0 r# _6 P9 F
#5=#4*[#1/#4]*[#2/#4]& j/ m0 ? m9 N$ X, g
我又想把#11.#22和#5的式子簡化成
, Q# I5 }4 F% \8 }) u#5=#11*#22/#4 結束
$ y4 u: H9 @1 E7 J9 S7 o |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
