|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑
5 l4 F5 a8 Y, k+ j8 i" q; \, Y; S M$ F1 ]* W( t
求最大公因數?
0 u+ d" }9 `4 C1 O( M求最小公倍數?$ u7 P5 c' |! \2 I3 ?; b
5 N5 ?+ [! K/ o& O#1=45. |+ i P b+ A: [7 R7 u6 F+ m
#2=36.8 v, D$ Z, U' k0 E9 X# i
把#1和#2的最大公因數投入#4/ ^0 \, ~) @: p: W, p" j3 O
把#1和#2的最小公倍數投入#5! l& E( G. Z- S/ d7 R6 D
' s% X, ]6 |/ d#1的因數有哪些:分別放在#101~
: f1 u9 p6 g; F, w8 }#13=101.
3 V- Y9 N* t; W# { s#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)
2 F6 M' K/ K/ T6 C @) R" r3 w" sWHILE[#15 LE FIX[#1/2.]]DO1
. W% D7 c- U, o& b, `$ r- hIF[#1 MOD #15 EQ0.]THEN #[#13]=#15$ U% K) W' F" ?3 ]
#13=#13+1." m, Y. _6 a6 n, |9 A" _& N
#15=#15+1. H* r4 s& F& R$ H6 @2 o& Q! s
END1
3 I) x/ h- v1 S( ?#[#13]=#1
( J( m+ Y; n& ?' [/ C: j, h, J# q#15=#13; @! ?* c/ g5 F$ M6 `% h, g
$ M" n8 g" _6 m" C. o2 F) _
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)& M( {3 m2 ]# v9 s
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
; q/ X+ D/ z6 e& C4 a) Z4 @, pIF[#4 NE #0]GOTO1& R6 l( _, O9 ]/ {: N: r, ~
#15=#15-1.
5 W, O5 _& O# k+ N3 zEND1% _& |5 j' m( M* O, {$ `7 e
N1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
0 q% F" x0 y' U3 L#22=#2/#49 ?5 r* X' J: a4 i4 ?/ P
#5=#4*#11*#22(最小公倍數)
+ r# S6 H( v% B, o8 R _7 r. KM0! a" { n. `. C% [ B
" b$ a, A4 Y! e! X x* C
P.S
! o, g/ x( }4 n/ J R我想把#11.#22和#5的式子簡化成
& K* Z0 Q5 L7 ?& z$ \8 G' I#5=#4*[#1/#4]*[#2/#4]6 X& f7 j6 x5 }. {
我又想把#11.#22和#5的式子簡化成9 B9 ?4 ^# _) w
#5=#11*#22/#4 結束
4 K2 q0 y0 I$ W |
|