|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 & P0 r# a2 A0 o6 j: R9 w
/ r3 X! f) C/ {/ e. ^求最大公因數？
2 }, a; j: [2 y8 b求最小公倍數？- Y9 p" z: b! e- t( y
6 j- y! c* h+ j# @: H0 x
#1=45.
0 P. H7 N6 |: {' H/ C c) D3 x' i#2=36.! p! T( ^/ v& `* N( S; ?
把#1和#2的最大公因數投入#4% G/ @ @( f. L. x4 T+ O9 b
把#1和#2的最小公倍數投入#51 o8 j3 L0 k) G4 o
) N6 T/ B; W$ `
#1的因數有哪些：分別放在#101～+ n1 B$ Q' ]) e4 f9 ?- y
#13=101.3 ^! N7 Y$ n6 g* W3 z
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～), q0 u. B- x: l
WHILE[#15 LE FIX[#1/2.]]DO19 x, x# Q5 o: ^$ S. m
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15* ^/ c3 D4 b( F0 L6 N+ V3 V% v! {
#13=#13+1., n* A2 |1 U2 B
#15=#15+1.! p: G2 h' s7 v
END1
' v9 W0 ~) }, d& k) S1 p- a, E#[#13]=#1/ G. N1 z$ l- M. P5 F( B* F
#15=#135 W0 n0 b, Q$ q ^: d, n5 [" ~6 W0 b; q
4 q, W9 ]. ^+ t U5 B" g2 k* K& h. b
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
1 f% l3 f+ R& B% O" ~$ d. I' |IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
/ V5 t+ y! g: `# N9 z4 R( F7 TIF[#4 NE #0]GOTO1
8 T3 a) |1 i) i# |0 f% W#15=#15-1.( R1 c* d6 _9 k; j
END1 f' J$ s& F- Q
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)1 _/ e- q2 A. L' b
#22=#2/#46 {* a9 K) C' Y) V4 {0 ~
#5=#4*#11*#22(最小公倍數); t3 U+ Z t; f% _1 s8 N
M0
% ~8 b$ A, ~5 ~& T' |, w$ J u5 v
P.S4 G* M" V6 m/ y# q2 @6 Y
我想把#11.#22和#5的式子簡化成
8 e( M, `5 H6 A) l, T% L#5=#4*[#1/#4]*[#2/#4]6 T8 G/ }5 {( _; m t: N
我又想把#11.#22和#5的式子簡化成. t$ H) V8 l0 _' @6 _. s# Y0 l
#5=#11*#22/#4 結束
% q% |& K# l# E4 J+ @+ V |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
