|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 * R! f' T9 \8 m) \9 \: o
7 S" Z% D0 I; \. B* l: k: ]
求最大公因數？" ~: u9 P7 g8 _9 H
求最小公倍數？
$ y# B6 W' W* ^4 D
5 e+ L$ F" Y8 V$ h; G+ H% c3 D* Q1 ]#1=45.
( l! u- [. _( X: P% g: f5 `#2=36.6 Z$ V/ Q$ |& a; x
把#1和#2的最大公因數投入#4
- U6 m) |8 J3 I/ @9 f3 p把#1和#2的最小公倍數投入#5- c' E( L1 d5 F) O
* G, i @1 x% d/ o4 I, r+ c( G" V
#1的因數有哪些：分別放在#101～
; m% }, s) z4 k5 S#13=101.# ?4 Y5 b C) ^! G! c/ M
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)$ T$ H- R- u+ j3 }0 e# X
WHILE[#15 LE FIX[#1/2.]]DO1
5 G l, N2 e, d) GIF[#1 MOD #15 EQ0.]THEN #[#13]=#151 {0 D! y+ ~" z$ U6 D; r& H p
#13=#13+1.
! \6 k; `" i6 ^* _( b#15=#15+1.
" P9 i" M$ J7 e5 E1 sEND1# h+ S6 b7 a) h0 ^5 @1 d! S
#[#13]=#13 h2 {; P, B, I: T q
#15=#13
! y* R$ ^$ F$ C8 o" }% e5 {
3 E, l' c; q3 u. zWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)( y$ \) H$ L0 q5 H8 p
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
& K' _& j$ T. @8 s( l6 p( L% bIF[#4 NE #0]GOTO1; ~& ]: F# F4 G
#15=#15-1.& {- e- O5 h1 r; r3 g. A2 C
END1
: g' `/ R! }0 O) ~: O0 C% E$ YN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)- w# Q+ m* t& u5 {$ C, U( |: Z. {
#22=#2/#4, ]2 I6 o5 Z5 @6 Q' t+ ]
#5=#4*#11*#22(最小公倍數)
5 h" x0 E+ O) k! \+ g; EM0
% y* w& m6 F) N6 F/ \, N# s" H6 r* W9 v; F
P.S
- x" c" v# W) W* C! {# V我想把#11.#22和#5的式子簡化成+ u: G& J8 z- A6 ?, [1 b
#5=#4*[#1/#4]*[#2/#4]8 i! Z; ~$ s6 j6 D# R& s
我又想把#11.#22和#5的式子簡化成 P: M; ^* h$ d2 j/ H
#5=#11*#22/#4 結束 1 {" }3 f/ x- W6 [
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
