问答题编一个程序，用do-while循环语句来计算PI=4*（1-1/3+1/5+...+1/n），要求当1/n0.000001时停止计算。
问答题
编一个程序，用do-while循环语句来计算PI=4*（1-1/3+1/5+...+1/n），要求当1/n<0.000001时停止计算。
参考解析
解析：
暂无解析
相关考题：
（33）有以下程序段int i,n;for(i=0;i8;i++){ n＝rand()%5;switch (n){ case 1:case 3:printf("%d\n",n); break;case 2:case 4:printf("%d\n",n); continue;case 0:exit(0);}printf("%d\n",n);}以下关于程序段执行情况的叙述，正确的是A）for循环语句固定执行8次B）当产生的随机数n为4时结束循环操作C）当产生的随机数n为1和2时不做任何操作D）当产生的随机数n为0时结束程序运行
（ 33 ）设有如下程序：Private Sub Commandl Click （）Dim sum As Double, x As Doublesum ＝ 0n ＝ 0For i=l To 5x ＝ n ／ in ＝ n ＋ 1sum 二 sum ＋ xNext iEnd Sub该程序通过 For 循环来计算一个表达式的值，这个表达式是A ） 1+1/2+2/3+3/4+4/5B ） 1+1/2+1/3+1/4+1/5C ） 1/2+2/3+3/4+4/5D ） 1/2+1/3+1/4+1/5
设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5
给定程序MODI1．C中函数fun的功能是：用下面的公式:π/4=1-1/3+1/5-1/7+.....求x的近似值，直到最后一项的绝对值小于指定的数(参数num)为止：例如，程序运行后，输入0．0001，则程序输出3．1414。请改正程序中的错误，使它能输出正确的结果。_______注意：不要改动smain函数，不得增行或删行，也不得更改程序的结构!include 〈 math．h 〉include 〈 stdio．h 〉float fun (float num){ int s ；float；n，t，pi ；t=1；pi=0；n=1；s=1；／**********found**********／while(t 〉=num){pi = pi + t ；n = n +2 ；s=-s ；／**********found**********／t = s ％ n ；}pi=pi*4 ；return pi ；}main(){ float n1，n2；printf(Enter a float number：)；scanf(％f， n1)；n2=fun(n1)；printf(％6．4f＼n，n2)；}
设有如下程序：Private Sub Command1 Click( ) Dim sum AS Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum＝sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B． 1+1/2+1/3+1/4+1/5C． 1/2+2/3+3/4+4/5D． 1/2+1/3+1/4+1/5
计算π的近似值的一个公式是π/4=1-1/3+1/5_1/7+…+(-1)n-11/(2n-1)。某人编写下面的程序用此公式计算并输出π的近似值：Private Sub Command1_Click()PI=1Sign=113=20000For k=3 To nsign=-signPI=PI+sign／kNext kPrint PI*4End sub运行后发现结果为3．22751，显然，程序需要修改。下面修改方案中正确的是A．把For k=3To n改为For k=1 To nB．把U=20000改为n=20000000C．把For k：3 To n改为For k=3 To n Step 2D．把PI=1改为PI=0
有如下VBA程序段：sum＝0n＝0For i ＝ 1 To 5x ＝ n / in ＝ n ＋ 1Sum＝Sum＋xNext i以上For循环计算sum，最终结果是A．1＋1/1＋2/3＋3/4＋4/5B．1/2＋1/3＋1/4＋1/5C．1/2＋2/3＋3/4＋4/5D．1/2＋1/3＋1/4＋1/5
设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。A．1+1/2+2/3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5
计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。 某人编写下面的程序用此公式计算并输出的近似值： Private Sub Cornmand1 Click（ ） P1=1 Sign=1 n=20000 For k=3 To r Sign=-Sign PI=PI+SiRn／k Next k Print PI*4 End Sub 运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（ ）。A.把For k=3 To n改为For k=1 To nB.把n=20000改为n=20000000C.把For k=3 To n改为For k=3 To n Step 2D.把PI=1改为P1=0
设有如下程序： Private Sub Cimmandl_Click． Dim sum As Double, x As Double Sum=0 n =0 For i =1 To 5 x =n/i n =n +1 sum =sum +x Next i End Sub 该程序通过For 循环来计算一个表达式的值，这个表达式是 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5
（ 26 ）计算二的近似值的一个公式是某人编写下面的程序用此公式计算并输出 π 的近似值：Private Sub Comand1_Click （）PI ＝ 1Sign ＝ 1n=20000For k=3 To nSign=-Sign/kPI=PI+Sign/kNext kPrint PI*4End Sub运行后发现结果为 3.22751 ，显然，程序需要修改。下面修改方案中正确的是A ）把 For k=3 To n 改为 For k=1 To nB ）把 n=20000 改为 n=20000000C ）把 For k=3 To n 改为 For k=3 To n Step 2D ）把 PI=1 改为 PI=0
以下程序段中Do...Loop循环执行的次数为( )。 n=5 Do lf n Mod 2=0 Then n=n\2 Else n=n*3+1 End If Loop untiln=1A．4B．3C．5D．2
有以下程序段int i，n；for(i=0；i8；i++){n=rand()％5；switch(n){case 1：case 3：printf(“％d＼n”，n)；break；case 2．case 4：printf(“％d＼n”，n)；continue；case 0：exit(0)；}printf(“％d＼n”，n)；}以下关于程序段执行情况的叙述，正确的是A．for循环语句固定执行8次B．当产生的随机数n为4时结束循环操作C．当产生的随机数n为1和2时不做任何操作D．当产生的随机数n为0时结束程序运行
下列给定程序中，函数fun()的功能是：用下面的公式求π的近似值，直到最后一项的绝对值小于指定的数(参数num)为止。π/4≈1-1/3+1/5-1/7+…例如，程序运行后，输入0.0001，则程序输出3.1414。请改正程序中的错误，使它能得出正确的结果。注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。试题程序：include ＜math.h＞include ＜stdio.h＞float fun(float num){ int s;float n,t, pi;t=1 ;pi=0; n=1; s=1;/**************found***************/while (t＞=num){pi=pi+ t;n=n+2;s=-s;/**************found**************/t=s% n;}pi=pi*4;return pi;}main (){ float n1, n2;clrscr ();printf ("Enter a float number: ");scanf ("%f", n1);n2=fun (n1);print f (" %6.4 f\n ", n2);}
设有如下程序Private Sub Command1_Click( ．Dim sum As Double, x As Doublesum = 0n = 0For i=1 To 5x = n / in = n + 1sum = sum + xNext iEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是A.1+1/2+2/3+3/4+4/5B.1+1/2+1/3+1/4+1/5C.1/2+2/3+3/4+4/5D.1/2+1/3+1/4+1/5
设有如下程序： Private Sub Commandl_Click0Dim sum As Double．x As DoubleSum=0n=0Fori=1 T0 5x=n／in=n+1surll=surrl+XNextiEndSub该程序通过For循环来计算一个表达式的值，这个表达式是（ ）。A.1+1／2+2／3+3／4+4／5B.1+1／2+1／3+1／4+1／5C.1／2+2／3+3／4+4／5D.1／2+1／3+1／4+1／5
以下程序段中Do...Loop循环执行的次数为______。 n=5 Do if n mod 2=0 then n=n\2 else n=n*3+1 end if Loop until n=1A．4B．3C．5D．2
计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Cornmand1 Click（ ）P1=1Sign=1n=20000For k=3 To rSign=-SignPI=PI+SiRn／kNext kPrint PI*4End Sub运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（ ）。A.把For k=3 To n改为For k=1 To nB.把n=20000改为n=20000000C.把For k=3 To n改为For k=3 To n Step 2D.把PI=1改为P1=0
设有如下程序： Private Sub Commandl Click() Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5
单选题有以下程序：int i,n;for(i=0; i8; i++){ n=rand()%5; switch(n) { case 1: case 3:printf(%d,n);break; case 2: case 4:printf(%d,n);continue; case 0:exit(0); } printf(%d,n);}以下关于程序执行情况的叙述中，正确的是（ ）。Afor循环语句固定执行8次B当产生的随机数n为4时结束循环操作C当产生的随机数n为1和2时不做任何操作D当产生的随机数n为0时结束程序运行
问答题编一个程序，用while循环语句来计算1+1/2+2/3+3/4+...+99/100之和。