|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 , P# P1 H/ g0 C
$ j$ s7 u) Z* R" d0 e+ P/ k
求最大公因數?
( a/ z( Z( P/ ^2 V求最小公倍數?, r: I" J* i8 [. K* s
' Z7 Y* x5 G% ` A3 \#1=45.
5 V) M8 s" r3 L/ m3 N* V9 {2 I6 V#2=36.
/ K' i: R+ k! x- Y) J5 _把#1和#2的最大公因數投入#47 n% Q9 G- R3 {2 e& P* i2 o# R' I4 V3 I
把#1和#2的最小公倍數投入#55 S1 _& o5 G) |# V+ A: ^
7 |* s5 ^6 [4 ^, o# R1 ^6 c" ^; t
#1的因數有哪些:分別放在#101~
1 E/ e N. e' E% g7 y P3 }#13=101.
1 \3 S( f; U b7 y7 b#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)5 p6 N+ F1 O0 h
WHILE[#15 LE FIX[#1/2.]]DO18 f3 l: j% U) B+ H& W, R% L
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
% [; J' F7 j: }7 q$ G _8 w#13=#13+1.
, N% Y4 E+ c& h* m B#15=#15+1.
8 l: v! m6 V% k6 [' e" w- pEND1
9 L* H3 U% Z, x7 ~* G; v* N) ^#[#13]=#1
3 \, |. D+ K [0 T! I+ P1 s#15=#13
' e" j) p9 |6 o" i K5 K
" I7 s7 f2 K/ F' M. E0 i: H6 kWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
/ `; y4 w. t3 u; uIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]3 n/ F: i# T/ E8 Q7 z) P V
IF[#4 NE #0]GOTO1& Z2 X, o- K# b0 Y& i. C6 [
#15=#15-1.
8 Q- ]3 C" A6 k5 {5 TEND1
+ {+ T& S% H8 NN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
# p, w2 {, I4 ?. h- Q) q% E' z#22=#2/#4 o. h# y) R: l3 L
#5=#4*#11*#22(最小公倍數)
" r( {: |# R3 f5 q7 y$ I+ ^* F. p j" VM0
0 G! a7 S- P5 J) s/ v' s
. L0 m3 h v& n: ]( GP.S
" ~: D) d, O' |! w我想把#11.#22和#5的式子簡化成9 @2 M: H9 ?& R3 B9 a
#5=#4*[#1/#4]*[#2/#4]
. ~6 s$ u/ O" Z& H- [我又想把#11.#22和#5的式子簡化成4 z2 g9 i L: C
#5=#11*#22/#4 結束 ( q9 m/ }. T1 N
|
|