|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
" ]0 t* a2 \9 P) U0 u0 g* j* Z3 x3 d: w' m+ D% N
求最大公因數？) P O7 f- a/ J; _! ]
求最小公倍數？, Y0 D0 G" T$ y4 Z3 b: I
/ n, h" k. Z* i#1=45.
- ~( ]8 Q0 b2 @0 K* A$ s#2=36.% d5 s+ |. R# A5 }1 n9 m$ ]
把#1和#2的最大公因數投入#4
8 R/ K; ~. w: n/ o$ o0 f% T, ^# a把#1和#2的最小公倍數投入#5
1 q: n V' E2 L8 U! y7 }' B9 \7 j8 V' o8 \( v
#1的因數有哪些：分別放在#101～
7 H/ F: o3 J4 ?; Z ~0 h& f#13=101.
& T. u t2 z! }( h k#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
0 X/ A) c% t+ N" z6 Q1 l# fWHILE[#15 LE FIX[#1/2.]]DO1
) \' g, j& c% l. s( sIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
2 N/ j; G3 L' a. ^6 C( u0 i* ]/ u5 c#13=#13+1.4 F& C; l$ [( R1 q
#15=#15+1.4 }8 {8 b, m. g
END1
4 C5 N8 i8 @7 C5 l) |' N#[#13]=#1* W0 `3 y g' X/ V- ~
#15=#13
3 t, _5 b+ B) j( b. ]: I7 b' g# P" u( _
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)7 y! O) b0 ]& j' w J7 `) c- f5 ]# n( c
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]- K, x# m" H$ ~; g# i2 |
IF[#4 NE #0]GOTO1
1 S1 U, I1 o; ^9 l" r#15=#15-1.; ^5 Z p( v( U1 z1 E
END1
: o3 | ?2 a; B# Q1 MN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
' F0 p) @# c' {$ Z2 ^2 J( d0 L#22=#2/#4! h; g, k3 {& ^. W5 ? _
#5=#4*#11*#22(最小公倍數)9 o. X+ E7 U: X5 [ a9 [5 G
M0* ~2 ]7 i4 |+ j0 y4 `) g* h; K# m
' C; R/ u; B( t6 NP.S
; f l. O" i, | ]: x) ~. J7 b! p( {. P我想把#11.#22和#5的式子簡化成
5 d, d! h& a% P- j# R7 X+ a* f#5=#4*[#1/#4]*[#2/#4]4 W9 e4 r" A4 T6 z4 s2 R, Q7 i) D' `
我又想把#11.#22和#5的式子簡化成
" f3 V2 r; y9 b7 r3 Q#5=#11*#22/#4 結束
/ `& J4 l+ ^4 X |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
