|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 * t% J- c' H4 ~" J9 A
- S$ @! B: x- r6 a7 o3 c求最大公因數？
4 I* h' C% C& Q. _; t1 M' }求最小公倍數？
/ u6 s, D* t* K9 g- C* g6 q8 z- K
! y* I% M( o5 x+ v/ C: i; n#1=45.
4 r7 B& Z& l7 j#2=36.
, N- |3 }$ }, ~4 n把#1和#2的最大公因數投入#4
$ ?! R {; p& z$ @7 ]" ~& K把#1和#2的最小公倍數投入#55 l3 P- q9 d) l" L! Z
2 b7 p$ ~( Q, `( e2 ^
#1的因數有哪些：分別放在#101～2 T/ p3 ]& ?8 Z2 {. i/ N
#13=101.4 [7 k3 z5 D$ S6 L2 l; d8 X. _
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)3 A1 w9 P7 @) r# y: R8 [ q0 S+ g& ^
WHILE[#15 LE FIX[#1/2.]]DO11 `8 M1 H7 U0 a
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
4 @: L- W3 `$ l E#13=#13+1.
1 U& H/ F; ` f2 ]% L#15=#15+1.
! Q0 q: ]* y7 a' {. GEND1
' f( V. L j+ Z, ^& E" o& s#[#13]=#1! m/ d9 q7 B) b5 ?
#15=#13! f1 T; ~3 I' u9 [0 K2 n2 |+ E* E
+ D' i) ]6 n, x8 \! H/ j& o3 J
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
7 W0 @, a1 a: ~3 L/ ~/ [IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]8 O$ h( }! E+ V* {2 V
IF[#4 NE #0]GOTO1
+ A; K$ K; B3 O, p3 }#15=#15-1.
8 D5 P" i2 |& b, R$ y7 l6 {! H9 `9 ~END1
2 ~* V9 U8 L# \) hN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)+ P0 a7 V8 \+ y
#22=#2/#48 O) Z. ]* A! p2 I6 r7 o7 Z( ]
#5=#4*#11*#22(最小公倍數)
0 q# v4 ^) ]* C; D# m0 X! aM0
# [$ M6 v" Q/ q% W& n7 R% J6 _0 K& U+ k |6 v, V# I* P m
P.S
% A6 i. q* l, {/ h$ v: @我想把#11.#22和#5的式子簡化成+ i2 b' I' ]6 _
#5=#4*[#1/#4]*[#2/#4]9 p& c" i9 ^' \- p! V8 }; S1 ~2 M- U
我又想把#11.#22和#5的式子簡化成9 C* e, o1 B) F. b
#5=#11*#22/#4 結束
6 [' D0 X$ C5 q Z |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
