| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3942 人关注过本帖
标题:.prg文件不存在,求助啊
只看楼主 加入收藏
柳木澄泉
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-3-10
结帖率:0
收藏
已结贴  问题点数:20 回复次数:11 
.prg文件不存在,求助啊
图片附件: 游客没有浏览图片的权限,请 登录注册
这是源程序
clear
set udfparms to reference
input "x=" to x
input "y=" to y
declare m(x,y)
 p1(m(x,y))
 p2(m(x,y))
if n=n1
?n
else
?"no"
endif


procedure p1
parameters m
n=1
for a=1 to y
  for i=1 to x
    if n<m(i,a)  &&这里报错的
      n= m(i,a)
    endif
  endfor
endfor
return n

procedure p2
parameters m
n1=1
for i=1to x
  for a=1 to y
    if n1>m(i,a)
    n1 = m(i,a)
    endif
  endfor
endfor
return n1
搜索更多相关主题的帖子: 源程序 
2014-03-10 18:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:4 
数组M(X,Y)的值是什么

坚守VFP最后的阵地
2014-03-10 18:29
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:4 
prg文件名
2014-03-10 18:46
柳木澄泉
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-3-10
收藏
得分:0 
回复 2楼 sdta
就是这个问题吗?
2014-03-10 23:50
柳木澄泉
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-3-10
收藏
得分:0 
回复 2楼 sdta
没有设置数组元素的值,但是xy的值都有
2014-03-10 23:51
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:4 
m数组没有定义

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-03-11 08:09
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:4 
以下是引用柳木澄泉在2014-3-10 18:11:41的发言:

……
    if n<m(i,a)  &&这里报错的

除6楼说的问题以外,还有:
当i=1,a=1时,m(i,a)代表m(1,1),但它并没有被赋值,怎么比较?

相互学习,互相交流,共同提高。
2014-03-11 12:11
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:4 
就楼主所描述的错误来说,错误出在“p1(m(x,y))”这一行,应该改为“p1(m)”就可以了。但程序中还有其他错误,主要是定义了数组后,没有为数组赋数值型初值,这样数组的初值为.f.,在子程序中,“if n<m(i,a)”这一行因数据类型不同还会出错。

泉城飞狐
2014-03-11 13:21
柳木澄泉
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-3-10
收藏
得分:0 
回复 6楼 hu9jj
input "x=" to x
input "y=" to y
declare m(x,y)
*加了一下代码还是会报那个错误
for i =1 to x*y
   store i to m(i)
endfor
我用这个程序检测一下,显示的是1 2 3,说明m是赋值成功了吧?
input "x=" to x
input "y=" to y
declare m(x,y)
for i =1 to x*y
   store i to m(i)
endfor
?m(1),m(2),m(3)
2014-03-11 23:44
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
input "x=" to x
input "y=" to y
dim m(x,y)    修改这里
*加了一下代码还是会报那个错误
for i =1 to x*y
   store i to m(i)
endfor
我用这个程序检测一下,显示的是1 2 3,说明m是赋值成功了吧?
input "x=" to x
input "y=" to y
declare m(x,y)
for i =1 to x*y
   store i to m(i)
endfor
?m(1),m(2),m(3)

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-03-12 08:03
快速回复:.prg文件不存在,求助啊
数据加载中...
 
   



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

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