|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 - G6 Y* n% }, b& S! I, v% ~7 O
) l0 k* g+ a0 s! L$ `求最大公因數?9 S/ Z7 o* ^7 V/ [1 C% K
求最小公倍數?! F1 u8 `9 m* M0 @- `
6 u% [& J: w$ j1 c, A" X) `- ?" U4 { c#1=45.
9 k6 h! }: r* F1 K" e9 X& U#2=36.& F) \# L b1 z9 Z1 W6 l7 z
把#1和#2的最大公因數投入#4
h3 U6 J% [) ?& c& m& _8 }把#1和#2的最小公倍數投入#5
0 O9 b0 X R8 U+ B( K; T: q) o' M( W# E5 y* i% q
#1的因數有哪些:分別放在#101~
3 B4 Z- `5 v, L# z. X0 D#13=101.
; B! V7 @) }8 r8 k% Y' ^#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
+ f D5 ]) W0 h& a! r) g) {( sWHILE[#15 LE FIX[#1/2.]]DO16 q. L# C9 P7 H
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
6 `9 z+ g* T# R) r$ b6 a, @#13=#13+1.- S) w* G! {0 F9 h$ n0 o8 q1 |3 |2 c' O
#15=#15+1.
; T$ K( k. I% m; Q5 @+ `. kEND14 o# A9 W" y2 R( c& J
#[#13]=#1. w: L. k0 M- o9 U$ q2 p% [
#15=#130 d" @1 t- @2 x2 z* a
; H6 z: ?$ J0 B6 P9 rWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)9 U( v3 X5 C' d
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
% h$ h6 O# T2 Z% j4 ~& [' aIF[#4 NE #0]GOTO1
8 Q8 p2 \' L# ], f" s* h/ p& l#15=#15-1.& k, I) T* Z9 ~8 p% c
END1
% G! b/ R8 V6 O0 r/ r# _/ WN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)9 C3 z! c$ }3 U" n
#22=#2/#4% R8 `5 i; x+ \, Q( l# r$ ]4 n
#5=#4*#11*#22(最小公倍數)
; `4 _2 e4 ^2 V# Z! f( M9 NM0
& E5 b+ N. j4 Q5 P4 z7 }' v) |: B+ X0 j9 [" E- t9 O+ K
P.S
5 d* E" N9 @5 G8 j我想把#11.#22和#5的式子簡化成" W. k4 Q7 H2 _" f! {+ k
#5=#4*[#1/#4]*[#2/#4]# P4 M! ?- I! h8 }1 j
我又想把#11.#22和#5的式子簡化成
' A6 _/ f3 y9 |9 M: }7 X6 i#5=#11*#22/#4 結束
4 H% ?4 y- H" H$ I0 c |
|