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

羅蓋仙

, s/ r' ~' S+ U/ Q* ^1 o3 D$ ~5 a
求最大公因數？
求最小公倍數？
4 t6 F$ s8 D3 D" b3 H2 u
% w7 B3 D+ M% a  d% |5 c& |/ r; P#1=45.
#2=36.
: A! G! m$ \; H* H. E. ~8 z把#1和#2的最大公因數投入#4
把#1和#2的最小公倍數投入#5

#1的因數有哪些：分別放在#101～
7 q9 k- b  g& u1 C  {. q8 ?#13=101.
  ?5 i0 T: v0 m3 D# J( b1 Y#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
1 c5 \, K, j+ U. cWHILE[#15 LE FIX[#1/2.]]DO1
6 _. H) D- i0 F3 CIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
; a" `3 Q( a. J$ q#13=#13+1.
#15=#15+1.
( G" u5 R& p3 ]" {9 q) C" VEND1
+ Q# E  w6 m& e* `1 n  e2 ?* F  k3 _#[#13]=#1
$ H- {+ E% Z- P" ~1 v#15=#13
7 v! ]# v+ M! K# S
) v& \: c% p) p4 |. e) D8 c% CWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
: a7 H( m9 f" R8 J, LIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
+ m$ d5 @) A( q: i  ~& BIF[#4 NE #0]GOTO1
#15=#15-1.
END1
4 M. [& p  v1 _N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
9 U1 q+ @& k# R% _' g) w#22=#2/#4
#5=#4*#11*#22(最小公倍數)
- w7 c6 G+ @0 f, {M0

P.S
我想把#11.#22和#5的式子簡化成
" B5 \0 T6 {2 P! N" I#5=#4*[#1/#4]*[#2/#4]
- r- w+ p, v( H0 q9 K2 o7 o% N我又想把#11.#22和#5的式子簡化成
#5=#11*#22/#4 結束
: W4 J  P( V$ Z' @) ?+ _  f- j( \

jiangssli

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