|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
& h8 h% x; n5 T
8 @5 u3 S9 Y$ o# e( {求最大公因數？
$ k7 z* _! `; t' f求最小公倍數？
( Y9 q1 X+ a4 T1 l; k2 C# m% a- p1 g6 `( C( O
#1=45.8 G) c7 Y+ p# e p& } l' q( E8 z! I
#2=36.
- r5 k0 Z7 h/ e) ~$ `9 u把#1和#2的最大公因數投入#4# B# `* {4 S6 D! Y( S b
把#1和#2的最小公倍數投入#5
+ \# }' ]( s/ h- R1 v
Y$ n# _, g- a) o1 ?#1的因數有哪些：分別放在#101～8 S0 Y0 Q0 F- a3 s9 @* {1 f
#13=101.
0 { Y# L2 Z" ^/ I#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
( x1 z, v- Z+ y% b# }WHILE[#15 LE FIX[#1/2.]]DO1! ^( H6 v# f+ Z9 C
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
+ O; J% d5 t# a7 g& H8 o) o7 O( i#13=#13+1.7 I# `+ h4 [% ^/ u
#15=#15+1.8 x2 M. {+ b) i% o$ b! i G$ p
END13 P2 ?% B$ Y" c& N$ f$ _- l8 X
#[#13]=#1- b% o |( q! U( Q: F2 v; q: }3 ?1 }
#15=#13
2 X, t2 v9 q9 C2 @+ k4 ~
3 b+ q k0 T' N4 | w3 K& `3 q% U5 bWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
6 h) {% a, ?# v1 y# YIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15] {# c9 ]' r5 D8 C: h: I
IF[#4 NE #0]GOTO1) G+ f: M# ~* p
#15=#15-1. O. Y- U& n1 @% L, H% V8 y
END11 h) L Q0 ]* t- w
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)) b2 z& E; M% q! x0 I9 @ g
#22=#2/#4
3 S# F+ W. K$ ?: M# z#5=#4*#11*#22(最小公倍數)
1 Y4 k Z. H" HM0
: s0 O: N3 _* G) G6 O* X7 q, o* m) I a, p
P.S2 [, A! x" @3 |/ \8 n& k
我想把#11.#22和#5的式子簡化成7 x: t; F: K% Q
#5=#4*[#1/#4]*[#2/#4]
, ?. ^( _3 P6 u4 @! ?1 E我又想把#11.#22和#5的式子簡化成$ @$ H4 k$ m! D. M* f# ]8 b
#5=#11*#22/#4 結束 9 q3 t1 E5 Z5 @7 M( G5 a
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
