|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
, ~! S% r: J4 n2 R7 c8 P0 \
' l. z H$ X/ Y/ l3 Z7 {; {9 N. [求最大公因數？! C, j: b1 B3 C$ Y+ o
求最小公倍數？) e( C6 h1 @+ V" k6 l7 q
8 |/ E% j+ |4 l
#1=45.2 j" i& n( |# R$ C, e l, j. b. e
#2=36.8 I) d; a9 `' p7 O; O
把#1和#2的最大公因數投入#4
" X1 |8 @* |$ }$ x- ~把#1和#2的最小公倍數投入#5
" E# [% ^8 r1 ]
# u$ ?: p) h1 M: V$ t, P#1的因數有哪些：分別放在#101～
6 T3 _4 M4 O, @+ h8 u6 B Q#13=101.
% ?9 Y. X6 ~' t4 {) U#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)7 |( A/ T* C: k$ \. N9 t" O
WHILE[#15 LE FIX[#1/2.]]DO1
* \/ L H" y5 T, \1 AIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
5 M; F4 \" d) Z; ?) ~#13=#13+1.7 A. R, V$ v% e1 ?0 a" E
#15=#15+1.
7 E1 w. g% _7 G/ P5 m% xEND1
# b) V5 c* C3 p3 a9 R) ^#[#13]=#1" S0 C. L- y. v' y
#15=#13 h4 o, f# D5 q$ k# C
& N& t( A7 p: H! w8 ~WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
' |. o2 c B* ]. JIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
- P2 y' ?) J$ d, m' PIF[#4 NE #0]GOTO17 q% { I$ M) k! J
#15=#15-1.- V( q; `+ t6 j" x: y; P! A
END1
% {2 |% r* d' Q4 lN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號), r+ W2 S( C3 j
#22=#2/#4
" r8 _6 l4 t2 G* u/ n7 Y( w7 P#5=#4*#11*#22(最小公倍數)' ^5 h' L7 p7 S6 ~9 `5 i# L1 R2 T
M0& i7 [+ e7 a8 q' _0 R4 |0 t. E
% e: [1 R2 J$ `# k' {2 `1 R7 T
P.S1 Z: s& B( n" u1 G% n' G
我想把#11.#22和#5的式子簡化成6 @8 X) I+ Y- R- O$ U
#5=#4*[#1/#4]*[#2/#4]* s& l6 i1 W+ \, C+ Q& H
我又想把#11.#22和#5的式子簡化成
' L6 g/ T- \/ o' L" J; ?- }% X3 y3 Y#5=#11*#22/#4 結束
" x9 Y3 S2 Z6 a3 ] |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
