|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 0 I& |! U* ~$ T8 ^( d7 u
/ d# E, P1 c- T% _
求最大公因數？
) s& }+ d, Y# N* p2 F' h求最小公倍數？, R4 d! c% S1 c
1 E4 ^0 n E# G! s, w2 E
#1=45.
0 ~* F7 \0 z, O/ H#2=36.8 V' i9 d( n6 I' B
把#1和#2的最大公因數投入#4
+ U6 [8 c0 b# c, [& K: @把#1和#2的最小公倍數投入#5
: F5 h0 I1 o# d5 l0 k! R
& h6 R. \) O% \. l7 X: l#1的因數有哪些：分別放在#101～# ^8 O% E* e' `, y4 N- |8 ~6 Z) t
#13=101.9 X6 j! F8 k$ B
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
+ T# ^* k: |% A# F) SWHILE[#15 LE FIX[#1/2.]]DO1$ ^, |, }9 C6 ~: R7 d' K7 J. M0 @
IF[#1 MOD #15 EQ0.]THEN #[#13]=#154 r& \' w: t/ }6 C0 z
#13=#13+1.
t+ q# ~3 x0 M- y* t5 K. F#15=#15+1.6 R9 i, A! E4 [3 ?. ^
END1$ l3 Q6 Z" y# g: W
#[#13]=#1% x; F; w8 T# {4 ]# A4 O9 |3 z9 w
#15=#13+ M. f7 q" {6 E7 G9 x
2 Z' E1 @* z' G& }5 C: R5 G
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
% c ]' \' _5 c( b5 v+ m( D6 _" SIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
3 C* i8 ]+ F$ H( F# q. x" g9 RIF[#4 NE #0]GOTO1
% w. G4 W+ Q4 P/ `7 y, m) t8 u#15=#15-1.
2 n! ]/ a1 u4 p! A5 w# L ?END1
4 e, `0 U. q9 k5 ^5 g' W2 kN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
3 U" J7 `5 a/ J5 o#22=#2/#4
+ ?$ [. G. i4 a) \#5=#4*#11*#22(最小公倍數)
6 Q/ ` U X! n7 t/ v5 vM0( v$ T3 A$ @) A2 J" K' W7 p" ]0 f6 s
0 K4 h3 T9 f" X5 D2 XP.S, e' P f8 h) T. R+ _7 {% M# R6 a6 i: W
我想把#11.#22和#5的式子簡化成9 W4 g( q, t1 L
#5=#4*[#1/#4]*[#2/#4]5 ]1 f7 q' ^& `" g; y- r
我又想把#11.#22和#5的式子簡化成
0 `' P; a4 K' ~# Z+ y#5=#11*#22/#4 結束 ; d" y! g `+ q/ `9 r
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
