|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 2 @3 ?8 P( @- M- u6 T
& B3 m d2 C" Z+ I, n! q求最大公因數？: f9 j% l4 O/ k. ^
求最小公倍數？
n" _' L1 i |2 [
, A3 C# W4 S6 R! q8 ]4 L#1=45.
8 ~& S1 y: N* ]# w- S# C' \#2=36./ m7 S! R. U6 e) C0 x
把#1和#2的最大公因數投入#4# m9 x6 V, X% d3 R/ Q% t
把#1和#2的最小公倍數投入#5
/ S5 |$ O9 g! v/ D9 O; R
: J, f- ]- {! m4 _- z9 c#1的因數有哪些：分別放在#101～$ a! z! G. C: ]9 o/ k7 J7 S/ @
#13=101.0 B( X- g0 \$ Y* t
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)/ x9 ?$ {$ D+ c0 j
WHILE[#15 LE FIX[#1/2.]]DO1; k4 y7 J* e! K1 U' V. p( n
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
S# B: z; n8 s0 Z#13=#13+1.
) I y# J$ m/ q% }% p$ g# T& b#15=#15+1.
2 Q- c" C) T( P# ^END1: D1 b% `- a- D% H3 \9 s
#[#13]=#1
' l& c0 K! h" w. x$ g#15=#13
: @4 s; {1 y7 C7 t* ~+ w: S5 M
% {/ `9 U, O1 wWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了); Q' X$ G2 N1 X0 _* S2 Y: ^8 x5 Q
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]3 Y( n: t; K/ y% u* e, {
IF[#4 NE #0]GOTO14 g9 }9 ?, h! B3 i Y# J
#15=#15-1.
4 E/ G) N1 K: e0 J1 t- }END1
3 R% f# M6 G) H& B- l- \9 T6 WN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
. F! g' Y4 B- W7 k, X" N/ d#22=#2/#47 R" C3 ~: b8 `: c% T4 s6 G4 ?$ l
#5=#4*#11*#22(最小公倍數)
2 Q/ `) {9 Z, R/ m$ CM0* Z; r" a L& F9 \! {9 V
/ H) {- [$ ]4 YP.S& Z- N' K3 ?/ V4 i; X" D/ S6 @9 f$ z5 _
我想把#11.#22和#5的式子簡化成: g" O/ d. Y6 n- m! R0 n' N- r* r
#5=#4*[#1/#4]*[#2/#4] B0 h% }5 y) A2 V0 m& \( h
我又想把#11.#22和#5的式子簡化成7 R/ Y4 T1 C0 ^1 `7 x
#5=#11*#22/#4 結束 * ~5 ?$ w }6 C4 N' U, A
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
