|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 2 e: ?: F4 d" ^* Q
% [. o) I$ W/ ^2 ~ g8 h" {求最大公因數？
/ F3 x. H. \, E9 I3 N2 z求最小公倍數？
. r9 }; }+ f9 j& I7 [" T& c7 V. W+ l3 F1 y; V9 p
#1=45./ f2 s& q6 p! Y+ {( F. W
#2=36.# Q9 y& y! H! h
把#1和#2的最大公因數投入#4
7 h% U, g4 P1 r+ O1 q- g4 B把#1和#2的最小公倍數投入#5/ {8 w8 _/ E5 P8 P
% T' X z! |+ G4 l2 }1 a- N6 P
#1的因數有哪些：分別放在#101～
5 ~+ Z% n7 Y# N% M: g m8 `#13=101. l/ r& T, w0 j* w- s( H' s$ n
#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)/ E7 i+ _; f- D# ^2 f
WHILE[#15 LE FIX[#1/2.]]DO1
! {9 v P' E8 ^$ t: `/ w4 mIF[#1 MOD #15 EQ0.]THEN #[#13]=#150 l" n2 g- B% P
#13=#13+1.
% F1 K5 M5 n9 e/ w6 G$ d j( ?#15=#15+1.2 E# I5 a. i3 y6 T8 ~& v, E4 t
END1& O% W: u: L6 d% k9 o2 ]/ z
#[#13]=#1
! M. K7 v5 d3 F5 p2 b$ T9 t" \#15=#133 t5 O" n2 u5 i. R% W5 ]7 D
1 E V1 O0 G# S% Y0 a; L4 a7 F. PWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)
* _5 m% q' @7 F6 g* v/ zIF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]: D/ B$ \+ S$ M' h
IF[#4 NE #0]GOTO1: n; L/ G- ~+ ?/ x$ p6 K5 X% a9 K
#15=#15-1.# f/ o( Q$ K- }" }
END1
$ N( h4 x) y: \3 k% C4 sN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
8 l. o8 T( J- ~1 t#22=#2/#49 z& P) Y I2 a9 p/ U; j6 L
#5=#4*#11*#22(最小公倍數)) _# ?/ m; D- }
M0" w w* Z) m) i+ a. @ u
8 Z* Q& n: c2 g% ~+ A) ^+ eP.S
/ v) a/ t8 I' @我想把#11.#22和#5的式子簡化成7 j4 w# O, W; f# J1 R
#5=#4*[#1/#4]*[#2/#4]
, S7 ?0 Z7 [( u" m. p$ g我又想把#11.#22和#5的式子簡化成. ^& m. C( u- F# i! w/ _( }1 Y$ Z
#5=#11*#22/#4 結束
K$ F$ }" k0 t8 T |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
