Программирование линейных алгоритмов

program LR9V9;

var i,n:integer;

s,x,s1,s2,h,integral,a,b:real;

function f(x:real):real;

begin

f:=(1/SQR(x))*sin(1/x);

end;

function f2(f:real):real;

begin

f2:=cos(1/x)-cos(1)

end;

begin

a:=1;

b:=2.5;

writeln('n= ');

readln(n);

h:=(b-a)/n;

s:=0;

for i:=0 to (n-1) do begin

x:=a+i*h;

s:=s+f(x);

end;

integral:=h*s;

writeln('integral= ',integral:12:6);

s:=0;

for i:=1 to n do begin

x:=a+i*h;

s:=s+f(x);

end;

integral:=s*h;

writeln('integral= ',integral:12:6);

s:=0;

for i:=0 to (n-1) do begin

x:=a+i*h+h/2;

s:=s+f(x); end;

integral:=h*s;

writeln('integral= ',integral:12:6);

s:=0;

for i:=1 to (n-1) do begin

x:=a+i*h;

s:=s+f(x);end;

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

writeln('integral= ',integral:12:6);

s1:=0;s2:=0;

for i:=1 to (n-1) do begin

if odd(i) then s1:=s1+f(x)

else s2:=s2+f(x);end;

integral:=(h/3)*((f(a)+f(b))/2+4*s1+2*s2);

writeln('integral= ',integral:12:6);

end.