Нужно написать программу на Паскале. Найти значение интеграла от 0 до 1 от функции f(x)=(1+cosx)^1/2 по формуле Эйлера с шагом 0,1 и 0,05.
Я сделала для метода левых прямоугольников:
Program levii;{Метод левых прямоугольников}
uses crt;
var i,n:integer; a,b,h,x,xb,s:real;
function f(x:real):real;
begin f:=sqrt(1+cos(x)); end;
begin
clrscr;
write('Введите нижний предел интегрирования '); readln(a);
write('Введите верхний предел интегрирования '); readln(b);
write('Введите шаг h '); readln(h);
s:=0; xb:=a;
for i:=0 to n-1 do
begin x:=xb+i*h; s:=s+f(x)*h; end;
writeln('Интеграл равен ',s:12:10); readln;
end.
А для метода Эйлера не могу, не получается. Помогите, пожалуйста. Очень нужно.
Добавлено:
Вот блок-схема программы
http://www.intuit.ru/department/calculate/intromathmodel/12/5.html
Я сделала для метода левых прямоугольников:
Program levii;{Метод левых прямоугольников}
uses crt;
var i,n:integer; a,b,h,x,xb,s:real;
function f(x:real):real;
begin f:=sqrt(1+cos(x)); end;
begin
clrscr;
write('Введите нижний предел интегрирования '); readln(a);
write('Введите верхний предел интегрирования '); readln(b);
write('Введите шаг h '); readln(h);
s:=0; xb:=a;
for i:=0 to n-1 do
begin x:=xb+i*h; s:=s+f(x)*h; end;
writeln('Интеграл равен ',s:12:10); readln;
end.
А для метода Эйлера не могу, не получается. Помогите, пожалуйста. Очень нужно.
Добавлено:
Вот блок-схема программы
http://www.intuit.ru/department/calculate/intromathmodel/12/5.html