|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯
/ D2 j E, R+ \6 ^
. \7 n# v$ Y% G3 q& J# Q+ T, |求最大公因數(shù)?
2 K2 S( @ f' U) k$ ?3 X/ A求最小公倍數(shù)?* x; U" r L2 i/ v; X
' }7 {6 J4 Q M* i#1=45.
; {% v( w {. E- T+ b#2=36.
0 ~; G1 J" ?7 _. S把#1和#2的最大公因數(shù)投入#4# H; U* l u7 p& M+ S
把#1和#2的最小公倍數(shù)投入#5
1 G* l- z! J. w5 y
/ S4 Y* F8 z) o$ e#1的因數(shù)有哪些:分別放在#101~; t2 t* d9 X q2 e; c$ {* _
#13=101.
5 _8 O+ L$ I: X#15=1.(計數(shù)器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)# f6 D" G3 d$ w! j5 M( [
WHILE[#15 LE FIX[#1/2.]]DO1
7 j/ s* n' j3 Z; W% ZIF[#1 MOD #15 EQ0.]THEN #[#13]=#150 u( B+ F3 u q4 w& j! n0 }9 I# ~, S
#13=#13+1.) T9 Y, C3 B4 A
#15=#15+1.# b ]8 c) }" n, d5 V; C, ^, X
END1
k) f. H, G5 [2 y#[#13]=#15 F- f, J/ \& V; L& F
#15=#13
' `1 [, _0 k( _5 n/ P8 v2 G
6 L/ } n0 K# E# a" b+ QWHILE[#15 LE 101.]DO1(36去除以45的因數(shù).能整除#1和#2的最大公因數(shù)就求出來了)
/ w V2 O# m5 {6 qIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]% n( f2 A0 n! @7 [
IF[#4 NE #0]GOTO1
8 A# m$ z: Z* F/ c1 m#15=#15-1.; h; q% \, S2 h% n2 p8 s2 _" t
END1& O3 q1 q, a# I1 k; R7 l+ d) X
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)3 x0 t/ c5 b- m0 \! I
#22=#2/#4% l: ^$ i6 V0 A9 f
#5=#4*#11*#22(最小公倍數(shù))
9 }! h- b- L7 AM0; s6 `* P" t6 x( u
# R0 K/ g. j4 ]/ ~! vP.S- l6 G. C, Y# n, _# H1 o# i
我想把#11.#22和#5的式子簡化成; v# T# c# J9 Z0 a
#5=#4*[#1/#4]*[#2/#4]
* g" _# K y6 s; q我又想把#11.#22和#5的式子簡化成" ]" @* U3 P/ t9 o5 {' z9 `- f
#5=#11*#22/#4 結束
( U0 k0 d7 o& K$ Q, C |
|