Шпаргалка: Шпаргалка по численным методам

writeln(f);

end.

{ Хорда }

var

x,xk,xk1,a,b:real;

function f(x:real):real;

begin

f:=x*x+x-2;

end;

begin

a:=-3;

b:=0;

xk1:=a;

xk := a - (f(a)*(b-a)) / (f(b)-f(a));

while abs(xk-xk1)>=0.00001 do

begin

x:=xk1;

if f(xk)*f(a)<0 then xk1:=xk-f(xk)*(xk-a)/(f(xk)-f(a))

else xk1:=xk-f(xk)*(b-xk)/(f(b)-f(xk));

xk:=x;

end;

end.

{ ИНТЕГРИРОВАНИЕ }

{left rect}

const

x1=1;

x2=3;

n=1000;

{y=x*x+2}