|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯
2 R( g" o4 h7 C0 {# C0 E/ S: g' g2 Y) {3 L2 A
求最大公因數?
, `' G, e) W5 W; [3 ^ e求最小公倍數?
9 [ q% e1 V: j+ p- i2 }; M
1 I9 H% J* X/ ~3 F5 ]% T1 A$ j1 X#1=45. R: i, d5 Y2 Z2 G: E* i' F+ b: Q5 x
#2=36.6 }! ]& C3 b8 y4 l. Q7 T7 S: ~% ` t
把#1和#2的最大公因數投入#4
0 o5 t. p- K9 M* B把#1和#2的最小公倍數投入#5
6 X$ k1 f/ F9 b% j$ q, A
/ \! o9 Z7 A2 p; m }- x, T- `#1的因數有哪些:分別放在#101~
& S$ s9 l) o& |#13=101.
& s% R' l7 d! a- z# u#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
# l8 {# A5 Y H J! MWHILE[#15 LE FIX[#1/2.]]DO11 ?2 s7 I& L! G/ m
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
) y! L9 }) d% u7 C L#13=#13+1.
" k0 U" B3 A8 ?% y: I#15=#15+1.
8 J! g! l) ^9 _END1, H. r6 B4 l, L0 G3 U
#[#13]=#1; U+ g( G0 | E& e2 d& z' B# \
#15=#13
4 Y6 h+ k* M( @$ {% c
& o$ _) b! g9 M6 B+ @# D6 vWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了): g4 T- Q' R5 w0 c& U3 Z8 s, @' u
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]8 F& G1 d- i. {* t8 z: E6 V
IF[#4 NE #0]GOTO13 I' ~1 \, P# J* l% T
#15=#15-1.
. {: k6 e9 H- s0 Y1 t! I7 K: m, MEND1 K- ]( X2 k; |2 G1 S
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
. a6 w$ @; f" S; Y" ?#22=#2/#4
; u: f9 r. x6 R9 ]# o: D) l( z% O#5=#4*#11*#22(最小公倍數)
% Y' I& M5 i f1 g) u2 w O2 hM0
! ]: H. U# E3 I4 @. N+ t! G& Q7 w9 ^+ s9 N/ W$ P" R! Q
P.S( w# _0 Z- ~9 j; ^+ V: s1 ^
我想把#11.#22和#5的式子簡化成
. C8 X& |- I8 X ^/ r; H* O$ @#5=#4*[#1/#4]*[#2/#4]+ o9 P" l2 F5 s5 x* Z$ }& J2 o% b
我又想把#11.#22和#5的式子簡化成
# G+ n! [' n' E9 s#5=#11*#22/#4 結束 " ^" f9 p; M3 ^0 X6 x
|
|