求最大公因數與最小公倍數

羅蓋仙

7 P0 Y8 D$ i4 K: V
求最大公因數？
求最小公倍數？
- q* g5 U' \' ~% z4 s: f
#1=45.
* H- f6 z/ w: i5 _#2=36.
把#1和#2的最大公因數投入#4
- G8 v/ u4 ]' _+ n2 H; b把#1和#2的最小公倍數投入#5
0 ~, s7 K" l% t
#1的因數有哪些：分別放在#101～
#13=101.
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
WHILE[#15 LE FIX[#1/2.]]DO1
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
: h4 @" D: @! B; ?7 k#13=#13+1.
#15=#15+1.
8 E# i$ G8 S5 S# W5 yEND1
  D# a7 d% _, {4 _  L#[#13]=#1
#15=#13

; `7 d# A; C$ Q0 a3 I7 i$ |WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
% T, P) t# f" |$ q( }& qIF[#4 NE #0]GOTO1
3 M& C! J( B% d* S7 u1 J2 n( m/ k#15=#15-1.
END1
  G9 D5 J6 L( Z* V# RN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
3 z( o# U' {; r# X8 n! [#22=#2/#4
#5=#4*#11*#22(最小公倍數)
- _, C. c; q5 o3 F( h7 m- n8 r% ?M0
; s: h9 f6 K0 G) E
P.S
我想把#11.#22和#5的式子簡化成
#5=#4*[#1/#4]*[#2/#4]
我又想把#11.#22和#5的式子簡化成
#5=#11*#22/#4 結束
" O$ ]2 \) g' P# K- M

jiangssli

我暂时还不知道可以用在什么地方.....而且突然忘记公因数和公倍数是什么意思了!!