vf 编写程序,求200以内奇数的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/30 19:32:06
store0tosume,sumofori=100to1000ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"100~1000偶数累加和=
publicclassTest{publicvoiddisplay(){intsum=0;for(inti=0;i
intcount=0;for(inti=1;i
sum=0do10i=1,1000if(mod(i,3).ne.0)thensum=sum+iendif10continueend
clearsettalkoninput"请输入一个数:"tonifn%2=0?"这是一个偶数!"else?"这是一个奇数!"endifsettalkon
s=0fori=1to1000step2s=s+iifs>1000?s-iexitendifendforreturn
clearinput"请输入x的值:"toxdocasecasex=2andx10y=-3*xendcase"y的值是:",y
thisform.combo1.clearfori=1to100ifi%20loopendifthisform.combo1.additem(str(i))endfor其中combo1是你的列表框的名
*利用VFP编写程序计算100~500以内的所有奇数的个数及所有奇数之和.CLEARSTORE0TOjsh,jslFORi=100TO500&&如果不包含100,则将100改为101\x05IFMOD
#includeusingnamespacestd;intmain(){inta,b,c,count=0;ofstreamofile;//定义输出文件ofile.open("myfile.txt");
clears=0fori=1to200step2s=s+iendfor"200以内所有奇数的和:",s
n=""@2,10say"计算n个数的平均值,先输入数值个数n"getnpicture"999999"readn=val(n)DIMENSIONx(n)store0toxs=0fori=1ton@4,
s=0FORn=1TO1000STEP2s=s+nendf或者说**或者s=0FORn=1TO1000IFINT(n/2)n/2s=s+nENDIFendf很多方法都可以嘛
楼上的问题不少啊main(){ long i,s; s=0; &
*1)有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.CLEARDIMENSIONa(30)a[1]=1?"1",a[1]
clears=0fori=1to100k=i+1s=s+i*kendfor"1*2+2*3+3*4+4*5+…+100*101=",s
vectorvNum;//记录满足条件的整数for(inti=100;i再问:不是c语言的是vf的,不好意思啊,这个你会不再答:不会思路差不多吧你把语法替换下就行
%主函数functiontest()x=[];fori=1:200flag=isprime(i);ifflagx=[x,i];endenddisp('1-200之间的质数有:');xend%子函数fu
clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是:",s
inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo