|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
3 A2 p4 c( z5 x% y( ?3 s9 e5 M0 T$ n- h q+ R; ?$ K
求最大公因數？' U' U# u2 m" i9 x9 V# c
求最小公倍數？
, n% ]+ x" g/ T: [+ [( G( S2 s+ v% K# j3 R+ P b: A
#1=45.
$ m; R1 X+ J* j1 f+ X8 @#2=36.
' s# p+ A* a+ p! p# T$ K把#1和#2的最大公因數投入#4/ P/ Y# W1 g8 r; ?6 s
把#1和#2的最小公倍數投入#5# s8 P% }* d4 X
6 v5 z/ ^8 h" G" t
#1的因數有哪些：分別放在#101～
+ y" t: s( l. Y% M: H3 |#13=101.
9 S& w' P5 f5 W4 c: f6 K#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
9 x; t) F! x. f% I+ l( iWHILE[#15 LE FIX[#1/2.]]DO1
) i% X* ]$ i, B/ }IF[#1 MOD #15 EQ0.]THEN #[#13]=#15/ d9 h1 b: C1 z+ j5 R3 Q1 i
#13=#13+1.
) A& @4 m& p- q4 `0 @/ F#15=#15+1.
8 ]- @- _- Y5 F* E8 q4 xEND1' c: P0 F3 `) P7 U; ` w
#[#13]=#1# e# u0 x* K/ S' j) Y6 e' q
#15=#13
2 g' R5 ^/ E. D' h) N
$ A% o8 E8 s" }$ R! H5 s/ PWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)6 s& L/ m. u2 C1 O$ I# |
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
) h ~+ N) _9 M- i, b* b2 V$ }IF[#4 NE #0]GOTO1
9 ^4 f, \" v! c5 v1 q: I% g#15=#15-1.% u( t6 b# q! [. h# R. h' d3 ]' |) Y
END1
6 S; c4 _: E, t5 a2 A" l! _* aN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
8 U4 R- A% p9 H7 {8 A! U#22=#2/#4+ F% M/ ^: {' F( k5 s- o
#5=#4*#11*#22(最小公倍數). f/ U. N2 y( I9 J+ q. U
M0 Y% a# d7 z* P# f- f# }
6 m% u6 j; N9 m& ~0 Y4 `7 E
P.S
2 ~9 W, c9 P) ^4 }我想把#11.#22和#5的式子簡化成+ r) c( k5 g. x2 k! A2 _
#5=#4*[#1/#4]*[#2/#4]5 \7 I1 y9 B- s. S O4 P4 M/ M: o2 p/ W
我又想把#11.#22和#5的式子簡化成
) l7 z9 A" Z; D9 x#5=#11*#22/#4 結束
% C' r5 b4 _, a |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
