|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ; ], r6 I6 @7 S8 P& B* k1 H* G
$ ^& L/ m" Q( I5 u$ s u5 {- f求最大公因數？
# ^1 ]/ {) d( ~; L, {) v求最小公倍數？- l4 \/ m r: {% a0 E
8 x- A5 U7 p! S, A d7 v9 h
#1=45.) {: ?4 x( X& U8 L6 c* z. A
#2=36.$ R7 p$ B/ ]- l2 ]! @2 ~- w5 B
把#1和#2的最大公因數投入#4: I8 ~3 W, o; X0 Q: f+ d
把#1和#2的最小公倍數投入#54 l" Y; \* V7 U' P* \
, N7 H* v1 c7 m* i6 [#1的因數有哪些：分別放在#101～
0 A) o' L* K2 A/ Q. X. k/ Y' D#13=101.
# ?9 o6 i. F- T( h- \#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
* b# D& |4 }* c6 y# ?& zWHILE[#15 LE FIX[#1/2.]]DO1
3 b/ u3 O% p- V' \8 `7 T; vIF[#1 MOD #15 EQ0.]THEN #[#13]=#15 X$ Q5 [! w, v, y9 q
#13=#13+1.
0 \2 p2 j4 |, o7 T#15=#15+1.
# L, A$ k. y$ `* h4 V9 ~/ X; i% `END1( d g, r. u& z+ q) @5 z
#[#13]=#1
" F* i0 X) N* B) V" u. P2 ^#15=#13" t% l2 O/ b' W: h! H) r- N
( ], i6 C. Y$ p
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)7 o$ q" B$ [7 |6 U! {
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
M( D9 u' j- }/ cIF[#4 NE #0]GOTO11 t) _ C: I2 R) T* a4 _$ W4 n n
#15=#15-1.
6 J) d/ q( m3 ^( @% XEND1
( g! i7 U% ^' _# FN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)7 b1 C! V! L$ J5 z, _. v
#22=#2/#4, ]" z6 r$ ^% d, i' f% M
#5=#4*#11*#22(最小公倍數)# H% [. n+ ]$ g5 S7 Y {$ _
M0. W* Q4 q$ S" C
- H0 h$ o% Z8 f: ZP.S# b& S8 X, c5 F: R) n/ w
我想把#11.#22和#5的式子簡化成
4 d3 h. F+ P) o#5=#4*[#1/#4]*[#2/#4]
3 U) b( h& L6 R* l7 R7 q8 l我又想把#11.#22和#5的式子簡化成9 a, Q% h. M7 i9 L9 o" x: {
#5=#11*#22/#4 結束 ! k& W7 g& \! a) O
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
