|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
分離數值,6位數8位數不必煩惱了,我幫你寫好了
, y2 k9 c7 O/ C) T3 W. K程式例:
H- s+ [2 L, \; f" F- i" W#1=1234.(將被分離的數據)1 L! S# R+ s E* V1 `
#1=ABS[FIX[#1]]6 k) r. b; Q: P$ z; a1 }
#2=4.(幾位數,沒有大於4位用這招不划算,一定要帶千元)
7 p, Q. K- m# ]* v#3=501.(儲存到#501以上)# s1 I$ G3 g( ?
#10=10.(十的乘冪)
3 r" ~( C+ [* } f: ]5 M) KWHILE[#2GT0.]DO1& ]: B; k+ k$ P1 P: Y' m
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
1 | X- f6 e" Y. r& L#3=#3+1.5 o% h' v9 Z5 ?1 q% k
#2=#2-1.
6 T4 ?3 c% Y! J# q5 o' [#10=#10*10.(百-->千-->萬一直放大十倍)
# E4 }9 S5 E" N: R* BEND1
- S2 j; z1 [. f6 p$ `- a7 Z2 [M0! a# }4 e- J6 Z! O5 {) G
0 ~8 e$ ~0 l: Y; M6 _結果:
* w9 Z$ _3 ]; ]& J1 D#501=4.
0 k( g( O/ B7 n' P% x4 R#502=3.
3 s9 L }; ]1 o I# x' h% v+ p: a#503=2.: Y4 i8 n( h2 W5 M |
#504=1.
9 _% S8 [0 j! @8 b! `1 I( z1 U#1也可放入1011.類似2進制的運算# V: T t& ]- G, _4 ]$ c4 z5 E
8 g- U6 o5 X* w# Y6 V
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|