|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 : d" F4 v9 ~# C/ ^7 f3 G7 t7 [
' h0 F$ L' ^3 u# J7 j) y
求最大公因數？9 `3 y _; V! b0 O
求最小公倍數？6 |& u1 D2 H9 v/ [
- S# L! R' g; R1 J. t
#1=45.
1 e3 t( d: `& p& ^1 v! A2 O9 }* t#2=36.4 q2 U6 x1 s( k. y3 C2 i: `3 H
把#1和#2的最大公因數投入#4! p i1 n6 Q7 N4 h* l0 {
把#1和#2的最小公倍數投入#59 E( W# y9 Q! l! e7 [4 f$ Y* u1 ~ T
& e* E% V8 C+ p0 J" C#1的因數有哪些：分別放在#101～
* g( N/ I; \5 I$ @' K6 d! d#13=101.
5 e% E3 S- U$ ]: Y$ p; z+ J" |#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
. _& n1 v, ?" x, ?; hWHILE[#15 LE FIX[#1/2.]]DO1
- `& P4 t" e& i `5 m) L4 ^IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
7 H Z# P& o+ j7 L& V#13=#13+1.
7 V2 v! \. K4 y#15=#15+1.
2 `$ }% b6 Y* k$ }$ _( _- h+ [END1% u' I3 m" v& b8 h% ?! _ E
#[#13]=#1. j4 N0 p6 |4 @2 Z
#15=#13) L! Q1 ^% U& y5 [' k
' @- X! o$ _, {& T1 C; q$ X, g. D% `8 _
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了) ?9 ~% I! E2 m* n3 N& W b
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
# N5 M# Z, {7 H: Y# q0 d% RIF[#4 NE #0]GOTO1+ S3 g4 {5 q( X7 B$ ]( r/ L" M7 g
#15=#15-1., @ r3 } e6 H9 L+ s* X( S
END12 k2 w. p2 f& I! v8 a/ m, x2 X
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)- z6 Z+ R3 ] U& _% M' _
#22=#2/#4
* c. F& J* e3 r, x3 U#5=#4*#11*#22(最小公倍數)2 ?$ z" q3 D! J# f5 X) A
M0
; {4 \" g# [- C, a$ h+ Z5 P3 d2 |/ {; i
P.S
/ U4 t v. l% z) E! `我想把#11.#22和#5的式子簡化成
: p" g0 E. z* q" v; E#5=#4*[#1/#4]*[#2/#4]
4 A w) _9 i; U$ @6 w) M' _我又想把#11.#22和#5的式子簡化成$ R' h& t) r7 ?1 b4 f
#5=#11*#22/#4 結束 2 H% \* `- |0 e9 E/ H
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
