|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
( L8 |5 J3 J) s. n
0 G# ?5 O- G- s% J求最大公因數？
' O N+ U, Z2 B$ }求最小公倍數？
; g d6 L+ W& Q5 d8 e% E/ ^1 |
E" C3 E7 y# ]: e#1=45. f* J7 Q- b e/ W8 a6 v# b8 ?
#2=36.
1 V8 \5 J" B1 K5 \把#1和#2的最大公因數投入#4' I2 u3 y1 t3 Y0 q- C
把#1和#2的最小公倍數投入#5
) w' `' Y* _' I9 D# l4 b( |: s$ h4 r8 k ]" d j0 y" }2 Q
#1的因數有哪些：分別放在#101～
2 I! S9 c. s$ f* j) T: |0 e% {, K#13=101.2 K* T: e2 N+ B, t; @! n8 @3 M
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
$ G3 R# ^0 V2 z q9 B/ I, UWHILE[#15 LE FIX[#1/2.]]DO1% c+ R+ R/ N' _$ A
IF[#1 MOD #15 EQ0.]THEN #[#13]=#154 B7 J |( K+ {" g+ u
#13=#13+1.
' s, K1 l& c8 W/ A2 z( t ~* R#15=#15+1.5 l, S% q& A- [, y3 e3 L1 j
END1# N( b$ E% ~" ]/ W8 ?: l7 p
#[#13]=#1
" j+ x9 `9 K+ s( H2 f: r4 o' P, Q' k#15=#132 B- q( S& k, J) g" s% C
! a- d) Y4 D+ M6 T+ i
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)1 X' l2 f% s& \4 o9 Q! g
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
- P! A! V8 f3 T4 x4 iIF[#4 NE #0]GOTO1
8 n& `& l V4 W) W6 i#15=#15-1.( M5 R2 L. g V9 N6 y0 B$ g, @/ }$ D5 ?
END1
- E& M) A+ j7 s; ]N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號) t& u/ I( z% X# c
#22=#2/#4/ ~7 |) k" M4 _* G: k' [* h
#5=#4*#11*#22(最小公倍數)3 c; ^1 @: {3 e/ g/ [5 [: Y$ v' Y
M02 l$ h: k! x) D, r
0 u" T1 H, v1 {0 {- j) r
P.S
* y6 @' C, M- i0 D我想把#11.#22和#5的式子簡化成
$ Q+ Y! A& Q1 i5 O* T4 }% q#5=#4*[#1/#4]*[#2/#4]3 s$ s( C* E& f/ k2 G3 J: K
我又想把#11.#22和#5的式子簡化成. \3 K6 [% e0 \/ x% @! D
#5=#11*#22/#4 結束 ! Q2 J7 B6 L1 w( L
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
