|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
2 O$ z- [% h$ k. _% X2 U) {: Z& W% Y
求最大公因數?
! f2 U3 J6 g! c* o+ w" k求最小公倍數?7 G. s+ x0 D$ L- p
, h K1 l; O: ?4 w. I#1=45.6 [$ N: }& o# [5 O8 {; |
#2=36.
; p% d9 P4 z2 C# b+ X( G* j把#1和#2的最大公因數投入#4
4 f2 n0 E5 i( v) p5 ]1 j把#1和#2的最小公倍數投入#5" N) f7 ~6 G2 `2 {5 |9 y
7 F- a! `( ?/ g; v2 A9 y2 P6 Y#1的因數有哪些:分別放在#101~
( d# b" |2 |' N8 [#13=101.1 S, a3 v2 e8 ^
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
6 r$ J6 R2 M g d. K4 J# @, jWHILE[#15 LE FIX[#1/2.]]DO1
6 F1 g1 j" _# v, J* J XIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
( J& t/ u+ w! D. w#13=#13+1.
& c* |& m0 a2 I- D3 n `8 e! s#15=#15+1.
2 _5 z' L9 C, \5 c/ WEND1
. _: g: I7 a5 N. a#[#13]=#1
5 U! |8 F* h+ {& s, \#15=#136 S5 _! b3 |/ b1 i# R
$ d8 y0 }9 f3 g6 Z" W
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
1 H6 p; w: ]; ?8 dIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]6 B9 m6 [, `$ j
IF[#4 NE #0]GOTO1
% T3 _; M0 y4 T, G S. Y6 M#15=#15-1.& t* g" M) u$ n' P5 q/ J
END1! x Y1 Z- e: e
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
; t: E, g9 m; e5 V2 E#22=#2/#4
7 `, o0 M5 m! u& y% F* R#5=#4*#11*#22(最小公倍數)
/ W" ^1 E# ]; c& |: Z1 lM00 E& t1 L: D. h
/ ?0 B% ]' c, FP.S
1 |, x! K$ E) Z3 Q( [, T; L我想把#11.#22和#5的式子簡化成. |$ g. O2 x% D7 z! ]
#5=#4*[#1/#4]*[#2/#4]/ M/ W1 n0 f, `0 E$ P* T
我又想把#11.#22和#5的式子簡化成! p9 N% a% F2 w+ Z& t; M- v% E
#5=#11*#22/#4 結束
' b: [; t5 q# Y1 `4 e |
|