|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 + M1 ~" ?0 f" M% I
* v$ P; y% K" K6 p+ {9 P
求最大公因數？
0 _4 L0 t. o( N7 D求最小公倍數？) H7 U: V+ q( R) I- h" u
3 T/ C% j! y5 l
#1=45./ H B$ g5 C1 m% T' Z' l0 M* X
#2=36.* R5 v) N. J' p D' L% M
把#1和#2的最大公因數投入#4
6 U4 n, l! {: d) q- Z& g" \$ k& C把#1和#2的最小公倍數投入#5
4 Q# r1 I" ?" w( K: Z$ V
2 ?, |+ N m/ F#1的因數有哪些：分別放在#101～& k* L- Y. N$ u/ o+ @
#13=101.
4 b% V8 O3 S1 ?/ w- }! x$ r- p#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
: `) C5 |; Q$ }" |2 }) w: K6 xWHILE[#15 LE FIX[#1/2.]]DO1. F. V) E' y& T" ]' w8 Q1 d3 F
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
6 Y3 m8 g3 Y+ v# m; U2 g#13=#13+1.
: n/ U: N5 O# z: u9 i#15=#15+1.
- U6 P% f6 V, C8 Z; b: u4 o d4 WEND10 e( r/ K* P+ H0 a
#[#13]=#1
# e x6 {7 |5 }3 n- h0 C% O m#15=#13; E8 W; N2 w3 d6 B3 ^! C
0 r2 o4 s0 x2 u o& {5 C5 q! I7 rWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
u6 ~4 u# T5 n+ N7 l8 f NIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15] D: Q) W8 M9 _. Q8 T
IF[#4 NE #0]GOTO1
1 F8 i: Z* z( @7 f4 j5 ~% g#15=#15-1.0 P/ ^ c+ V, @3 F. |" \
END1. P/ i: _' W* a, Q& {9 j" Q
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)' x* ]/ t, j8 g" r& `6 ^* _& r! U
#22=#2/#4
|6 L; \' ^! X- y% x+ R#5=#4*#11*#22(最小公倍數)
5 ~! A/ O8 _. y/ p* \) BM0
/ m( H Z' ?- Y) y' P
' b7 K1 e# N, g$ B$ |- EP.S: S& T/ j W: i* H) w3 ~
我想把#11.#22和#5的式子簡化成6 \7 R3 R1 s6 l. n- F8 P) G
#5=#4*[#1/#4]*[#2/#4]
0 z, o6 J3 z) M4 ]我又想把#11.#22和#5的式子簡化成* u+ g, C+ x/ r& L8 n8 e% O
#5=#11*#22/#4 結束
8 [. k& p5 Z- F7 w5 q* G- } |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
