用VF编写程序1-1/2+1/3-1/4+1/5-……-1/100的和。。。

帮忙写一下。。。谢谢!

第1个回答  2010-04-16
clear
s=0
for 1=1 to 100
t=-(-1)^i
s=s+t/i
endfor
?"1-1/2+1/3-1/4+1/5-……-1/100=",s

用VF编写程序1-1\/2+1\/3-1\/4+1\/5-……-1\/100的和。。。
clear s=0 for 1=1 to 100 t=-(-1)^i s=s+t\/i endfor ?"1-1\/2+1\/3-1\/4+1\/5-……-1\/100=",s

vf编写程序,利用下列公式计算π的值π\/4=1-1\/3+1\/5-1\/7…+1\/(4n-3...
b=n*4-1 tt=0 for a=1 to n*4-3 step 2 s=1\/a tt=tt+s endfor ?tt-1\/b return 答案是:4.7817 楼主觉得可以那就 小第分少 请多给个分哈!

vf输入1-100内的所有奇数和、偶数和、质数和程序?
第一个for循环求1-100内的所有奇数和,步长为2,从1开始遍历到101,每次将奇数累加到odd_sum变量中。第二个for循环求1-100内的所有偶数和,步长为2,从2开始遍历到101,每次将偶数累加到even_sum变量中。第三个for循环求1-100内的所有质数和,从2开始遍历到101,对于每个数i,内部的for循环从2...

用vf编程求1~100中奇数之和。 编程求1~100中偶数之和。
n=1 stor 0 to x1,x2 do while n<=100 if n%2<>0 x1=x1+n else x2=x2+n endif n=n+1 enddo ?"奇数和为:",x1 ?"偶数和为:",x2

VF程序设计 1、计算50—100之间数的和。 2、计算200以内自然数奇数与偶...
if i%3=0 and i%7=0 s=s+1 endif endfor ?"500以内能被3和7整除的数的个数:",s 4、求1+1\/2+1\/3+……1\/99的值。clear s=0 for i=1 to 99 s=s+1\/i endfor ?"1+1\/2+1\/3+……1\/99=",s 5、求30-120之间奇数的乘积。clear m=1 for i=31 to 120 step 2 m=...

如何在VF中用do while编程计算1~100所有偶数之和
代码如下:clear n=1 s=0 do while n<=100 if mod(n,2)=0 then s=s+n endif n=n+1 enddo ? "1--100所有的偶数和="+alltrim(str(s))return

VF程序中计算1到100的基数和
s=0 for n=1 to 100 step 2 s=s+n endfor ?"奇数和是",s

用VF程序求出1到100的自然数的奇偶数的和
第一种:set talk on clear s1=0 s2=0 for i =1 to 100 step 2 s1=s1+i endfor for j=2 to 100 step 2 s2=s2+j endfor ?"所有奇数和为:",s1 ?"所有偶数和为:",s2 SET TALK off 第二种:set talk on clear s1=0 s2=0 FOR i =1 TO 100 IF mod(i,2)<>0 s1=s1...

求VF程序设计教程1-100之间的全部偶数之和的设计程序,要详细步骤。
include <stdio.h> main(){ int i,s=0;for(i=0;i<=100;i=i+2)s=s+i;printf("0~100之间全部偶数之和为:%d",s);}

用vf编写s=1!+2!+3!+...+100!的程序
i=1 nadd=0 cadd=1 do while i<=100 cadd=1 for j=1 to i cadd=cadd*j endfor nadd=nadd+cadd i=i+1 IF i=100 EXIT ENDIF enddo ?"1!+2!+3!+...+100!=",nadd

相似回答
大家正在搜