精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • 計(jì)算π的近似值,精確到小數(shù)點(diǎn)后6位 設(shè)計(jì)vb程序 需要代碼 VB里面的 π/2=2^2/1*3 ×4^4/3*5 ×.×(

    計(jì)算π的近似值,精確到小數(shù)點(diǎn)后6位 設(shè)計(jì)vb程序 需要代碼 VB里面的 π/2=2^2/1*3 ×4^4/3*5 ×.×(
    其他人氣:783 ℃時(shí)間:2020-01-14 14:50:00
    優(yōu)質(zhì)解答
    你給的公式不對(duì)!應(yīng)該是π/2=2^2/1*3 ×4^2/3*5 ×.×(
    這個(gè)公式求的精度不高!代碼如下:
    Dim PI1 As Double
    Dim PI2 As Double
    Dim Temp As Double
    Dim n As Double
    PI1 = 0:PI2 = 2:n = 2
    While PI2 - PI1 > 0.000001
    PI1 = PI2
    Temp = (n * n) / ((n - 1) * (n + 1))
    PI2 = PI2 * Temp
    n = n + 2
    Wend
    Me.Text1.Text = PI2
    我來(lái)回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁(yè)提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版