imath 发表于 2011-5-27 22:54:46

抱怨9860不能数字转字符串

我晕，9860居然不能数字转字符串

l5h5t7 发表于 2011-5-28 09:56:03

大家积极写程序，可以以Reckon BASIC作为模板。

月与映之皮丘 发表于 2011-5-28 15:12:20

所以在MP10中我都用fn的。。。

Nero 发表于 2011-5-28 15:54:21

每位向下除，取整存到数组，再批量添加到一个字符串里。

imath 发表于 2011-5-28 17:51:29

好麻烦啊
要是ns的话截取数字长度就直接dim(string(a))搞定,而且无论小数还是整数,无论是表达式还是什么

l5h5t7 发表于 2011-5-28 19:16:48

试试我的转换程序：Number to String吧。
输入变量：T
输出变量：Str 1
工作区：List 1、List 2

imath 发表于 2011-5-28 21:07:06

不过完全可以放入Mat嘛,用List不好,进了统计模式乱七八糟的

chuxianbing 发表于 2011-6-1 20:31:04

程序太大了，浪费空间

chuxianbing 发表于 2011-6-1 20:35:03

可以写的更短

chuxianbing 发表于 2011-6-1 22:16:39

子程序INTS
INT(10Frac(I*10^(-J)))+1->U

主程序:将x的内容转为字符串Str1
""->Str1:"0123456789"->Str2
X<0->P:Abs(X)->X
1->T:X>=1=>INT(Log X)+1->T
FOR T->T TO -3 Step -1
Prog "INTS"
Str1+StrMid(Str2,U,1)->Str1
T=1=>Str1+"."->Str1
NEXT
P=>"-"+Str1->Str1

其中=>表示条件语句，->表示赋值语句
刚写好，还没输入计算器中，不知可不可以

chuxianbing 发表于 2011-6-1 22:25:12

主程序:将X的内容转为字符串Str1
""->Str1:"0123456789"->Str2
X<0->P:Abs(X)->X
1->T:X>=1=>INT(Log X)+1->T
FOR T->T TO -3 Step -1
    INT(10Frac(X/10^T))->U
    Str1+StrMid(Str2,U+1,1)->Str1
    T=1=>Str1+"."->Str1
NEXT
P=>"-"+Str1->Str1

其中=>表示条件语句，->表示赋值语句
刚写完，手上没有计算器，不知道可行吗？
页: [1]
查看完整版本: 抱怨9860不能数字转字符串