Одним из способов вычислить значение интеграла - Turbo Pascal

Формулировка задачи:

помогите выразить в языке паскаль

Код к задаче: «Одним из способов вычислить значение интеграла - Turbo Pascal»

textual
uses crt;
var n : integer;
    s: real;
 
function f(x:real):real;
begin
f:=sqrt(9-x*x);
end;
procedure simpson (a,b:real; n:integer; var s:real);
var i : integer;
    h,x,k: real;
begin
h:=(b-a)/n;
s:=0;
k:=a;
for i:=1 to n-1 do
 begin
  k:=k+h;
  if i mod 2 = 0 then s:=s+2*f(k)
  else s:=s+4*f(k);
 end;
s:=(s+f(a)+f(b))*h/3;
 
end;
begin
clrscr;
simpson (0,3,200, s);
write('Г€Г*ГІГҐГЈГ°Г*Г« = ',s:0:4);
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.364 из 5


СДЕЛАЙТЕ РЕПОСТ