|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
0 m( ~" y E% a- c8 @/ }$ S& c9 |1 l1 T4 {1 a2 D* u
求最大公因數?
+ R k' K4 t7 J/ R求最小公倍數?
# E. S+ b2 f2 j1 ?3 ~2 n b, s
- B4 v; Z8 Y$ u$ k4 Q4 |9 E9 L#1=45.
5 A9 t- E3 ^- X6 R4 [; ~#2=36.4 J1 R8 G( G- r% y
把#1和#2的最大公因數投入#42 d; T) B, Z/ P
把#1和#2的最小公倍數投入#51 R. H3 Z( m* D6 r' |; i7 ]* _
% ^4 }3 [* T7 Z( V
#1的因數有哪些:分別放在#101~
7 z4 t2 f7 A7 z8 h#13=101., L+ X5 d' N# |6 K1 y8 z
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)0 m' M( u4 n" s) o
WHILE[#15 LE FIX[#1/2.]]DO1) Q0 M& i5 O! u
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
* x3 Q2 a# K$ |1 U& H9 }9 Z6 z#13=#13+1.0 |" A% x! Y4 k4 n" [# T3 A) J& w
#15=#15+1.
* K' z7 ] V5 Z3 ]' ]: sEND16 [3 ~( g" d/ \6 `4 P% g
#[#13]=#1; y7 D$ v* D1 B& T) O3 y
#15=#13- ?- ^" v, P' d) c) p
( M; z+ O- e r$ g1 p$ eWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
+ U, ?7 K0 p1 J6 p8 v2 q$ o& R* ~0 \IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
& X$ w7 a* D {' EIF[#4 NE #0]GOTO1
5 P# b! ~ D' S& ~ }#15=#15-1., k* L# ~: ~7 a0 d0 {
END1
4 i5 T. E: h# S4 x* @3 O% wN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
, s* H w, @- ^; z3 E#22=#2/#4
% w# v& |! O. P8 G' o6 Q7 i#5=#4*#11*#22(最小公倍數)
" a8 y( T y# C2 a# {M09 \) U4 u1 j$ i* f( d
$ Z% A' ^. d j; Z8 a& y, E
P.S# M/ N6 ?" D3 Y9 V, p
我想把#11.#22和#5的式子簡化成
& ^- g0 z/ Q3 S5 I#5=#4*[#1/#4]*[#2/#4]
% o0 E' \( C' j: \8 ?6 ~我又想把#11.#22和#5的式子簡化成4 H7 G0 i" U# b0 W8 c
#5=#11*#22/#4 結束
9 N5 L, j' a& `8 e" W |
|