Помогите, пожалуйста, написать программу на Паскале! очень срочно!
нужно составить программу численного интегрирования методом средних (пример метода на картинке)
поинтегральное выражение:
[tex] \frac{sin(x) +cos(2x)} {2 + \cos(x) } [/tex]
a=pi/3; b=pi/2; n=60
Answers & Comments
Verified answer
var a,b,h,x,s:real; n:integer;begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end.
Результат:
1.575159649924877e+00
...
s:=s*h;
writeln(s);
end.
Результат:
2.821598636378351e-02