Vb問題,程式設計序按下列公式求e的值(要求精度達到1 0e 6)e 1 1 n!如題謝謝了

2021-04-02 12:47:03 字數 2038 閱讀 1524

1樓:小涵

private sub command1_click() b = 1 do n = inputbox("請輸入n的值") loop until n >= 1 and n = int(n) cls if n = 1 then e = 1 else e = 1 for i = 2 to n a = i - 1 b = b * a c = 1 / b e = e + c next i end if e = format(e, "0.000000") print "當n = " & n & " 時,e = " & e end sub

希望採納

用c語言程式設計序,按下列公式計算e的值(精度為1e-6):e=1+1/1!+1/2!+1/3!+1/4!+…+1/n!

2樓:佼暢赧雅媚

intf(int

n)return(s);

}int

main()

printf("%d\t",sum);

return0;}

大致程式就是這樣

其他的你修改吧,要是不懂可以追問,我還有事,就先寫這些了,望對你有幫助。

(主函式是求e的,就是那個sum,f()函式是求n的階乘,你可以呼叫)

3樓:匿名使用者

#include

double fun(int n)//求1/n!

return x;

}void main()

printf("%lf\n",e);

}編譯通過,結果為:2.718279

4樓:匿名使用者

#include

#include

main()

while (fabs(temp)>=1e-6);

printf("e=%f\n",sum);}

5樓:s浮沉隨浪

#include

main()

printf("%.8f",e);

getch();}

程式設計序按下列公式計算e的值(精度為1e-6) e=1+1/1!+1/2!+1/3!+……1/n!

6樓:

||long fact(int n)

else

}int main()

return 0;}

程式設計序按下列公式計算e的值(精度1e-6)

7樓:匿名使用者

n值是確定的吧,不然程式會持續的算下去,不符合程式的有窮性根據題目提供以下**:

#include

#include

using namespace std;

int main()

cout<<"e="<<1+e<

system("pause");

return 0;}

編一個程式按下列公式求e的值(要求1/n!>10-6) e=1+1/1!+1/2!+1/3!+…+1/n!

8樓:匿名使用者

1.k=1 t=1 e=0

2. t=t*(1/k)

3.e=e+t

4. k=k+1

5. if t>10^(-6) goto 26.print e

7,end

編譯程式按下列公式計算e的值e=1+1/1!+1/2!+3/3!...+1/n!(精度為10的-6次方)

9樓:匿名使用者

#include

#include

double fun(double x, double eps)while (t>eps);

return sum;

} void main()

vb題.輸入x值,按下列公式計算cos(x)。精度要求7位有效數字,最後一項<1e-7。編寫程式實現之。

VB程式設計問題,VB程式設計中的迴圈問題

有個 自己去看吧,都是考試的。編一個求圓周長的程式。輸入半徑,得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點,很多事做不了 如果是對basic語言感興趣的話,到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...

vb程式設計序計算 1 1 2

理論來說下面的 沒有錯,但是我也不明白為什麼不行 private sub form load dim a as integer,b as integer,c as integer,temp as long,s as double dim n as integer temp 1 c 1 c這個變數當a...

vb程式設計問題

private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...