|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
1 O9 k% E7 i9 k K$ G* n+ `* ~4 Z7 P* v, R; a; C. ?! I
求最大公因數?
% l6 m9 L9 m$ N4 C7 s* k求最小公倍數?
0 a/ f1 c5 u; ]
' W5 h( t6 c9 i1 n- E9 w( }#1=45.
" W( o9 ?9 J [5 t* q#2=36.
) B% m, {! L* s( Y把#1和#2的最大公因數投入#4* J3 o& y" b8 y$ h2 f
把#1和#2的最小公倍數投入#5
q3 D9 S4 `$ V6 t; z1 d W
, K I5 O( P3 {" w: M4 A9 J#1的因數有哪些:分別放在#101~' e' ~7 G! n$ Z( v
#13=101.
$ i' e# }1 F* i3 B4 ?% l( L1 T+ h#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)1 y. z3 e8 s8 H4 h* c) M% F; [
WHILE[#15 LE FIX[#1/2.]]DO1
( r* H/ {" |8 ^ u+ j5 q1 PIF[#1 MOD #15 EQ0.]THEN #[#13]=#15/ H; v4 \5 n& Q
#13=#13+1.7 m- P( a! z, x% ^
#15=#15+1.
, F3 {3 U: n4 g* @/ HEND1
& ?# I) w8 M$ ]3 t5 T#[#13]=#1
6 z& T) Y ^5 P( M" Y#15=#13
9 Y( M7 {2 u. Q+ [! g
% {1 y, B! i! hWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了) j( q% c& B. _; E% E2 }
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]' R) n- o& {* x3 k* h: ?, J) j- Q
IF[#4 NE #0]GOTO16 D+ g7 c1 p, R9 e% h, m0 f6 Y
#15=#15-1.# y* ?3 R4 k+ G" ~8 Y
END1
2 W6 ?: t+ w- y: u/ a# p% EN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
) H* q( B: M5 U#22=#2/#43 u4 S8 R' ]5 D1 u5 o1 H7 q Y( f
#5=#4*#11*#22(最小公倍數)& t( ?2 a0 v: F
M0$ ?/ j# J. q8 a# F
E! M5 {2 H' i* W& U6 H& Y8 HP.S
* Y$ c2 V. }5 k我想把#11.#22和#5的式子簡化成
# Y L3 p' @' f7 y) E9 O: j#5=#4*[#1/#4]*[#2/#4]. n0 n t0 B. b! `# j* |5 w
我又想把#11.#22和#5的式子簡化成% u8 \4 l6 G. @$ n: f/ u+ p
#5=#11*#22/#4 結束
1 P1 K9 M( g5 N8 a) p' H: u( W9 {) ~ |
|