|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
7 y$ ~- b+ V* }$ d. `6 W2 j( o) y: {. ^ ~
求最大公因數？
; E. X( e/ u) C. \( ~求最小公倍數？2 c; I$ B$ {# Z! v4 i
) H. X( B- Q) Y6 F" v& S' ]
#1=45.% ^# d9 X- h1 W
#2=36." `4 z2 K& `: E- p+ i, o" I
把#1和#2的最大公因數投入#4
: P2 M8 x4 _! C1 U% t7 @5 `7 v把#1和#2的最小公倍數投入#5
1 F5 z# d) x1 b; W7 C; q# N# b; x3 k$ R- @) o) W
#1的因數有哪些：分別放在#101～
: D6 L M) H. }/ ~% }* g#13=101.
+ e. h. q- y* R; ^/ x: e#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)) i |6 w) J4 w4 b0 a/ X
WHILE[#15 LE FIX[#1/2.]]DO1
+ `) V! H9 E8 Y% C# B7 M& gIF[#1 MOD #15 EQ0.]THEN #[#13]=#15 u' ^# h( i6 v J/ Y0 S& E4 e! U
#13=#13+1.
% T9 s9 h' w9 N#15=#15+1.7 X. O4 E* s6 \7 f
END1( Z& B9 q/ R2 @6 d# B9 s+ {! c
#[#13]=#1
9 l# X$ z/ i! k! l1 ?2 K#15=#13
/ y1 }: I% V u$ I9 J- d8 W0 R( A \+ i
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)& k4 I6 W2 f% t/ M6 ~
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
9 p- x- V+ b/ Z3 U) G J# lIF[#4 NE #0]GOTO1" |. Z. k# Z1 u8 V( p; V% v5 H Q
#15=#15-1.% g( M' F( p) @
END1; v% ?- S) X7 ]# ?( g3 p
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號). Y3 R, s: N( `/ r& W' x0 l6 }
#22=#2/#4
3 V+ K9 `3 q' L% G: q. N. M) q+ X#5=#4*#11*#22(最小公倍數)
5 \! I% R, u+ D: y# T; KM0
% q4 T; k& A% a1 b& L% `, h/ V) ]3 V0 P( o# g, i
P.S
, J) D0 C8 j9 Y; b3 `我想把#11.#22和#5的式子簡化成
: R0 ^) c% b) s# A0 p. I4 H4 u) c#5=#4*[#1/#4]*[#2/#4]5 v0 s. Y4 ]6 j4 P
我又想把#11.#22和#5的式子簡化成' G+ c) r& C$ y8 I- W
#5=#11*#22/#4 結束
C, V' ` C4 X0 R9 A$ b& m |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
