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

羅蓋仙

6 ^& v  v; n) ?" `8 m$ u% |
! L. d$ l$ B, o3 Q) {求最大公因數？
求最小公倍數？

#1=45.
#2=36.
0 s+ o9 N, C3 h/ p把#1和#2的最大公因數投入#4
把#1和#2的最小公倍數投入#5
, |/ j- r) J6 k4 I" [8 t
6 g2 M3 N+ w/ k! c/ F* q#1的因數有哪些：分別放在#101～
) `3 M4 D' ?1 A0 L  I/ _* ^% @3 s#13=101.
' G. ^' G: d0 r0 B6 O& E; c& Y5 M$ ^#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
+ {1 V4 J! N: k4 RWHILE[#15 LE FIX[#1/2.]]DO1
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
; K$ p% T1 }1 b3 S5 V#13=#13+1.
#15=#15+1.
% h. l( q. q1 _END1
#[#13]=#1
- ^6 }0 ~" {9 ]) L4 G7 [6 [& N6 F#15=#13

WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
" r8 d4 o! F5 ?! e# HIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
IF[#4 NE #0]GOTO1
#15=#15-1.
0 ^7 N) Q( h  JEND1
# T; f2 s7 ?  b4 Y3 K2 UN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
3 ~: U! `0 g* j6 r0 u% O& \3 w1 P; L#22=#2/#4
0 ^) N2 T5 i. H" {#5=#4*#11*#22(最小公倍數)
0 K. }3 v% [8 d. {M0

P.S
' _0 g6 W  K5 M7 {我想把#11.#22和#5的式子簡化成
( K3 w+ q4 W; {1 k#5=#4*[#1/#4]*[#2/#4]
; x: N6 a" Q, F3 A我又想把#11.#22和#5的式子簡化成
#5=#11*#22/#4 結束
) w2 ?! u& K' [

jiangssli

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