VFP编写程序,计算1! 2! -- 10!百度作业帮
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/01 15:40:30
1.用dowhile循环写出计算100以内奇数和的程序clearsettalkoffs=0i=1dowhilei
fora=1to9forb=1toa?str(a,1)+"*"+str(b,1)+"="+str(a*b,2)+space(2)endforendfo
这个是不是这样的思路n,m是要输入的数字,输入后运行就得出结果clearsettalkoffinput"请输入n值:"toninput"请输入m值:"tomlocalpp=nfori=1tomp=p+
s=0i=1dowhilei
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
sumi=0fori=1to9dosumi=sumi+i*(i+1)nextsumi以上这段保存为.prg的文件
这个还什么内部外部的?几句就搞定:aa=1forbb=1to10aa=aa*bbendfor?aareturn再问:我就是要这三种方法
*利用VFP编写程序计算100~500以内的所有奇数的个数及所有奇数之和.CLEARSTORE0TOjsh,jslFORi=100TO500&&如果不包含100,则将100改为101\x05IFMOD
数值型的直接相减就行字符型的用val()转换成字符型再减
clears=0fori=1to99s=s+(-1)^(i-1)*i*(i+1)endfor"1*2-2*3+3*4-4*5+……+99*100="+alltrim(str(s))
*VFP中,编写程序,计算Y=(M+N)!/(M!+N!),M,N由键盘输入input'请输入m(大于1):'tominput'请输入n(大于1):'tonStore1tomn,m1,n1fori=1
publicclassTest{publicstaticvoidmain(String[]args){ints=0;intn=1;for(inti=0;i
input"输入n值:"tons=0fori=1tons=s+(1/2)^nendfor"s=",s
s=0fori=1to100ifi%3=0s=s+iendifendfo
;MOVAX,AANDAX,B;AX=aANDbMOVBX,AXORBX,B;BX=aXORbADDAX,BXADDAX,BX;AX=2*(aXORb)+aANDbADDAX,A;AX=a+2*(aX
CLEARSETTALKOffs1=0forn=1to10s1=s1+jc(n)next"1!+2!+3!+.+10!=",s1FUNCTIONjcPARAMETERSis=1FORj=1TOis=s
2013-1=20122012/2=10061006*(1+2012)+2013=2027091
clears=0fori=1to100s=s+iendfor"1+2+3+4+5+6+......+100=",s
clears=0t=1input"请输入n的值:"tonfori=1tont=t*is=s+tendfor"1!+2!+3!+.N!=",s
settalkoffclearinput"输入N值:"tons=0FORi=1TOna=1FORj=1TOia=a*jENDFORs=s+aENDFOR"1!+2!+3!+...+n!=",ssett