|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
/ J. b3 N" h, m7 ]- e/ \, v6 {2 f/ Y/ p/ ^! z' L( x9 ?
求最大公因數?/ S: u) P/ l5 S
求最小公倍數?
' s$ d, c$ B) P% q% g" }7 I! v; a( Y
#1=45.
0 K/ v. Q4 s# F" C( B4 @- z S#2=36.
% W' Z0 D) h4 x把#1和#2的最大公因數投入#4- p( X! P8 B, _+ `- j" s0 P; L
把#1和#2的最小公倍數投入#5
' V& Q$ h9 E7 ?( ^
: y J! ]* {2 {#1的因數有哪些:分別放在#101~8 |3 y8 y8 ?5 V) [' J. p
#13=101.
( q7 c: K; V% c$ H- s5 E#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
( A5 X6 ?. G' OWHILE[#15 LE FIX[#1/2.]]DO1
B' F' x; P7 b3 t5 t( S8 _IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
8 v+ ^1 E! t( o& j) \. K3 K5 `' I#13=#13+1.
6 u: f3 r! A& {#15=#15+1.5 a7 V+ @. O$ [# h# g# E
END1; A4 x# V! J' J' [* h
#[#13]=#1, j" `1 X0 R4 x' u
#15=#134 o( q1 |% }* P% p( ^4 ]
/ L5 }8 ~+ T" n2 ~) JWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)1 h; L& ~2 `3 e F; m( P
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]1 X2 ^9 F/ ^7 N/ s
IF[#4 NE #0]GOTO19 [0 _( N& u; b3 }. c
#15=#15-1.) G) d, U. t3 z$ X' B/ b6 E
END1
h4 O9 }+ i1 o- mN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)8 ~. l2 A) L: ]2 R) Y
#22=#2/#4
! y4 h& ]1 w' a3 d. M& E% @) m#5=#4*#11*#22(最小公倍數)
! l ?4 y% Z1 D7 U& RM0
$ b4 Z& B7 {$ p
6 ], ~3 K. u7 v, @5 G( }P.S2 F4 _' ?8 }5 U t" a! x$ o
我想把#11.#22和#5的式子簡化成% F7 ^$ Z1 `- J+ h- h9 e# G# e
#5=#4*[#1/#4]*[#2/#4]
4 w5 O2 [* Y7 k9 Y- N) P4 @& ^我又想把#11.#22和#5的式子簡化成
/ r7 u. \6 Z3 e1 ]! `#5=#11*#22/#4 結束
9 T3 B3 p9 {; \( W8 p/ U2 s# p |
|