| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 494 人关注过本帖
标题:求助,关于数组求倒问题
只看楼主 加入收藏
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
结帖率:78.26%
收藏
已结贴  问题点数:2 回复次数:4 
求助,关于数组求倒问题
我定义一个5X5阶的数组,比如下面所示,想将各元素求倒数,用到了以下程序,但是当数组元素大于1时,最终的求倒结果显示为0或1,但当数组元素小于1时,求倒结果显示正确!!!!是不是round()函数有误,请求帮忙找下问题根源??在互拜谢了!我是新手,没有多少积分,所以吝啬了点,希望大侠不吝赐教!
4     5     6     7     5
5     6     7     8     3
12    45    23    10    5
20    40    15    20    25
6     70     6    45    10
************************************
******定义5即阶矩阵a,并对其赋值*****
dimension a(5,5)
for i=1 to 25
  k=alltrim(str(i))
  a(i)=val(thisform.text&k..value)
endfor
****************************************

****************************************
n=val(thisform.text1.value)  &&从文本框取值,并且n小于5
dimension b(n,n),e(n,n)
*****生成矩阵b*******
  for i=1 to n
    for j=1 to n
      if i=j
        b(i,j)=1
      else
        b(i,j)=a(i,j)
      endif
    endfor
  endfor

*****生成矩阵e,为矩阵b中元素的倒数 *********
  for i=1 to n
    for j=1 to n
      if b(i,j)=0
        e(i,j)=0
      else
        e(i,j)=round(1/b(i,j),2)    ?????????
      endif
    endfor
  endfor

*********输出求倒结果*********
thisform.edit1.value=""
for i=1 to n
  p=""
  for j=1 to n
    p=p+str(e(i,j),6)
  endfor
  thisform.edit1.value=thisform.edit1.value+p+chr(13)
endfor
*************************




[ 本帖最后由 dochjp 于 2011-4-21 11:24 编辑 ]
搜索更多相关主题的帖子: 元素 倒数 
2011-04-21 10:59
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
收藏
得分:0 
求求你们,帮帮我!!!
2011-04-21 11:12
ahwgw
Rank: 2
等 级:论坛游民
帖 子:9
专家分:12
注 册:2011-4-18
收藏
得分:2 
放入SET DECIMALS TO
2011-04-21 11:35
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
收藏
得分:0 
谢谢啊,问题解决了。。。呵呵
2011-04-21 11:43
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
收藏
得分:0 
是这一步没有做好  p=p+str(e(i,j),6)应该为p=p+str(e(i,j),6,3)才对,3楼提到 的这个方法,我不会用,不过还是谢谢先

2011-04-21 11:45
快速回复:求助,关于数组求倒问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028563 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved