|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
- L5 [- v( _& y4 Z
: `& |, A2 X% d% S' V+ G求最大公因數?
) v4 O* P$ g) {求最小公倍數?( M6 @& C$ ^+ g* J
/ P }: ~+ ?6 A& F& ?( _
#1=45.
9 \) j3 }; Z" `# U# f#2=36.
- b# R2 z5 D0 a9 k& q# R把#1和#2的最大公因數投入#4& D3 b% r# W: u) C) A
把#1和#2的最小公倍數投入#5
; N' X* B& N/ z7 `9 S L
& u0 J$ u z4 i#1的因數有哪些:分別放在#101~/ f+ y& h6 z1 U) A
#13=101.
F: `7 N! S9 d1 h% n G6 n9 o#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
$ S+ h# z' R5 u$ K9 V9 @( ^WHILE[#15 LE FIX[#1/2.]]DO1
% K/ U+ C+ F1 R; o# s3 N2 |( L% pIF[#1 MOD #15 EQ0.]THEN #[#13]=#15
3 w: M. [ `3 P3 v* R#13=#13+1.2 W, [* n" a$ V. u
#15=#15+1.( N0 c* j- Y; [5 ^
END1
h5 ] x" K% k" A) x#[#13]=#1: ]0 [, q5 W' F3 x0 X2 ]" `! Q
#15=#13: r' F! o n* N% E8 J6 z
1 {# i6 h/ @9 m E2 s
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
) k- M$ e) T8 Y: n6 z, FIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]1 c/ i7 T# E' o; B2 b' b. j
IF[#4 NE #0]GOTO1
* T9 a r" v6 Y; J#15=#15-1.0 P' f) d n* Q$ E8 v4 k2 A4 }" G
END1
6 x2 Q" v/ S# g2 ~) IN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
. q; f1 b. x, t; L! k#22=#2/#4. T. U$ ~1 Y. D2 O: G8 r2 b
#5=#4*#11*#22(最小公倍數)
3 f. @# z; F6 {9 k& ?+ H; C" IM0
) f! e# Q: @5 H/ y2 D2 ~- |6 D/ |6 y! [0 ]! U$ l0 b
P.S
8 q$ B0 c& s/ ]3 r: G我想把#11.#22和#5的式子簡化成* V% U9 a7 A/ o& c
#5=#4*[#1/#4]*[#2/#4]* {" W4 l( I% v2 [* y. X( [' }
我又想把#11.#22和#5的式子簡化成( k0 C& m8 o/ _% Y, v
#5=#11*#22/#4 結束 7 J) Q: w. H; U, D1 E
|
|