|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了 0 j' k8 Q8 @) v3 y+ e9 |, S
程式例:2 t X1 A! Y+ `- k
#1=1234.(將被分離的數據)
8 x- g1 q1 |; P7 ]4 I#1=ABS[FIX[#1]]
% m' E3 C8 v( F' O" p#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
/ w6 {) U. y! H) u8 m0 I; U#3=501.(儲存到#501以上)
; e1 [/ B( M" w$ I/ `. f1 h1 E7 G#10=10.(十的乘冪)5 Y6 g- i1 s. I, _, P! r' O
WHILE[#2GT0.]DO1 U% d% ]7 O- |! V
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
5 j! Q* T8 o" X$ b#3=#3+1.
4 i$ z. ~5 n: W; a* T3 N#2=#2-1.7 i; C: W) C& _$ t" R6 A3 x3 y- x
#10=#10*10.(百-->千-->萬一直放大十倍)) t( p( o& |! b C8 u
END1# `* t$ V) r- r1 @; x4 R# g! a
M0
9 h2 a+ O. j# _5 [7 P/ q* U( d* e. w, ^* R( @
結果:" G/ G9 I* i5 ^% R0 w; O5 Y
#501=4.
6 p6 P0 j. A/ H) M5 L2 t#502=3.
" U, y6 B% v; z( T, \5 A. x#503=2.
; @! A7 v2 ^$ p% G* d#504=1.1 |: |$ [$ J6 G% @% C
#1也可放入1011.類似2進制的運算9 v" Q( ^6 C& a- y# L v2 _/ n+ h
* ~1 B- X4 Y% i9 P請問你有其他更佳的寫法嗎?請提出來謝謝 |
|