| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 477 人关注过本帖, 1 人收藏
标题:请教多位显示问题
只看楼主 加入收藏
取消关键字高亮
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
收藏(1)
已结贴  问题点数:20 回复次数:5 
请教多位显示问题
我想在VFP的环境中运行阶乘的结果,在循环中前20个结果能精确显示,第21个起就无法精确显示了,譬如说我想得到1-30的阶乘的精确结果显示需如何调整代码(代码如下)
Q=30
I=1
FOR P=1 TO Q
I=I*P
?I
ENDFOR
谢谢先生指教
搜索更多相关主题的帖子: 如何 
2015-01-29 09:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
VFP中,只能显示16位整数,包含小数点显示17位

坚守VFP最后的阵地
2015-01-29 10:16
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 2楼 sdta
那先生我在想能否让计算到得的结果转化成字符形式,那字符形式要想显示的话30位甚至更高位不是都可以吗?
2015-01-29 11:19
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用fdxxhjc在2015-1-29 11:19:54的发言:

那先生我在想能否让计算到得的结果转化成字符形式,那字符形式要想显示的话30位甚至更高位不是都可以吗?
你试试 看行不
2015-01-29 11:24
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:20 
CLEAR
nRows=1000
DIMENSION  AR1[nRows]
AR1=0
Q=30
STR1='1'
FOR P=1 TO Q
    AR1=0
    I1=0
    L1=LEN(STR1)
    FOR I2=L1 TO 1 STEP -1
        I1=I1+1
        AR1[I1]=VAL(SUBSTR(STR1,I2,1))
    ENDFOR
    RELEASE AR2
    ACOPY(AR1,AR2)
    FOR I3=1 TO P-1
        FOR I4=1 TO L1
            N=AR1[I4]+AR2[I4]
            AR1[I4]=MOD(N,10)
            AR1[I4+1]=AR1[I4+1]+INT(N/10)
        ENDFOR
    ENDFOR
    FOR I5=nRows TO 1 STEP -1
        IF AR1[I5]<>0
            EXIT
        ENDIF
    ENDFOR
    STR1=''
    FOR I6=I5 TO 1 STEP -1
        STR1=STR1+TRANSFORM(AR1[I6])
    ENDFOR
    ?STR1
ENDFOR


[ 本帖最后由 kiff 于 2015-1-29 14:55 编辑 ]
收到的鲜花
  • fdxxhjc2015-01-29 15:23 送鲜花  3朵   附言:我很赞同
2015-01-29 14:52
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 5楼 kiff
先生您真神啊,谢谢,诚挚的感谢
2015-01-29 15:22
快速回复:请教多位显示问题
数据加载中...
 
   



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

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