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

羅蓋仙

& W7 f! {6 O! x- S9 p: {) `
* o# m& r" T/ j0 ?求最大公因數？
; m* M; E/ Z/ e) D求最小公倍數？
4 @: f, J: i8 ~" n% T
#1=45.
" V; U3 |5 c# d#2=36.
" ?1 b( Y: P" J" N/ x8 N8 s( e" O0 C5 I把#1和#2的最大公因數投入#4
把#1和#2的最小公倍數投入#5
$ c. }/ }) Q' q; i2 ^( p8 b
1 U& }+ V8 y' [. M#1的因數有哪些：分別放在#101～
$ I9 Q" P# I. G& @" V#13=101.
7 g) k" r2 _) J. ~) P#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
WHILE[#15 LE FIX[#1/2.]]DO1
% |, Y# ~" ^$ D, ~  k/ v9 ^; I$ ^; f, LIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
' q: q, T: x7 H$ ~9 ^- `#13=#13+1.
, J% a* N5 y; [#15=#15+1.
; j/ v2 l$ q# hEND1
$ |$ j- `3 y3 [/ k1 e1 [3 w#[#13]=#1
( a2 b3 p7 O1 f8 h# H9 h+ }# z#15=#13
7 f* `: G5 g* z$ U/ e; g! i9 X5 Q0 n# v
9 Q$ t! O/ r4 t# _WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
IF[#4 NE #0]GOTO1
#15=#15-1.
END1
5 A4 [0 D' {+ H% r/ NN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
#22=#2/#4
- A5 P$ Z( Z  X2 \#5=#4*#11*#22(最小公倍數)
M0

( ]% \! h: D& H! _P.S
" L% _. l) d, s' t, O/ `我想把#11.#22和#5的式子簡化成
#5=#4*[#1/#4]*[#2/#4]
$ j, h) |( v8 j# F5 Q' w我又想把#11.#22和#5的式子簡化成
3 q) J, O: Z9 |$ F( }3 {% D$ E#5=#11*#22/#4 結束

jiangssli

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