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

s,y,h,x:real;

i:integer;

begin

h:=(x2-x1)/n;

s:=0;

x:=x1;

for i:=1 to n-1 do

begin

y:=x*x+2;

s:=s+y*h;

{!} x:=x+h;

end;

writeln(s);

end.

{right rect}

const

x1=1;

x2=3;

n=1000;

{y=x*x+2}

var

s,y,h,x:real;

i:integer;

begin

h:=(x2-x1)/n;

s:=0;

x:=x1;

for i:=1 to n-1 do

begin