Veina
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно написать программу на Паскале. Найти значение интеграла от 0 до 1 от функции f(x)=(1+cosx)^1/2 по формуле Гаусса, используя узлы (х) и веса (А), оптимальные для отрезка [0,1] :
х1=0,033765
х2=0,169395
х3=0,380690
х4=0,619310
х5=0,830605
х6=0,966235
А1=А6=0,085662
А2=А5=0,180381
А3=А4=0,233957
Добавлено:
Нужно написать программу на Паскале. Найти значение интеграла от 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 |
