| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 898 人关注过本帖
标题:发现一个怪问题:43480010002696700+8=43480010002696710
只看楼主 加入收藏
CHB123
Rank: 2
来 自:湖北
等 级:论坛游民
帖 子:100
专家分:68
注 册:2012-7-2
收藏
得分:0 
那么请问:VFP9.0的性能指标呢?
2013-11-01 13:02
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:0 
以下是引用CHB123在2013-11-1 13:02:22的发言:

那么请问:VFP9.0的性能指标呢?
在数据可处理的范围方面,9.0没有什么变化,主要是改进了语言方面。
2013-11-01 16:15
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
这个其实是字符串,而不是数值型的,主要还是用字符串的游戏规则去处理.

例如 用 100 个 99999999999999999999999999999999999999999....  递减 1 的过程 (输入100产生100个9)

SET ESCAPE OFF
CLEAR
LOCAL str1
input '请输入一个正整数:' to n
CLEAR
WAIT WINDOW '按 ESC 退出...' nowait
DIMENSION arr1(n)
STORE 9 TO arr1
DO whil .t.
    str1=prg1(@arr1)
    IF str1==REPLICATE("0",ALEN(arr1))
        EXIT
    ELSE
        ?str1
    ENDIF
    IF INKEY()=27
        EXIT
    ENDIF
ENDDO
WAIT CLEAR
RETURN

FUNCTION prg1(arr1)
    LOCAL i1,i2,i3,str1
    i1=ALEN(arr1)
    str1=''
    FOR i2=1 TO i1
        str1=str1+TRANSFORM(arr1[i2])
    ENDFOR
    IF str1<>REPLICATE("0",i1)
        IF arr1[i1]=0
            arr1[i1]=9
            FOR i3=i1-1 TO 1 STEP  -1
                IF arr1[i3]=0
                    arr1[i3]=9
                ELSE
                    arr1[i3]=arr1[i3]-1
                    EXIT
                ENDIF
            ENDFOR
        ELSE
            arr1[i1]=arr1[i1]-1
        ENDIF
    ENDIF
    RETURN str1
ENDFUNC





[ 本帖最后由 bccn0906 于 2013-11-1 16:51 编辑 ]
2013-11-01 16:18
sdoger
Rank: 2
等 级:论坛游民
威 望:1
帖 子:27
专家分:12
注 册:2011-2-15
收藏
得分:0 
变量定义有范围,同意/
2013-11-04 14:41
快速回复:发现一个怪问题:43480010002696700+8=43480010002696710
数据加载中...
 
   



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

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