|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
& e, z, E5 T8 T0 a6 c6 J2 a! U2 M- }/ h+ X, @) z
求最大公因數？7 t& Q, m& S' E+ j# ^ O
求最小公倍數？1 {" S, ^% M3 x0 V! a7 A
$ H- c: m& v! O+ W4 U/ x! u
#1=45.
) |: _8 t1 ~& B! T) @! Q#2=36." Y b) Q% ~7 e& D6 h/ f
把#1和#2的最大公因數投入#4
) D; w% U- n% ]把#1和#2的最小公倍數投入#5
- s6 t) w. r, R! j' F, [6 X2 v9 s+ `4 q, x( o8 E F& B: Z- T
#1的因數有哪些：分別放在#101～' P! g G$ _' S& D* V1 g6 f
#13=101.
) B# n! F8 T' \6 o7 S#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)% L# T$ c. R- q" W# F, ^' t8 @0 X c
WHILE[#15 LE FIX[#1/2.]]DO1
$ @$ @3 g, ]* X8 L+ _1 ?7 TIF[#1 MOD #15 EQ0.]THEN #[#13]=#152 G" B; v% j3 N- M. ~) v, ^
#13=#13+1.6 X5 g. T& H/ Y7 ~3 g
#15=#15+1.& a# _2 G5 B' J5 w7 J' a7 z
END1% M9 ?, z! G1 G- U6 [+ M7 o
#[#13]=#1
$ I; p6 I9 b1 b% i! B#15=#135 H+ |" z+ J5 `/ Y# U0 x7 h
; j& w5 Z8 a6 y. F* V) M1 @/ E
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
, G4 u2 }2 _$ I$ ?6 L2 y/ i: i: U. JIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]3 X6 X& A1 e" S# \& }
IF[#4 NE #0]GOTO1, {9 Z: u# }! K; Z; [; A* ^
#15=#15-1. g- y! y& l" y8 y, Q: v( M
END1. s$ r$ b( x, o; M
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
2 j0 x% d2 c4 L. B( n) ^# c+ K#22=#2/#4
( x# Q8 d' i: {0 w- [9 P#5=#4*#11*#22(最小公倍數)$ P7 \" I( W4 H
M0
4 T$ y5 Q* {$ [: F, S2 U: e' L
5 z, D; e" f( _- g, _P.S
' C( [- L$ O! f1 P; ^3 c$ @我想把#11.#22和#5的式子簡化成
* j1 d) S3 B$ `7 n" t5 {#5=#4*[#1/#4]*[#2/#4]
+ Y+ c& j8 ~6 v% e9 K" j我又想把#11.#22和#5的式子簡化成* @. P5 p1 B% L% P/ p. ~ t
#5=#11*#22/#4 結束 4 `& a: j7 w* U
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
