Курсовая работа: Современное состояние вычислительной техники

h:=(b-a)/n;

y:=s*h

x:=a+h;

s:=(f(a)+f(b))/2;

while x<=b-h do

begin

s:=s+f(x);

x:=x+h;

end;

y:=s*h;

writeln('y=',y:8:5);

readln;

end.

ОТВЕТ:

y=0.28173

h=(b-a)/2n

PROGRAM SIMPSON;

s:=f(a)+f(b)

LABEL 10;

CONST a= 0.4; b=0.8; n=100;

c:=1 x:=x+h

var x,y,h,s:real;

c,n: integer;

s:=s+(3+c)*f(x)

function f (x:real):real;

begin

x:=x+h

f:= (sin(x*x+0.5)/cos(x*x+0.5))/(1+2*x*x);

c=-c

end;

begin

h:=(b-a)/(2*n);

s:=f(a)+f(b);

y:=s*h/3

c:=1;

x:=a+h;

10: s:=s+(3+c)*f(x);

x:=x+h;

c:=-c;

if x<= b-h then goto 10;

y:=s*h/3;

writeln('y=',y:8:5);

readln;