|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
; I0 q, x% ?% [" a' W! |程式例：
( D% i; O6 t9 Z; L#1=1234.(將被分離的數據)4 D$ f7 x/ F1 Z/ E
#1=ABS[FIX[#1]]
# y+ o8 R) p9 B( L#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
; L r2 D' `3 Y W' \) j: F#3=501.(儲存到#501以上)8 j3 N6 l2 k2 x% M" |2 y+ k6 T* X
#10=10.(十的乘冪)1 U# F! W5 V: w' @; Z! m& }& h0 j
WHILE[#2GT0.]DO18 T- {1 d" |! Z# `" y3 [
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
; {% {/ g1 r/ v- z! M#3=#3+1.% t$ y3 p5 q9 J( M7 ^) r! b
#2=#2-1.* W8 y2 J8 V( i5 k3 p
#10=#10*10.(百-->千-->萬一直放大十倍)6 G6 B6 ?+ Z' ~1 ^5 V& ^
END1
! S! e. z) x- @( HM0) v: s. s& x w! x
+ R0 G$ V! s) C5 V p H結果：
5 e8 n$ ^4 A# q; i#501=4.
3 f5 r7 g. r/ W, J* q0 u#502=3.3 Y/ y" c- @. I- v2 @- a9 ?
#503=2.3 U! ?0 t: B4 r* K2 m
#504=1.$ j! W: T2 C* E
#1也可放入1011.類似2進制的運算
7 k+ O1 q( k2 {) K3 ]+ G5 _9 c, ]. O6 @0 J1 I7 D- Z/ m% R( L( |
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思