|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
) ]2 p0 o+ w# e( G( k7 p6 @
z& @; i& i6 p( k, @求最大公因數？- Y% [3 o2 [1 B' W* ~+ J9 |
求最小公倍數？
4 L; f' R* Q7 ?( e4 q: z0 Z/ m8 l6 y0 y
#1=45.
8 J2 }: O' H0 W$ @#2=36.% U; J$ l; I8 @+ V0 i( \
把#1和#2的最大公因數投入#4
! C5 I! E. y- j& A: s: Z5 A把#1和#2的最小公倍數投入#59 C6 N6 t$ a4 d
6 H2 L& g7 e1 L W/ w; D
#1的因數有哪些：分別放在#101～
" Q' Y! O+ @3 @5 z# d" Z% U! P#13=101.
3 D$ L1 c, j9 ~#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)8 W* C0 \% I" K1 _$ i; V
WHILE[#15 LE FIX[#1/2.]]DO1
" E& Z& \; X- cIF[#1 MOD #15 EQ0.]THEN #[#13]=#15# }* i9 c. S8 C+ f
#13=#13+1.
% Z- Y% h" n C#15=#15+1.3 ]* Q& {# t4 r6 e; o/ Y: Z4 V' ]
END1
7 |& I0 J5 g5 ]8 K9 n; M! z3 }, a#[#13]=#1
0 D% t% D+ m1 w# k1 n% q2 e#15=#134 s7 |0 V+ u' k' \) B
, L; k+ x. H) F4 t8 l2 Y
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
. u! m$ K* Q1 g/ @ @8 aIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]! ^, g' X8 Z5 y6 ~# c' R' p4 c
IF[#4 NE #0]GOTO1" f! F% |5 ?3 v
#15=#15-1.
2 N$ u- G. D) @5 IEND1
- g9 k1 Z) V1 @: m# g! [N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
" T( j% X' |# C#22=#2/#4
+ e* J' x ]- t; Z3 H8 D7 S#5=#4*#11*#22(最小公倍數)+ U6 u& i. A; ^0 h3 i( u8 I, V5 J/ f- d; \
M0
1 h/ C2 M9 h% p* H; t$ i) D# N) D! ?2 v3 H, j5 S9 b2 M
P.S+ g5 }: m$ Z" q) b& h
我想把#11.#22和#5的式子簡化成& n$ b$ m# w2 ?: L; w
#5=#4*[#1/#4]*[#2/#4]' |! C! J: H# V X1 z! a) y F" @( ?
我又想把#11.#22和#5的式子簡化成
* [$ |9 @/ D9 S, p3 d' v#5=#11*#22/#4 結束
4 A& c# p( i1 e% S- J |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
