|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
: B! P% m6 c; f1 n2 h% e3 f: p* |+ D( k, Z% T5 |+ ~/ R- T' ^; U3 Y
求最大公因數？
9 j6 K! p7 W, J) p8 u" I$ X求最小公倍數？
7 R9 R- V& P1 `0 H+ w$ ?
! N; U3 {- e+ {8 d7 u. @8 f#1=45.
& _% [, i, }: F( e#2=36.
. [; `: x# b& f4 X把#1和#2的最大公因數投入#4
/ _& R& y2 C! e6 I5 f# {- [4 M- [把#1和#2的最小公倍數投入#5, ^& h: p1 k. u
+ N: ? G* M$ b' ?0 w#1的因數有哪些：分別放在#101～
9 W% w1 |0 t G! g9 b#13=101.+ |$ s5 }* d/ c3 G
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)9 E% v8 ~* c `
WHILE[#15 LE FIX[#1/2.]]DO1- d, o; k# Z9 [- n
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
. }: ~% X3 C& a( U% V#13=#13+1.5 U M& }- o) n) N. b! r+ }
#15=#15+1.- L5 g; g7 D. C# e1 A( i5 v6 O$ d9 v
END1
& S2 U+ I- h" S+ ~! j, f, E#[#13]=#1: H+ d- C4 V: Y/ m/ j, l
#15=#136 O; y9 ]' j2 ?
( Q1 v; X% A7 A3 ?7 r
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
) b; J' D6 |) b5 R* T3 U, g3 @IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
) E* ?0 n3 F+ h) ^! J: @+ bIF[#4 NE #0]GOTO1
$ L9 ?+ `" E& m& B#15=#15-1.7 S+ q8 `+ |. u5 p% r/ @( R8 a6 D3 p
END11 e1 Z( `4 K1 Z& G; X
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)3 H; z# ?0 Q2 [! J, U; \8 _0 D
#22=#2/#4
; e: q8 z: J$ T" t4 q9 n% P6 P7 `% L#5=#4*#11*#22(最小公倍數)1 I& x; ]# I6 ]4 o
M0: [0 ?' q0 n* ?2 M- W+ O0 _, s: T
' O" c0 ^+ C2 ]+ Q! Q ?
P.S
& l1 Y' d6 z3 Y. u& x1 q4 [0 r' c我想把#11.#22和#5的式子簡化成$ _5 G8 l8 g7 T( _$ B) N
#5=#4*[#1/#4]*[#2/#4]- d$ W9 A, s- i6 Z
我又想把#11.#22和#5的式子簡化成, U7 m, p% j' t" l" |; `9 }+ V9 k! `
#5=#11*#22/#4 結束
8 p6 R2 j% N. B9 Z2 E |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
