|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯
5 p: a6 @( \5 s: [7 X+ ? j
$ h1 ~: q9 r! b3 W; ~4 T9 } t求最大公因數？- b0 F9 x$ J) Z2 D# o
求最小公倍數？6 O2 {) n2 d2 s
1 q: s; y# E8 }0 Z4 K* a# v" b
#1=45./ z2 l ^4 H) q5 W* L/ N
#2=36.- ^7 Z+ m: K" t1 _
把#1和#2的最大公因數投入#4& a" y6 g- B3 J: ^7 E
把#1和#2的最小公倍數投入#5
" a5 T; P* u1 j7 ~# h& p8 x2 ~8 m9 J3 H0 L0 O) t
#1的因數有哪些：分別放在#101～
$ ]( p9 a+ a3 k {; [. ?#13=101.8 w- a% ~" t+ J# S
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)8 y0 e }$ B3 ~8 j7 {' B
WHILE[#15 LE FIX[#1/2.]]DO1
7 E e3 N8 \. I }- Q( _ h1 l% B, pIF[#1 MOD #15 EQ0.]THEN #[#13]=#158 i: e. A+ ~5 Y( [$ [; a
#13=#13+1./ w7 V4 r/ K- Y o4 ^9 ^
#15=#15+1.0 X5 J1 s3 `- Q# W& v
END1
3 j0 v7 K9 ]1 e#[#13]=#1' d" d( R$ y$ ?/ K1 q
#15=#13
, j) [; ]' c7 c7 e7 c: l E. L4 n
0 C! z: S, [# r9 t+ ]WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
" i% K z; a" O7 Q/ V* v4 VIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]1 v( S k4 @1 i! g
IF[#4 NE #0]GOTO1
W, T9 [& P. v$ A6 S#15=#15-1.2 V9 y1 \1 n4 s, P
END1
, J( P! D* h( q% a( YN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)- i/ A; F" o9 z$ T1 d/ J2 b- R; C
#22=#2/#4
8 S4 ^4 H0 N2 c$ Q$ ~$ z#5=#4*#11*#22(最小公倍數)
# C0 }% k% R! |+ }: fM0! p0 ^% G: v$ A) f/ V% P B
+ `5 I3 D- D8 d5 T" Q" e; a
P.S- g* [" p2 j5 E5 M
我想把#11.#22和#5的式子簡化成, c/ L# i: K) s3 U
#5=#4*[#1/#4]*[#2/#4]
. ~9 h: z. q3 H: i我又想把#11.#22和#5的式子簡化成* t" g4 M6 S3 y$ w: O
#5=#11*#22/#4 結束 % U1 p4 ?# ]/ P; N
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2013-2-26 21:19:24
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
