CSDN博客

img ryhb

ASP心得(二进制转10进制)[第一篇]

发表于2004/10/6 11:30:00  879人阅读

分类: Web开发

<%
a=01101110'八位2进制数,随便改
b=Len(a)
m=0
For i = -b to -1
d=mid(a,i+b+1,1)
c=(d*2)^(abs(i)-1)
If (abs(i)=1) And (d=0) Then'因为0^0为1,但实际我们需要0
response.write c-1&"="
elseif abs(i)=1 Then
response.write c&"="
Else
response.write c&"+"
End if
If (abs(i)=1) And (d=0) Then'这个是运算结果用的,是一样的,我们需要0,多了一个1,键去它
m=m+c-1
Else
m=m+c
End If
next
response.write (m)
%>
这是一个2进制转十进制的代码
一开始老出现错误,发现
Mid()和Len()函数只有在左起不为零的一位数才开始算第一位,依次类推Left()与Right()也应该如此
进行更正后,第一个Mid(a,1,1)就不是第八位了,不过影响不大
自己总结得出进制某位数大小
应为其值乘以进制值的位数减一次方
比如十进制
10二位
进制值为10
那么十进制转十进制就为
1*(10^(2-1))其他位数均为如此
比如111
就是1*100+1*10+1*1
100是(10^(3-1))等等
二进制001就是
0*4+0*0+1*1
根据这个编出上面的算法
但是遇到了问题
我们的循环是位数从高到低
但是Mid()取出的值是从左算起
找了半天发现循环不能同时提两个条件
比如
for i=-6 to -1:m=1 to 6
就不行
结果还是根据一个简单的加法
i+b+1
i在一直变小,那么整个结果就一直增大,就解决位数值与位数方向相反的问题了
(因为越往左位数越大,但是 Mid()是从左开始取的
i只能一个既要满足位数的方次不断编小,还要满足mid()里不断变大来实现一直向右伸展)
下面发现0^0竟然为1
也就是二进制第一位是0时
(0*2)(1-1)
就为1,但实际为零
所以编了if条件实现特殊情况特殊处理
最后就是连加的问题
我一直想不出怎么实现在循环语句累计连加
如果m=c+c那么是很可怕的
而且不能连加,c会每次都被重新赋值
但是我想到m可以实现
每次m被赋值是累计的,他不属于循环变量
那么一开始m=0
第一次循环m=+mc=0+64
第二次循环就m=64了 m=m+c=64+32
就这样实现连加
还有我给m赋值是在循环语句之外,这样在循环结束时
就可以在流程外输出连加最总值
你不信可以放进循环里看看
他就成了局部变量而不是全局变量

回复:[原创]ASP心得集
其实我编麻烦了
当时也许昏头了
不要什么If条件
因为
c=(d*2)^(abs(i)-1)
有问题
应该是
c=d*2^(abs(i)-1)
那么只要一个If判断末尾不用+而是=就可以了
简化后是
<%
a=10100110
b=Len(a)
m=0
For i = -b to -1
d=mid(a,i+b+1,1)
c=d*2^(abs(i)-1)
If abs(i)=1 Then
response.write c&"="
Else
response.write c&"+"
End if
m=m+c
next
response.write (m)
%>
这样简单多了

阅读全文
0 0

相关文章推荐

img
取 消
img