|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 & y) j1 z- L$ F8 M! ?$ u' a
7 A" D' ^0 v! x# z* N0 M& z: w( K求最大公因數？
/ h5 n9 j3 V! O6 O) H6 E8 r; Z& \求最小公倍數？" K$ _' g0 L4 { u
) a( b D" `# i" @ m6 M
#1=45.3 V1 Z% b# D1 s: @% H
#2=36.# S: c- _1 y$ ?/ t9 V& o
把#1和#2的最大公因數投入#4
5 p7 L* B9 O! {+ g9 I L4 W把#1和#2的最小公倍數投入#5
/ p/ g2 E. A9 Q5 M# H$ j8 Q' ]' _7 e# x7 ^5 U5 N8 X$ {$ B
#1的因數有哪些：分別放在#101～
/ n4 u. z% K3 ^0 Y#13=101., J" V6 Z0 \# O. V/ C5 C. v
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)' g; U9 X. [! `: A
WHILE[#15 LE FIX[#1/2.]]DO1
O! S/ n6 R# R- e2 i- t8 ^IF[#1 MOD #15 EQ0.]THEN #[#13]=#15* Y |4 H- p' o
#13=#13+1.7 ~. ]6 ?( b2 b
#15=#15+1.& K; L; j" |( ?3 T' g
END1& K# q7 Q- Q- a6 \( {4 P6 S6 b, j
#[#13]=#1% L* ^ E& `, z L( U/ D2 u
#15=#13 g% Y! Q1 {# E' V) H2 u# j
2 Q. R# {5 D. f, T; x7 H( y
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
% I# q4 d5 U8 ZIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]) k% ?) j. [, f6 B) d
IF[#4 NE #0]GOTO1
' p- {- k8 w0 _$ D' H#15=#15-1.
N) v. y! ?' R7 I1 ]2 NEND1
+ b* n+ @4 p3 ^0 e3 _* d$ Q. iN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
* @3 N& f% b' X1 S#22=#2/#4
1 ^& R3 l- P6 G* T#5=#4*#11*#22(最小公倍數)% M+ ?) o% j2 ?4 b
M03 a! J+ V8 q' r/ G% X4 Q
; D. z1 w" O4 ~8 ]
P.S
% g) O& R6 E$ U5 M. ~3 t我想把#11.#22和#5的式子簡化成5 v0 `- c5 @, {- ~3 E6 M4 `! R
#5=#4*[#1/#4]*[#2/#4]
' k, s, Z7 h& j" T' M+ F+ w我又想把#11.#22和#5的式子簡化成
; L5 P4 z6 R N- k. q7 A. o#5=#11*#22/#4 結束 0 q1 G2 {4 C" }/ c* _- q$ M8 X- Q4 P
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
