Программа_____

program integral 1; {Метод левых прямоугольников}

uses crt;

var i, n: integer;

a, b, h, x, xb, s: real;

function f(x: real): real;

begin

f: =(l/x)*sin(Pi*x/2);

end;

begin

clrscr; gotoxy(10, 10);

textbackground(l); clrscr;

write(' Введите нижний предел интегрирования ');

readln(a); gotoxy(l0, 12);

write('Введите верхний предел интегрирования ');

readln(b); gotoxy(10, 14);

write('Введите количество отрезков '); readln(n);

h: =(b-a)/n; s: =0; xb: =a;

for i: =0 to n-1 do

begin

x: =xb+i*h; s: =s+f(x)*h;

end; gotoxy(10, 18);

writeln ('Интеграл равен ', s: 12: 10);

readkey;

end.

Пример 3. Вычислить по методу правых прямоугольников:

Программа_________________________________________________

program integral; {Метод правых прямоугольников}

uses crt;

var i, n: integer;

a, b, h, x, xb, s: real;

function f(x: real): real;

begin

f: =(l/x)*sin(3.14*x/2);

end;

begin

clrscr; gotoxy(10, 10);

textbackground(l); clrscr;

write('Введите нижний предел интегрирования ');

readln(a); gotoxy(10, 12);

write('Введите верхний предел интегрирования ');

readln(b); gotoxy(10, 14);

write('Введите количество отрезков '); readln(n);

h: =(b-a)/n; s: =0;

xb: =a; for i: =l to n do

begin

x: =xb+i*h; s: =s+f(x)*h;

end;

gotoxy(10, 18);

writeln('Интеграл равен ', s: 12: 10);

readkey;

end.

Пример 4. Вычислить по методу средних прямоугольников: