|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 3 s: ^2 o9 Q* A6 g7 V
7 b! S! i( j# W2 m" N: }7 _% ?求最大公因數?
9 J5 i" g5 I' @5 Z* H求最小公倍數?
$ R: S7 s- x* `6 R9 }
6 H; }% D2 q- s+ ^; ~#1=45.$ h2 e; a% m8 F5 c: `
#2=36.0 J7 r c5 R& l& n- V
把#1和#2的最大公因數投入#4
: N; M$ z7 T( s2 o* L3 N6 y把#1和#2的最小公倍數投入#5
7 D) U/ y& ^% r* q0 b! n) M
- E- X O# l0 w9 b. _! |#1的因數有哪些:分別放在#101~
& f1 I0 T" Z0 H0 D# a& }#13=101.: @- I& S2 K! @5 H0 j4 K
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)# H v9 r0 ]) U# `# i* a7 A8 E
WHILE[#15 LE FIX[#1/2.]]DO1
A8 m5 V7 c0 v, ]4 `, Z' \; b9 _IF[#1 MOD #15 EQ0.]THEN #[#13]=#159 N K5 q9 \$ {- x2 U3 j
#13=#13+1.
! N4 r! w @5 L7 N3 ]#15=#15+1./ E- R I' Q8 G- x: ?3 X
END1$ f6 H# d1 ~- _2 o
#[#13]=#14 Q+ K3 a3 R$ l
#15=#13
0 r# V8 A& ~3 L$ u+ q* | w7 k" X Q) Z" f5 x5 Y9 J8 X
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)$ T! O* d, Q4 w% E
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]* W! y' X3 q$ w' D1 D) v
IF[#4 NE #0]GOTO1
, {' }; {5 C- b/ _; N& V3 \#15=#15-1.
! [7 |" j" e9 `* n7 G: i6 E' PEND1
/ m% P l$ b" i, [N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
( g! O. i! j' e6 g+ ^: D' N: M#22=#2/#4
: r. n& Q2 R0 Z# v! A' k% F+ `#5=#4*#11*#22(最小公倍數)
% H3 ?8 T) E4 @% g! YM0
8 m2 Z8 V- @, a' N
7 ^1 S" O- b" NP.S
, `8 q: v/ s: f5 v' y; i8 s我想把#11.#22和#5的式子簡化成
- G/ E8 N) U; p* h: i! o. h#5=#4*[#1/#4]*[#2/#4]: c# j; w9 {2 q) M* L' o
我又想把#11.#22和#5的式子簡化成
' K* a5 ?1 {8 v#5=#11*#22/#4 結束
! g9 n& O0 x# k0 C7 x& K |
|