while(fabs(l2n-In)>=eps∥/当型循环精度未达要求则继续 ∥循环体开始, ∥将上一次计算结果转存入t和In tn=t2n: In=n ∥)计算k从0至n-1,f(x1+(k+0.5)地h)的和 s=0.0; ∥求和变量s清零 for(k=0;k<n;k=k+1)∥循环求和 ∥循环体开始 x=x1+(k+0.5)h; S+f(x); ∥循环体结束 ∥计算t2和2n t2n=(tn+hs)/2.0; I2n=(4t2ntmn)/3.0;9 while(fabs(I2n-In)>=eps)//当型循环,精度未达要求则继续 { // 循环体开始， // 将上一次计算结果转存入tn和In tn=t2n; In=I2n; // 计算k从0至n-1，f(x1+(k+0.5)*h)的和 s=0.0; // 求和变量s清零 for(k=0;k<n;k=k+1) // 循环求和 { // 循环体开始 x=x1+(k+0.5)*h; s=s+f(x); } // 循环体结束 // 计算t2n和I2n t2n=(tn+h*s)/2.0; I2n=(4*t2n-tn)/3.0;