|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
! b, ` z9 F; c& M3 {: S3 C
0 c2 ^/ @! C3 v6 a: M求最大公因數?1 w. [: Z( l9 V* L) a# x
求最小公倍數?" Z5 K# O. `; C& e
6 f5 x" s, f: V! u# p6 l#1=45.
: A/ a- t& z8 G#2=36.# N$ E# `& h+ B2 e) g# d& q6 e% L% t
把#1和#2的最大公因數投入#4
/ d/ t& M" E/ q7 V把#1和#2的最小公倍數投入#55 ], z A3 K3 I# m9 ?5 `* {
5 Y) S. p1 `, K- Q1 ]* m#1的因數有哪些:分別放在#101~
- C d( ]! h% J5 M6 u* Q- ]& B#13=101.4 n) C7 p. a* b8 w0 f+ W$ v
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)1 b: J' ^+ W# W: Q! Z
WHILE[#15 LE FIX[#1/2.]]DO17 s; @" o$ e, b
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
1 j6 l7 F1 D! f2 b# K- {$ j#13=#13+1.
5 ^& l) T$ u! P& v) h m5 d#15=#15+1. a5 c0 ~5 c( R& h, n0 M3 X
END1. l) u _3 a' Q: [5 B ^
#[#13]=#18 u* b. ~* F# Z0 I0 R! }
#15=#13& v* q# R( Q# p5 p6 _
* r+ o0 \0 X# ^WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)" ]' Z/ a: q3 J( x9 S, E
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]5 F# L& k# f# n% O: q' W0 H
IF[#4 NE #0]GOTO1; |; z/ [; q8 r7 a( y& ?3 z
#15=#15-1.
* p8 W$ I/ [, _# F6 a! h% QEND1
. P. K9 n4 f; f# C/ @N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
& ^- Y4 T: Y7 U o" I#22=#2/#40 v& H3 o$ L8 }& C0 S% i( |, W
#5=#4*#11*#22(最小公倍數)
, K% L. m3 Z/ ~2 { _ IM0
% F# f* [! x0 w# r" e- T8 [) F- j
. m: `/ U! v$ D @; P) a L6 FP.S
- H9 b) A1 s( g6 n2 B# X我想把#11.#22和#5的式子簡化成
* F& \, R+ _. z& ]% @. f#5=#4*[#1/#4]*[#2/#4]; }/ M9 w8 [% ?' \; B9 B) m
我又想把#11.#22和#5的式子簡化成
/ l$ S, [" o+ j: Y& P7 ]2 Z1 B#5=#11*#22/#4 結束 1 A, f0 |7 C) C( K) j1 ?
|
|