|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
4 H- d& v Y, Q2 l9 c7 w2 a
& W' b7 j: V% ^1 O0 U求最大公因數？
$ A1 Y5 C5 C1 P- b3 \求最小公倍數？
1 T1 g( F& {1 p) v( h! ~( }1 N4 M- `8 F9 ]2 v3 I
#1=45.! P9 R- m0 L: j- w+ ?+ G( [0 k$ J
#2=36.0 a0 ]" X" }" H. n( E( B& [# B
把#1和#2的最大公因數投入#4
; o4 K2 j h; ~5 A. _! u把#1和#2的最小公倍數投入#5( E* e' i. T" c+ P5 [4 u
4 E) Q/ @ |- b( E" t- q
#1的因數有哪些：分別放在#101～. A6 P$ T+ Z1 u, b
#13=101.
; v5 p# Z. K$ t4 N: O#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
! E' k+ }( U% ?& b8 {$ N! PWHILE[#15 LE FIX[#1/2.]]DO1. O5 D5 g' f. q2 t0 T
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15& X% s0 F, E) [/ _& U
#13=#13+1.
/ \: }4 x( _6 h F#15=#15+1.( {( Z& L# ^6 P* z y5 `; |! W" m
END1
; D. z2 M( x! ^. G0 S9 p#[#13]=#1& s y9 p5 m- K4 m
#15=#135 L+ `3 p! x$ `# G
# m% G' ~( I( NWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
( W4 q9 |" E% KIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
) F) F9 d6 B) SIF[#4 NE #0]GOTO10 ~/ |- O) C' k3 v& l
#15=#15-1.' v" H1 }0 u% ~
END16 u; L G- P. g5 o
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)# t. p8 t0 \5 t! k* ^2 k& \' s
#22=#2/#4
& c( T6 I$ E. W3 N#5=#4*#11*#22(最小公倍數)
d B2 C) a& {( K; b4 A' yM09 s+ O1 X0 C1 g0 g8 H0 E
2 [0 {9 `0 M' M& Q$ l+ G0 Z. X6 ~
P.S
/ }6 t3 D+ U/ V5 b我想把#11.#22和#5的式子簡化成: z& u5 s: D# j0 D3 D/ ?
#5=#4*[#1/#4]*[#2/#4]9 o) c, k( i, t; C6 _
我又想把#11.#22和#5的式子簡化成) d0 y6 _2 a# ^* H4 K+ F. ]
#5=#11*#22/#4 結束 $ y& k; g# c; w4 d: c# r( I" u, d
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
