|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
分離數值，6位數8位數不必煩惱了，我幫你寫好了
7 c% o& x) w9 |: ^9 e \$ I5 y程式例：; D8 J5 N. L) w
#1=1234.(將被分離的數據)
5 O5 d1 U. h* C* C#1=ABS[FIX[#1]]
1 Q% n" N$ m* I8 j A% \ x* {#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元), o+ ?6 d8 K, k& s
#3=501.(儲存到#501以上)* i* N& K! I5 C }" y1 H$ w
#10=10.(十的乘冪)
& B4 V1 {$ r4 T9 @* t6 s/ OWHILE[#2GT0.]DO1, k3 x' ^7 e1 {. G( x9 S _9 j8 t
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]3 Z: x/ O+ K* f! T/ H8 u
#3=#3+1.
3 X7 t' A& q2 w5 J6 `9 }7 a#2=#2-1.
~: ]9 J7 R+ O( f& f' o+ ~, Y#10=#10*10.(百-->千-->萬一直放大十倍)
- n% B8 P% O( }% \& k7 K- aEND1
* ^/ N/ Q& P+ G. cM04 d# `6 p V/ W$ g4 t3 e/ W
& y1 [8 q7 N" R$ P0 C結果：
+ m. \ ^3 q% @- h4 i( V6 B#501=4.- ^8 L% F- x, }2 |0 H
#502=3.9 M+ L$ g: d7 I0 k7 S
#503=2.5 l: Y7 p$ P2 v3 }6 e% g$ D7 B/ S
#504=1.
4 D/ @$ T9 t. s0 ~9 L#1也可放入1011.類似2進制的運算
2 R. {+ W7 E( l: R5 A$ Q' g5 Z \; h# O& p$ r
請問你有其他更佳的寫法嗎?請提出來謝謝 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2013-2-8 22:21:31
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主试试 大于9位数的分解........这个更有意思