|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ' w: A( Z @" S" Z* j
7 t4 O* N: d" H7 Y" B9 b4 a求最大公因數？ J: N: f* B$ J! Q! T9 i, ~
求最小公倍數？
8 _; ?$ G) ^2 u$ ]6 M5 y" v3 B
#1=45.
1 ?; ? n; f3 J% G" O2 v& c1 `5 r5 A#2=36.. @5 Q' i/ m& L
把#1和#2的最大公因數投入#46 n, f; _, D( ]3 W
把#1和#2的最小公倍數投入#5
1 L6 ]& Z. x0 L( }/ E
& e( B7 i `5 t$ x) Z5 p2 `2 k6 g#1的因數有哪些：分別放在#101～
j. J' L8 I) x. d; k* N5 s#13=101.
g. T$ Y/ Z$ J5 X) D. M. N#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
0 N% e5 X1 n8 T% pWHILE[#15 LE FIX[#1/2.]]DO1
4 @. x& w& \6 a, \IF[#1 MOD #15 EQ0.]THEN #[#13]=#152 c7 S: I0 \3 m+ g
#13=#13+1./ n. `5 u' A+ x4 I$ f
#15=#15+1.
4 f9 R& Y# E/ e: _+ gEND1# [1 b. M9 U5 V
#[#13]=#16 w* I( ~3 \( |' v1 V1 k' T; v
#15=#13
8 p/ q+ f. X( b7 r4 {
5 k! M9 P' [# j m, l; U0 Y5 ~WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了) P* G) ]: m% A8 P
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]) N+ G5 B) W4 ?/ ]. \9 j$ _, J
IF[#4 NE #0]GOTO1& m8 W9 _2 Z+ B8 a7 @) R
#15=#15-1.6 ]4 [+ q' H! {* Y; F
END1
7 ~) X0 c, n3 Y1 [' Q/ k; JN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)" Y9 t% {8 `+ f: A9 a- K2 U8 A6 t
#22=#2/#4' d) b& ~8 X$ [; \7 p% f7 W
#5=#4*#11*#22(最小公倍數)
% C" C5 G$ g2 ^) `+ OM0: O- c" R; e9 Y; U
5 F3 C) N4 J3 b0 H8 c9 `. I4 J
P.S
8 M2 d5 o" H) Y6 q% u+ f9 Y我想把#11.#22和#5的式子簡化成6 k' B, V F: N5 q
#5=#4*[#1/#4]*[#2/#4]6 ^$ |# y( w! Z
我又想把#11.#22和#5的式子簡化成
6 k8 F+ D' h* M' \4 Y# n' t#5=#11*#22/#4 結束 ; P% i+ S* y% n* ]; O6 y+ v
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
