|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 % g0 y4 t' I* ?5 B
# o# a) f& ^, n' A8 M$ X V' q
求最大公因數？+ q' ~# w0 ~2 Z" E$ [7 ?& O
求最小公倍數？' ^4 A7 {: w; v0 s5 c
- D6 \3 S# h: s8 q1 y#1=45.
. F3 |& W; H+ l& P#2=36.
! @6 a7 h! E9 A7 }) ^把#1和#2的最大公因數投入#43 Y& L/ J# j! A+ H. {
把#1和#2的最小公倍數投入#5 M1 K2 g2 C) Z; E4 G! ~: X
5 }, t& \& P8 c. s0 I#1的因數有哪些：分別放在#101～
! s0 k' o& k0 ^3 c+ `7 r8 d#13=101.) H; f# Z. j+ Y$ \6 v
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)
2 o# f N* O* k. tWHILE[#15 LE FIX[#1/2.]]DO1
% I: ]+ @3 f7 `$ c7 c5 GIF[#1 MOD #15 EQ0.]THEN #[#13]=#15/ v) P5 u+ ^) ?6 Y$ [
#13=#13+1.9 I/ H+ M N+ U& F- w8 [
#15=#15+1.. k9 p3 H; ~1 P6 G% b6 v
END16 d5 R' Z% m+ T4 T
#[#13]=#1
4 N- R+ T" F1 T8 H$ C#15=#13. M5 @1 e* G; f1 I e* q ~3 `
Y' A+ Q, {, a- j' v' @WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)9 p! e D, |, c4 [$ I+ L% m! X
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
?8 F6 K/ L/ N- {: E- qIF[#4 NE #0]GOTO1. S1 A# o$ w4 t$ k
#15=#15-1.
! L6 h. P2 ^; z8 N* t* W3 oEND17 V2 @6 [1 v1 Q. p& `2 t3 r
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)" V5 W7 \) {0 b6 c4 G, L E
#22=#2/#4
/ m- b) w! h8 ~5 b' Q#5=#4*#11*#22(最小公倍數)
% `/ s+ _2 o3 U2 xM0: `( t0 | S) Z
6 L3 M. i; `' v) }/ k4 qP.S# U( C- w' ]9 |! A4 R8 u
我想把#11.#22和#5的式子簡化成
# _5 Q/ ~0 Q% S, H9 |% ]#5=#4*[#1/#4]*[#2/#4]
1 r# b+ V: Z- ^$ R/ }* H. H我又想把#11.#22和#5的式子簡化成
7 o6 e7 Z5 a: t$ \- g6 }+ |! R M#5=#11*#22/#4 結束 + m7 T% ?% c9 [# _
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
