|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 5 Q0 E! f K% T) u
+ j" Y& i0 K- z6 ~0 v: d求最大公因數？0 p9 ?% G, G3 O0 A( g7 k; _, h3 }
求最小公倍數？% ^# }+ r0 W. y- a
7 h' o& L+ y% W q1 Q# Z l" Q/ W5 H
#1=45.& D; g+ G8 V4 q& q7 d' v* N
#2=36.
( n$ c" a4 T& }" }把#1和#2的最大公因數投入#4
4 F6 e! m; Z3 A5 C1 `( d8 Z1 o/ f把#1和#2的最小公倍數投入#59 @$ a( k) R. W) x; |- G
4 w& ~, J9 f! n+ x#1的因數有哪些：分別放在#101～: g/ `2 P4 H) g) P# p
#13=101.
$ @: L. L+ y3 N4 |/ V. @- [#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
/ F3 r) h) U; y: `- d1 @WHILE[#15 LE FIX[#1/2.]]DO18 i- |; Q1 {" {6 s
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
# E3 g7 I( z* Y5 C5 ~: N) i#13=#13+1.
( w" D0 i8 c# B3 r( e/ l# r0 n [#15=#15+1.
- w4 L% r* `1 k+ ~END1* `; O6 o& o# i$ {
#[#13]=#1
4 L# m9 @$ O' v2 r& U8 n#15=#13
1 |9 `. s9 p& ^, ~4 l/ T6 M) k9 w( d; d& h
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
* u5 E) M) L9 P1 aIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
! ^9 @$ S+ W& i9 hIF[#4 NE #0]GOTO1
- v- d* B! X3 N#15=#15-1.
. h7 x8 J0 _, G5 L2 {1 t3 EEND1
+ |! o5 Q: M5 n, N0 qN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)6 r( F: D, ^0 T
#22=#2/#4
$ \( @* O4 s3 V' ~0 V& R#5=#4*#11*#22(最小公倍數)
k* Y& k) j- p, sM0) m. A" M# S" Y9 D( t
3 [7 @" P7 l: L9 @4 |
P.S) h. E2 a& U9 y- n8 Z, U) ~2 b+ o
我想把#11.#22和#5的式子簡化成1 O6 K; Y9 |6 L) R
#5=#4*[#1/#4]*[#2/#4]1 ?( h3 L+ h- Q1 Q1 ^4 A
我又想把#11.#22和#5的式子簡化成4 ^# r" S# N2 F) A2 B
#5=#11*#22/#4 結束 ) g$ ], n/ [0 U, ?& E
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
