最简单的梯形公式求积分：（计算0～π亦即0°～180°范围内的积分，精确结果为2） s=0 pai=3.1415926 step=pai/180 a=sin(0.0) do 10 i=0,179 b=sin(step*(i+1)) s=s+0.5*(a+b)*step a=b10 continue write(*,*)s stop end
