| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 869 人关注过本帖
标题:想写一个PRG,显示如内容
只看楼主 加入收藏
qq402716710
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2013-1-14
结帖率:92.86%
收藏
已结贴  问题点数:14 回复次数:5 
想写一个PRG,显示如内容
例如,我输入的是2           那么他就会显示99
                                          98
                                          97
                                          
                                          
                                          
                                          1

如此类推
我是这样写的
程序代码:
x=''
y=''
for i=1 to n&&n是变量,这次是2

 x=x+'9'
endf
m=val(x)
for j=1 to m

 z=z+str(m+1-j)+chr(10)
endf
?z
这样写,2或者3都能显示,没有问题,但是到10就会卡死了,如果我输入变量为1000,怎样才能显示到出来。
2013-05-17 01:06
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:4 
CLEAR
input to n
m=REPLICATE("9",n)
FOR i=VAL(m) to 1 step -1
    ?TRANSFORM(i)
NEXT

相互学习,互相交流,共同提高。
2013-05-17 08:05
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:4 
看你的意思是用户输入数值的宽度,也就是位数,然后显示从1到指定宽度的最大值。我想提醒楼主一下:FoxPro对整数是有位数限制的,不是可以任意宽度的。事实上,不仅是FoxPro,任何软件对数值都有最宽位数的限制,超过这个限制就会有问题。
2013-05-17 08:35
qq402716710
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2013-1-14
收藏
得分:0 
回复 2楼 qjbzjp
我就是想要这种效果,但是你跟我的差不多
CLEAR
input to n
m=REPLICATE("9",n)
FOR i=VAL(m) to 1 step -1
        ?TRANSFORM(i)
NEXT
但是现在的问题是VAL()后,字符串太长的会变成1.00E+...这样的,但是字符串又不能直接拿来使用,因为要不停-1,现在有什么方法能解决吗?

2013-05-17 10:17
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:4 
在给定数据小的情况,此题看来好像很简单。但是,当给定数据较大时,它开始复杂起来。数据巨大时,这是个很大的工程。
这好比寻找自然数中的素数一样,在浩瀚的天文数字中一直的向前找.向前找,素数越来越少了,但是终点还是遥遥无期 ...,无限的宇宙永远到不了尽头吧 ...
2013-05-18 22:00
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:4 
写这个用在什麽地方呀?

授人以渔,不授人以鱼。
2013-05-18 22:38
快速回复:想写一个PRG,显示如内容
数据加载中...
 
   



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

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