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

s=0 for i=1 to 10 s=s+myProcedure(i) endfor ? s ****自定义过程 PROCEDURE myProcedure LPARAMETERS myPar1 y=1 for j=1 to myPar1 y=y*j ENDFOR return y ENDPROC

**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

* 给你个程序吧 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

sumi=0 for i=1 to 9 do sumi=sumi+i*(i+1) next ?sumi 以上这段保存为.prg的文件

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

clear s=0 for i=1 to 10 m=1 for j=1 to i m=m*j endfor s=s+m endfor ?"s=1!+2!+·····+10!=",s

&& 代码如下: CLEAR SET DECIMALS TO 12 LOCAL i, e e = 1 FOR i = 1 TO 20 e = e + 1/m_Factorial(i) ENDFOR ? "e=",e SET DECIMALS TO 2 RETURN && 阶乘函数 PROCEDURE m_Factorial(n) IF n < 0 RETURN -1 ENDIF IF n = 0 RETURN 1 ENDIF n =...

CLEAR SET TALK OFF s=0 i=0 t=1 do while s

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