|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 羅蓋仙 于 2013-2-26 21:23 编辑 ) p( E3 ^2 k" M% X' V# C
1 u( Q$ F k9 P! K: W1 h [
求最大公因數？/ Q8 c. P% m% u
求最小公倍數？
& u. D% E" ]1 w( I: u* B9 k5 N5 Y4 Y0 O* K' V- T/ w% v) C
#1=45.
8 Y0 ?" N4 K5 y0 O#2=36.+ q1 a6 b, ~( y, J, o8 A% {2 p9 W
把#1和#2的最大公因數投入#4
- }' F. q4 p/ n把#1和#2的最小公倍數投入#5# k! c8 P0 G" D2 s5 k
. s2 h7 H8 O0 Z/ k1 \$ W3 E
#1的因數有哪些：分別放在#101～
- F: S& y0 D/ e6 [8 M: q4 [#13=101.
- b4 N" ?5 y' W# x& u#15=1.(計數器，45去除以1-45的一半(就是1-22)能整除，分別放在#101～). ]/ A, z5 [4 K' J4 v E
WHILE[#15 LE FIX[#1/2.]]DO1+ K& p+ [( Z1 G; k; `9 t
IF[#1 MOD #15 EQ0.]THEN #[#13]=#15
4 W+ Q+ x0 D; [1 n# _: q#13=#13+1.
* \2 \+ G) ~' w8 U#15=#15+1.1 w# i: w! N% A( T4 ]( v4 M* |
END1
0 c Y8 u; l0 j: O, h#[#13]=#1' d* N+ t; y2 g0 e
#15=#13
; Z2 t Z) m& }( w
* r% c1 a" ~# K, b' y+ [* t+ qWHILE[#15 LE 101.]DO1(36去除以45的因數.能整除#1和#2的最大公因數就求出來了)8 z" P0 {- r9 G: t) ]! D2 C, ^
IF[#2 MOD #[#15] EQ0.]THEN #4=#[#15]
) b: ^6 |' F* F" G/ K1 I- |IF[#4 NE #0]GOTO1' `. h, v2 k7 R$ [3 k( N( p8 M4 ~
#15=#15-1.0 U2 V4 k; l- f/ c
END1
; w5 v/ @. a& ?% w# b7 R% O* [( BN1 #11=#1/#4 (#11和#22短除法是一個像大L的符號)
! d+ E. q! g3 C: i D#22=#2/#4& g* e6 J5 n4 K* w- ?9 X
#5=#4*#11*#22(最小公倍數)# S: [/ h0 H+ D) {# a( R- e6 l7 H% ?
M0
' L9 j2 z& u6 B; ^0 j6 Y
* p: u; Z! q; wP.S" a9 q2 j* M, U b' U+ e
我想把#11.#22和#5的式子簡化成6 L" {, s9 e- X/ G6 G- p+ i
#5=#4*[#1/#4]*[#2/#4]5 R4 t3 L. B1 |1 _; Q7 I4 [
我又想把#11.#22和#5的式子簡化成6 f/ [, Z1 d1 F( R4 A* {
#5=#11*#22/#4 結束
% e) h1 }: h) U+ R% W" ?6 m |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-26 21:19:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
