|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 . \- a+ ^" z5 n( v
- s; r: U& P, U) m. z# z
求最大公因數？
* E1 m' S* R# D$ s! b3 _求最小公倍數？- y: z9 q) ?( ^. l3 U. {6 i
- w) U; w! Y- t2 P J#1=45.
7 ?9 ?+ I+ }" r4 i0 t8 D#2=36.
* T0 b% r% ]$ C* N( f/ U7 A把#1和#2的最大公因數投入#4
8 W0 K! f1 B; C: M8 h7 \. E' c7 z把#1和#2的最小公倍數投入#5+ \ V, ~5 W# C2 v3 |% B8 C
/ X! V) t$ N; f#1的因數有哪些：分別放在#101～' \; Q3 S: U: S w, G( J" j( A
#13=101.* B: `+ S+ J; h) i3 y0 a" h* B
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)( c" S2 w7 w% p; l' S0 K5 L
WHILE[#15 LE FIX[#1/2.]]DO1
, q1 F% w7 P8 s+ o# ~; s; w! _IF[#1 MOD #15 EQ0.]THEN #[#13]=#156 K4 e* k2 W% {' q
#13=#13+1.
- m4 Y6 I0 j- l#15=#15+1.1 V$ u i# s6 K' l2 E5 G) S
END1
2 y8 l6 S3 h) R#[#13]=#11 v J0 W; y: G8 U Q
#15=#13
8 g& W) |& ?+ t4 S3 @2 G1 q4 c
9 S. X& G. p* U4 VWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
/ g( o6 o* ?2 r& x3 J5 V/ N- B1 _IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]9 g0 K' ^' N G3 B& [! x
IF[#4 NE #0]GOTO11 Y! a8 ?; y! k9 D$ M
#15=#15-1.* f9 N# N, y2 H& `
END17 ~4 r. ]5 e* ?# c/ x1 k A9 N' q3 s
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
U4 U; A* p& \/ p4 o% S7 Y#22=#2/#46 q1 ` J7 I+ c, q& T4 j
#5=#4*#11*#22(最小公倍數); z8 D& j0 h2 e6 Y* W5 I* y3 G, R
M0 c% `1 ]5 n& @* q* q: p
, W7 W9 ?% L4 z/ P5 S
P.S
- @) K. ^+ e% W# f' S我想把#11.#22和#5的式子簡化成& W4 S4 A) C, m; f
#5=#4*[#1/#4]*[#2/#4]
, n6 j0 l7 j% h: l+ s& `我又想把#11.#22和#5的式子簡化成
& t. V4 g/ y8 o5 S6 f2 B H, }$ {#5=#11*#22/#4 結束
" D+ @$ K2 A. o- P z) [/ E) [, O |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
