|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ) Z3 O. W0 g- S, W$ x1 v
* p/ K( P. w! k, \6 V/ w2 e求最大公因數?
% |7 I8 u% p4 Q( g3 _求最小公倍數?
/ ~6 M' ?1 U; f2 `8 a" Q& C
: Y# t; q! S4 m#1=45.. U' \+ I- ^1 H) ?& _, m
#2=36.
8 |0 V1 d% S J; x把#1和#2的最大公因數投入#49 w$ x- c3 `" G: t
把#1和#2的最小公倍數投入#5
, e& A/ z* J g6 b4 U6 ?1 d2 O) y0 Q- s6 n' u
#1的因數有哪些:分別放在#101~
) Q8 t( H: p" I& B9 _6 w4 w#13=101.' E- T# C) A9 ]5 \5 O
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~): c, x, C* A* j# W4 V q1 R2 ?% \0 U- Y
WHILE[#15 LE FIX[#1/2.]]DO14 b8 q- [1 @6 X( `# ~* \& M. l* Z
IF[#1 MOD #15 EQ0.]THEN #[#13]=#157 I. K/ l/ z: V0 H+ v6 X d* a
#13=#13+1. S1 w2 D0 [2 m5 F: E) A2 P
#15=#15+1.
8 o6 x' U& _# z$ l4 UEND1
4 [( O, }4 c4 o' W% ^# C#[#13]=#1: f& h* w" o) y5 d
#15=#13
9 T1 a2 n+ E- ~- J9 \) e: J
" i/ n8 ], s, g+ VWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)" k0 t! [+ v4 B( }5 F
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15] v3 i9 Z: e! w& [& W& l4 k
IF[#4 NE #0]GOTO1- I5 C8 s! M. j3 `
#15=#15-1.
8 G# J1 m Z* [7 d% gEND1* h' K0 Z% S( {6 W- L1 Z
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
3 Y1 F* S- |6 G#22=#2/#47 `( _. @/ t- p$ g
#5=#4*#11*#22(最小公倍數)
: n8 u9 H; v2 x) E6 E- FM0
8 p4 r+ O0 M5 {+ ]0 x; u9 E
8 v3 h4 c$ T7 y0 k& k1 q: r3 RP.S
( e4 N6 p2 d' r# |1 p2 r! A* c0 ^我想把#11.#22和#5的式子簡化成
4 a- P7 l4 `" b, }# ?" K#5=#4*[#1/#4]*[#2/#4]
5 z; J2 }& r! N* L我又想把#11.#22和#5的式子簡化成7 n& O9 q. x# i) |
#5=#11*#22/#4 結束
" s5 X& H, X, ?1 T$ X1 ^ |
|