|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
9 m% [( X1 y$ R2 v. M1 V9 x3 e$ m8 n' S8 h7 A- _! \; @* T
求最大公因數？
4 ], d. \; P: O+ B7 V" e8 d求最小公倍數？* {/ _7 y5 a8 l6 K
$ U2 j% s/ Y1 T/ u S& Z1 O
#1=45.
5 m5 L1 G- q$ i" C1 {& H q#2=36.
: f) s7 i9 Q0 Z b Z" ~/ M" j: @把#1和#2的最大公因數投入#4; y l4 M8 ~; l0 ?" ]
把#1和#2的最小公倍數投入#5
' y' ?2 `# i: [2 R( C0 y* K' j0 j$ q* x: M& J
#1的因數有哪些：分別放在#101～
( [' ~4 l! F+ T; @( |9 t/ L#13=101.7 T- g: C; v; y/ J3 g: L. g' b
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)$ H& H8 ^# [9 c0 w# a, C: H
WHILE[#15 LE FIX[#1/2.]]DO1
' Q" F% S+ ?* F3 LIF[#1 MOD #15 EQ0.]THEN #[#13]=#15; U: e9 E7 E }% w& u! F
#13=#13+1.
! |, W/ b1 }1 \" @1 X#15=#15+1.
, V; a+ c, q5 R* G' o' Z; vEND1
3 u$ p5 p3 \! T0 W0 a9 c#[#13]=#1
5 @" q( a- w. q) O# E# M: S#15=#13
1 c# {/ N, P' L o3 }: K. n2 N+ n( ?
/ y- j) {$ }% T; H7 x& KWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)( X, \, J& J! @5 n. d) c2 g$ S
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]) H% _. r# y; O8 ?! T
IF[#4 NE #0]GOTO1" e: |5 T8 G! g5 H b" H3 d
#15=#15-1.
( g& w" c- _1 i. c. bEND1- E, `" Q& {* B4 Y
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)# _. n' e6 d1 l* W9 ^
#22=#2/#4
- J0 c1 E1 ?9 X" e' J X2 u#5=#4*#11*#22(最小公倍數)$ f2 p5 c( B+ h! }7 u0 `3 }
M0
m7 P+ ^! B, y2 \0 m8 R
) `) F( {3 n3 D# r) MP.S* X, s4 ?8 ?" ~, t( w
我想把#11.#22和#5的式子簡化成" W5 m9 I5 v( J0 b% ~ F0 D
#5=#4*[#1/#4]*[#2/#4]! C! t( Z* w# L, ^7 @5 |/ ~0 \+ g
我又想把#11.#22和#5的式子簡化成
# q% u2 x) O/ K$ ^#5=#11*#22/#4 結束
0 l% n& s8 j" L2 _, E |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
