|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 $ f9 H0 R) n0 O1 c& U/ p9 K
$ d4 t6 F$ @* @0 D( A
求最大公因數？# ^3 i/ @! x4 k @' P
求最小公倍數？# ]4 \: X* J& U; `: H' M
4 n- q; z4 ^# F3 @
#1=45.9 [* ]- j( C* y9 R
#2=36.: V* t' ~4 A# A
把#1和#2的最大公因數投入#4
$ }2 ]4 S& N% Z把#1和#2的最小公倍數投入#5
" ]" z2 y7 t, V2 d5 G# B
# W* C+ s. c& y# t6 z$ V#1的因數有哪些：分別放在#101～- x4 o" J' g" A7 M, M; x1 A. \
#13=101.3 Y0 e1 l5 s' z0 N6 B+ g% t- e" D
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
5 x5 L- l3 c* N- U' fWHILE[#15 LE FIX[#1/2.]]DO1+ {9 a- q* o' k5 W6 f! {5 J
IF[#1 MOD #15 EQ0.]THEN #[#13]=#155 i3 e) E( M9 P( ^; I( s/ c
#13=#13+1.
& ^7 m# t% B! O& P#15=#15+1.
/ {( b8 S8 F% e# J( XEND12 F8 c: E8 s( g& R7 s6 z8 O
#[#13]=#1
8 K5 S- ~! @8 o' x+ A9 ^ ^#15=#130 a/ W" x) Y! J/ H3 r* {
5 z5 ^* F% i ]
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)8 z, }$ q9 G6 W/ i( ?
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]4 G, J; l) f- t6 o* p6 S% n
IF[#4 NE #0]GOTO1
K7 m) y2 b+ @#15=#15-1." v7 N/ \+ Q" h9 ?; Z
END1" M3 i/ }: N& g6 e7 h j
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
/ h- ^9 a, X5 i! b" n+ X#22=#2/#48 K9 m& y$ q8 L# O7 T" a2 \0 v
#5=#4*#11*#22(最小公倍數)9 }! X: S+ h/ {% q# }: H) `
M0
5 A+ O7 {9 r# n# o6 d% X2 P0 D4 @8 r/ l q5 i
P.S
; D9 G0 H3 u/ R U6 G+ G我想把#11.#22和#5的式子簡化成& q8 J3 s9 |( }8 o
#5=#4*[#1/#4]*[#2/#4]3 p7 H( z" T; p- _; b0 Q
我又想把#11.#22和#5的式子簡化成
) t; z) u# E" |4 P#5=#11*#22/#4 結束 / }8 D# E4 @5 `# Y3 d7 [* x4 X
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
