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

羅蓋仙

5 ^% N6 `1 D; [5 M5 V
求最大公因數？
求最小公倍數？

#1=45.
#2=36.
把#1和#2的最大公因數投入#4
把#1和#2的最小公倍數投入#5

#1的因數有哪些：分別放在#101～
#13=101.
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
WHILE[#15 LE FIX[#1/2.]]DO1
8 K+ q% l4 _4 u# b. P7 _IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
9 O! N% h- a: k4 t& I1 w# n& }#13=#13+1.
+ ?4 t2 }0 `" p5 n' ?' S#15=#15+1.
! u6 M# ^* H' a/ b1 y! H1 DEND1
4 K- e" m! e, d; ]. g7 z#[#13]=#1
#15=#13
0 l6 ~" f# r$ g; I
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.
7 U6 p" c# Q. [9 nEND1
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
4 G/ B6 t5 o3 ?) u4 P9 v#22=#2/#4
: L* ?7 C% j! C  r#5=#4*#11*#22(最小公倍數)
& V! ~& A" U4 q2 n' O9 WM0

P.S
3 d7 j) `) @7 i2 W0 G我想把#11.#22和#5的式子簡化成
; j4 x9 Z, q% P! L; s* f5 J#5=#4*[#1/#4]*[#2/#4]
, ]& c: u. I! J4 H9 m: R* ]我又想把#11.#22和#5的式子簡化成
/ B8 y* c+ U  A& F" r0 S! Z) l#5=#11*#22/#4 結束
0 c0 N/ D& S5 g1 T7 v

jiangssli

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