|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
0 f# [; ]' ~* b; N. D- q! i2 M* S
- Y% M2 O0 n. G. K' s# a求最大公因數？
* }1 \( b- x! S: ?4 ^求最小公倍數？; W$ o4 J# i' `+ X
. H4 N0 f6 O% l4 \( B7 Z" E4 Z3 r
#1=45.
2 k5 Z6 Q3 }3 U2 h, @) O#2=36.
/ y" Z% q$ ~4 T4 F把#1和#2的最大公因數投入#4* `+ M& v. }( n/ v
把#1和#2的最小公倍數投入#54 E5 u4 C9 [4 T/ G: d
; n+ S1 W* v: s( I1 U r: `- D, B
#1的因數有哪些：分別放在#101～
. a% q% ^) p/ d7 M/ t#13=101.
5 E3 i* V3 W3 x: M#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
. O) z% H. f3 z8 T6 H* ~9 ^WHILE[#15 LE FIX[#1/2.]]DO1* t3 A5 A) G6 Z" l# J& Z) F0 }7 w
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
5 V/ T# _) ^# L5 Q1 _#13=#13+1.) g, l! S }; I
#15=#15+1.5 L* \- J o2 ^$ F/ P; b3 V
END1' ]$ j* I' V* V( o! g
#[#13]=#1
+ N k9 U9 k: D8 p& h; o' N#15=#13' I! q7 [" E g; `' ]- H
* N( s( d5 h0 }( p( g6 {
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
7 N/ A5 @, K3 y: G* c! O3 ?2 TIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]8 o2 c5 f* n( e, v
IF[#4 NE #0]GOTO1+ D7 b0 X) F% A2 w# X! l3 C2 v
#15=#15-1.
8 r0 w. J3 W7 `" s: ?; Q7 PEND1: w2 E t: Q1 L* v! N; f
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號), \0 A" G: O+ R. H U }8 C
#22=#2/#4# q% H+ M8 a7 C1 A
#5=#4*#11*#22(最小公倍數)6 U- `" U% Y; C
M0
* A! P% T* S. R& h c9 O% Y8 v
5 [! I$ _: O) l3 k8 ^# mP.S
1 t6 @+ z6 U9 d3 y O" N7 H' f5 h我想把#11.#22和#5的式子簡化成
% `' z6 s8 v1 b( i& Q0 [#5=#4*[#1/#4]*[#2/#4]& J& N6 p3 Y; S8 i3 ?
我又想把#11.#22和#5的式子簡化成8 @% g% C1 z, @1 J. Z
#5=#11*#22/#4 結束
; z7 S# i P9 v: B- ` |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
