|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 編輯 ) l0 K- I" Q' x, B& w8 _; C
7 f* D- x9 T# h, _. R Q
求最大公因數?( ]: |- y, t( {, R9 {: X
求最小公倍數?
. L' \ t/ I& M W: I! F+ x4 L
8 E6 T5 B# k7 Y% b#1=45.* z6 E) L5 V+ F- R& l* g
#2=36.
+ m8 Q+ s1 d9 F/ @, S把#1和#2的最大公因數投入#49 G0 t8 L, W9 x3 p
把#1和#2的最小公倍數投入#5
; x1 x8 J4 r0 {% S4 P6 j
6 I/ W4 L$ q4 A) }* H& B#1的因數有哪些:分別放在#101~+ V9 l+ s1 J }( Q+ K; u) _- k( b
#13=101.8 ~) {( M7 y/ c" J1 I* _
#15=1.(計數器,45去除以1-45的一半(就是1-22)能整除,分別放在#101~)1 @. k; K2 q+ z# e7 O# F" F/ s
WHILE[#15 LE FIX[#1/2.]]DO1' u& Z2 T* Q) X8 Z, B5 v
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
/ c* P! n# m: h#13=#13+1.* r: X) h% ] C* [& x9 F0 J6 i
#15=#15+1.
# A" j+ x, a+ u5 W8 h+ [! j* {7 rEND1
1 f U, E/ y" v#[#13]=#1
7 \; V* m5 {2 ^7 m/ `7 }% |$ U5 _#15=#13
% E) p% Z4 K( Q5 u' Q, o1 t0 M- |) N) C" L9 H) z, O
WHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)1 ?* P% h5 i3 r. H
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]: \& i9 t; z( L
IF[#4 NE #0]GOTO1
. _& c+ Z3 r9 Z! x0 P$ G' `#15=#15-1.
- X; d$ T J* x/ g: S4 ?END1
( K; Q7 D3 u+ }; vN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
. a1 o, E# x& q( u#22=#2/#4
! f' F! A b. r5 v$ w6 D#5=#4*#11*#22(最小公倍數)* l/ N( c5 ]7 O) x0 m
M06 ?9 M- b7 o+ O8 f7 j. v9 r
6 `$ ^& I7 v- J1 a. Y5 c% kP.S; c6 x( E; H) K! g. \
我想把#11.#22和#5的式子簡化成
/ d ?) K; x. X7 I. C- f#5=#4*[#1/#4]*[#2/#4]9 S% L* f: k" z" _2 G
我又想把#11.#22和#5的式子簡化成: _3 o" c5 O6 T" W
#5=#11*#22/#4 結束 + U- u t/ ~% A% G" s
|
|