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

  • <center id="usuqs"></center>
  • 
    
  • VB上機(jī)題用多項(xiàng)式求出圓周率的近似值

    VB上機(jī)題用多項(xiàng)式求出圓周率的近似值
    Private Sub Form_click()
    p1 = 1
    p2 = 1
    p3 = p1
    i = 1
    Do While p3 > 0.0000001 *
    p2 = (-1) * p2
    p3 = p2 / (i + 1) *
    p1 = p1 + p2 *
    i = i + 1
    Loop
    Print p1 * 4
    End Sub
    打*號(hào)的又錯(cuò),求改正!
    數(shù)學(xué)人氣:996 ℃時(shí)間:2020-03-26 20:15:30
    優(yōu)質(zhì)解答
    Private Sub Form_click() p1 = 1 p2 = 1 p3 = p1 i = 1 Do While Abs(p3) > 0.0000001'p3要取絕對(duì)值 p2 = (-1) * p2 p3 = p2 / (i + 1) p1 = p1 + p3 '這里p2改為p3 i = i + 1 Loop Print p1 * 4End Su...哪個(gè)公式不對(duì)?程序算出的值是2.7725
    請(qǐng)問數(shù)學(xué)公式是什么?派/4=1-1/3+1/5-1/7+1/9……Private Sub Form_click()
    p1 = 1
    p2 = 1
    p3 = p1
    i = 1
    Do While Abs(p3) > 0.0000001'p3要取絕對(duì)值
    p2 = (-1) * p2
    p3 = p2 / (2 * i + 1) '''''''' '改這個(gè)就成功了
    p1 = p1 + p3 '這里p2改為p3
    i = i + 1
    Loop
    Print p1 * 4
    End Sub
    我來回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版