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

n=1000;

{y=x*x+2}

var

s,y1,y2,h,x:real;

i:integer;

begin

h:=(x2-x1)/n;

s:=0;

x:=x1;

for i:=1 to n-1 do

begin

{!} y1:=x*x+2;

y2:=(x+h)*(x+h)+2;

s:=s+(y1+y2)*h/2;

{!} x:=x+h;

end;

writeln(s);

end.

{ Простые Итерации }

uses crt;

var

x,f,x0:real;

begin

clrscr;

x:=2;

x0:=0;

while abs(x-x0)>0.000001 do

begin

x0:=sqrt(x+2);