|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
8 [: P% x: @2 y$ M' A. v. X程式例:
& U2 _2 }2 J" ?# U0 t#1=1234.(將被分離的數據)" Q( K. } {1 e E( \
#1=ABS[FIX[#1]]6 _/ x1 G- f, R6 b* ~! o* k4 O
#2=4.(幾位數,沒有大於4位用這招不劃算,一定要帶千元); ~5 f# [- O1 `0 d4 x
#3=501.(儲存到#501以上)3 H e" {6 G% _5 a7 n0 j
#10=10.(十的乘冪)
D0 u! N# t7 f+ R4 w+ WWHILE[#2GT0.]DO18 w" z: L) \8 v' y+ m
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]/ T; h% ~$ d8 U" V& w
#3=#3+1.
, l, y$ ]( }2 I#2=#2-1.9 o; Z3 a- m/ ~1 Y$ l0 H
#10=#10*10.(百-->千-->萬一直放大十倍)9 ?0 q" n0 s; ` k
END13 n9 V7 p3 p4 M- R7 z
M0* U6 C% b, S1 D9 b8 n. C9 m' r
2 \6 P" C* P$ f+ Q
結果:
+ E5 {; w2 T. Q' ^( z- M& R2 V#501=4.
+ {/ i) v1 y' R1 S. D# Q#502=3.
$ G0 N2 K6 |6 h/ @#503=2.
5 g' `6 J2 M0 H7 c* d#504=1.% {1 F# S) S/ J( C7 V, l
#1也可放入1011.類似2進制的運算
" I' o$ P, f4 X1 q% T
1 {5 t9 |, |+ Z( |6 c/ t請問你有其他更佳的寫法嗎?請提出來謝謝 |
|