计算若干个圆与一个矩形的面积并 simpson公式 ans = ( f[l] + f[r] + 4 * f[mid] ) * (r-l) / 6 uses math; type arr=record x,y:double; end; const eps=1e-8; var a,b,n,i:longint; sl,sr,sm:double; T:..] of record x,y,z,r:double; end; f:..] of arr; g:double; function sum(sl,sr…