wxsh.net
当前位置:首页>>关于vfp 用外部内部过程文件三种方式编写1!+2!……10!...的资料>>

vfp 用外部内部过程文件三种方式编写1!+2!……10!...

这个还什么内部外部的?几句就搞定: aa=1 for bb=1 to 10 aa=aa*bb endfor ?aa return

主程序:Xa.prg Xa=0 FOR j=1 to 10 Xa=Xa+Xi(j) ENDFOR ? Xa 子程序:Xi.prg PARAMETERS N X=1 FOR i=1 to N X=X*i ENDFOR RETURN X 命令窗口输入 do Xa 计算1!+2!+……+10!的值为 4037913

* 给你个程序吧 Set talk off clear input"输入N:" to mN Nsum=0 For n=1 to mN Nsum=nsum+jc(n) Endfor ? nsum * 自定义函数 Function jc Parameter x S=1 For m=1 to x S=S*m Endfor Return S

input "输入一个正整数" to X S=0 FOR i = 1 to X S=S+jc(i) ENDFOR ?S PROCEDURE jc PARAMETERS j ss=1 FOR K = 1 to j ss=ss * k ENDFOR RetURN ss ENDPRO

CLEARSET DECIMALS TO 12LOCAL i, ee = 1FOR i = 1 TO 20e = e + 1/m_Factorial(i)ENDFOR? "e=",eSET DECIMALS TO 2RETURN&& 阶乘函数PROCEDURE m_Factorial(n)IF n < 0RETURN -1ENDIFIF n = 0RETURN 1ENDIFn = INT(n)LOCAL i, nFactorialnFacto...

clearset talk offs=0t=1for i=1 to 20 t=t/i s=s+tendfor? sretu

**t=1!+2!+...+10! clear t=0 for i=1 to 10 p=1 for j=1 to i p=p*j endfor t=t+p endfor ?"求t=1!+2!+...+10!结果为:",t

那只能调用相应的API函数了,自己开发一个肯定不划算

clear n=1 i=1 do while n

VFP是Visual FoxPro的缩写,是Microsoft公司推出的数据库开发软件。 Visual FoxPro源于美国Fox Software公司推出的数据库产品FoxBase,在DOS上运行,与xBase系列相容。FoxPro原来是FoxBase的加强版,最高版本曾出过2.6。之后,Fox Software被微...

网站首页 | 网站地图
All rights reserved Powered by www.wxsh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com