|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
H5 N7 S7 x# [5 F, |! C5 W' ~% m* m; [* q
求最大公因數?
$ S+ d7 ]$ g5 I7 M求最小公倍數?# n( W ]5 h8 c
+ G7 T% D1 s! q: S
#1=45.
$ u: e' I! j, s#2=36.
; r5 B" U+ b! X* b( N把#1和#2的最大公因數投入#4
$ B v; \+ h, I6 E: C0 d0 D把#1和#2的最小公倍數投入#53 b. R2 n" E2 O* A% Z" i
( w! R. t0 \0 L. @
#1的因數有哪些:分別放在#101~
`" [8 x n2 v#13=101.
1 v* d5 H- h# x0 o- \; G#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
" r5 i8 n; x& V/ Q Y0 ?WHILE[#15 LE FIX[#1/2.]]DO1
r9 l0 Y8 e# E6 s4 zIF[#1 MOD #15 EQ0.]THEN #[#13]=#15; `9 x+ r" i, ]# T8 g' N
#13=#13+1.
) f$ t& R. E5 I4 K! I4 s; s# W#15=#15+1.
/ r8 H3 A- |& l+ b* Z; e6 YEND1% A" O1 V0 Z2 q/ ?4 ~2 U A
#[#13]=#15 T# U. r2 q* E1 e2 }; ]- b/ m
#15=#13
4 k2 m" R! H9 m) f: v5 h
) @! C" A* U6 r }$ F) Z& b0 k# n9 [WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
- o. b" ~$ e! w) p8 M% XIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]7 k6 Y" g( ^/ b; }
IF[#4 NE #0]GOTO1
D: I5 l R1 R' T8 }# C#15=#15-1.) q+ O6 z5 v( N+ {" \) G) Z- z
END1
* M0 x8 W+ o6 ~! y5 Z$ bN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
* x7 v6 C5 T. N* M# c% c#22=#2/#4 e5 A8 f2 E8 m) S: P. ^
#5=#4*#11*#22(最小公倍數)
/ ]) `' I' y! c a8 b0 C& {' |+ ?M0: ~ \( S6 @6 {3 k3 q
% g% P& Z ]2 c. `; K3 WP.S4 W7 z" u$ D# R7 O) J7 N2 f+ m
我想把#11.#22和#5的式子簡化成& ]- S2 A( A6 {* D G' w! p
#5=#4*[#1/#4]*[#2/#4]
8 z' C1 ? _) x0 |! [我又想把#11.#22和#5的式子簡化成* _% o- C0 s; _1 c5 o7 _
#5=#11*#22/#4 結束
8 J- \- ? T% R4 H: k1 q |
|