| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 899 人关注过本帖, 1 人收藏
标题:VFP编程问题
只看楼主 加入收藏
CandyunT
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-2-14
收藏(1)
 问题点数:0 回复次数:11 
VFP编程问题
怎么用VFP解决以下问题:
P=1*2*3+4*5*6+7*8*9+。。。。+19*20*21
搜索更多相关主题的帖子: 编程 
2012-02-14 18:37
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用CandyunT在2012-2-14 18:37:06的发言:

怎么用VFP解决以下问题:
P=1*2*3+4*5*6+7*8*9+。。。。+19*20*21
是按这种格式求值,还是按这种格式显示

坚守VFP最后的阵地
2012-02-14 18:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用CandyunT在2012-2-14 18:37:06的发言:

怎么用VFP解决以下问题:
P=1*2*3+4*5*6+7*8*9+。。。。+19*20*21
clear
LOCAL NI1,NI2,NI3,CNAME,NUM
STORE 0 TO NI1,NI2,NI3
CNAME=""
NUM=21
FOR I=1 TO NUM
    DO CASE
       CASE MOD(I,3)=0
            NI3=TRANSFORM(I)
       CASE MOD(I,3)=1
            NI1=TRANSFORM(I)
       CASE MOD(I,3)=2
            NI2=TRANSFORM(I)
    ENDCASE
    IF MOD(I,3)=0
       CNAME=CNAME+NI1+"*"+NI2+"*"+NI3+IIF(I<NUM,"+","")
       STORE 0 TO NI1,NI2,NI3
    ENDIF
ENDFOR
? CNAME

坚守VFP最后的阵地
2012-02-14 18:49
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
p=0
for n=1 to 21 step 3
    p=p+n*(n+1)*(n+2)
endfo
?p



[ 本帖最后由 qingfameng 于 2012-2-14 20:29 编辑 ]
2012-02-14 19:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用qingfameng在2012-2-14 19:58:36的发言:

p=0
for n=1 to 21 step 3
    p=p+n*(n+1)*(n+2)
endfo
?p
如果是求值,你这是最佳答案

[ 本帖最后由 sdta 于 2012-2-14 20:43 编辑 ]

坚守VFP最后的阵地
2012-02-14 20:39
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
谢谢楼上!我看你求字符串搞的不错,就来个求值补充吧。
2012-02-14 22:08
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用qingfameng在2012-2-14 22:08:18的发言:

谢谢楼上!我看你求字符串搞的不错,就来个求值补充吧。
谢谢朋友了,有QQ吗,我QQ261647352

坚守VFP最后的阵地
2012-02-14 22:17
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
QQ 号:1003715343 但是很抱歉!因为没时间,我不是经常开的,有信息可以发离线。
2012-02-15 11:25
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
程序代码:
CLEAR
nItems = 7
nLength = 3
nSum = 0
FOR I = 1 TO nItems * nLength STEP nLength
    nTotal = 1
    FOR J = I TO I + 2
        ?? TRANSFORM(J)
        IF J < I + 2
            ?? "*"
        ENDIF
        nTotal = nTotal * J
    NEXT
    nSum = nSum + nTotal
    IF I < (nItems - 1) * nLength
        ?? " + "
    ENDIF
NEXT
? "結果 = " + TRANSFORM(nSum)

授人以渔,不授人以鱼。
2012-02-15 13:55
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 
以下是引用CandyunT在2012-2-14 18:37:06的发言:

怎么用VFP解决以下问题:
P=1*2*3+4*5*6+7*8*9+。。。。+19*20*21

 
for ii=1 to 21
    lsv =iif(ii=1,"",lsv+iif(ii%3=1,"+","*")) +tran(ii)
endfor
?"P=",lsv, "=",&lsv
 
2012-02-15 14:00
快速回复:VFP编程问题
数据加载中...
 
   



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

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