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

  • <center id="usuqs"></center>
  • 
    
  • Pascal 輸入x的值按下列公式計(jì)算cos(x).cos(x)=1-x^2/2!+x^4/4!-x^6/6!+...直到最后一項(xiàng)的絕對(duì)值小于10^-

    Pascal 輸入x的值按下列公式計(jì)算cos(x).cos(x)=1-x^2/2!+x^4/4!-x^6/6!+...直到最后一項(xiàng)的絕對(duì)值小于10^-
    直到最后一項(xiàng)的絕對(duì)值小于10^-6
    其他人氣:447 ℃時(shí)間:2020-04-16 06:47:35
    優(yōu)質(zhì)解答
    var
    x,j,f,c,c0:real;
    i:longint;
    h:integer;
    begin
    readln(x);
    c:=1;c0:=0;f:=1;
    h:=1;i:=0;j:=1;
    while abs(c-c0)>1E-6 do begin
    c0:=c;
    f:=f*sqr(x);
    j:=j*(i+1)*(i+2);
    i:=i+2;
    h:=-h;
    c:=c+h*f/j;
    end;
    writeln(c:10:6);
    readln;
    end.
    我來(lái)回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁(yè)提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版