|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯 # D6 l7 u' Z/ Z' }8 C& W
0 A7 z; ]% H3 U0 f求最大公因數？# g4 {% i8 |1 J2 U' s& r" `5 N
求最小公倍數？; {$ x' t9 V6 L1 x
" E9 l' `9 c/ o0 \. z/ a- s3 K* T+ d
#1=45.8 X) u0 N4 Y/ M
#2=36.
1 v: ^, N5 U9 T& W% p% Y3 `& R/ w: N把#1和#2的最大公因數投入#4# {! V' s5 e" W1 q
把#1和#2的最小公倍數投入#5
- S+ H+ B/ @: |4 K/ B& i; U6 F" O6 {, ^* N
#1的因數有哪些：分別放在#101～
/ G6 u0 ~% J6 F: ]/ t% w#13=101.
! J# i1 ]8 P5 N#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～)+ G6 I, t0 U! H
WHILE[#15 LE FIX[#1/2.]]DO17 v# d& m4 v' ~1 @
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
3 i% Q1 {' h% }#13=#13+1." O6 U K; P; E( Z: Q
#15=#15+1.0 @ G, q$ ^# g) T/ t0 d1 I
END1& Q$ \% ~+ [- O! F+ `3 ^0 k
#[#13]=#1- k" @4 ]0 l1 v" ~- [
#15=#13
0 k! D. }6 u3 C4 p S- U+ |
8 G: j( W Y" Q* A% I# mWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)% q7 S: Q( i, m, H( e6 j0 H+ a* A
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15] ~6 c$ K, |/ \5 J- D- {
IF[#4 NE #0]GOTO1
8 S2 Q2 L, V* l0 n2 L" q! Q' N+ U; S#15=#15-1.
) J O# e' E1 B( M9 f2 }END1
3 }) n- P! E$ l9 j2 QN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)8 Z( E$ f1 w6 ?: C3 m( I. i$ d/ R& m
#22=#2/#42 u: A$ y% Z! _. `! h
#5=#4*#11*#22(最小公倍數)2 x# w9 `" n- S+ ]. ~1 g
M0- T% b4 ^3 l5 \- ^- R
7 v7 G: `) `( I, h7 L. [7 Z4 EP.S" i; M* f& K3 k# f# \
我想把#11.#22和#5的式子簡化成
: Y# F2 `+ [5 o3 V2 W, ?: z#5=#4*[#1/#4]*[#2/#4]2 w4 P( O) X9 @1 E$ X/ |. T
我又想把#11.#22和#5的式子簡化成
+ u! I/ N, e& B) ?6 ~#5=#11*#22/#4 結束
% h; j2 p/ o/ v' g |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2013-2-26 21:19:24
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
