h,s,s1,x:real;
begin
writeln(Введите пределы интегрирования через пробел);
readln(a,b);
writeln(введите кол-во отрезков);
readln(k);
x:a; c:1; s:0;
h:(b-a)/k;
m:k-1;
for i:1 to m do
begin
x:xh;
s:s(3c)xexp(xx);
c:-c;
end;
s1:aexp(aa)bexp(bb);
s:h(s1s)/3;
writeln(искомое значение равно , s:9:10);
readln;
end.
Скриншот выполнения (Приложение 2)
3. 3. 2. Метод трапеций.
Текст программы:
program trapeci9;
var i,n:integer;
var a,b,x,h,y1,yn,yk,s:real;
begin
writeln(Введите пределы интегрирования);
readln(a,b);
writeln(введите число отрезков);
readln(n);
h:(b-a)/n;
y1:0;
x:a;
for i:1 to n-1 do
begin
x:xh;
y1:y1xexp(xx);
end;
yn:aexp(aa);
yk:bexp(bb);
s:((ynyk)/2y1)h;
writeln(искомое значение равно s:9:10);
readln;
end.
Скриншот выполнения (Приложение 3).
3. 4. Сравнительный анализ результатов.
В данной работе решена задача приближённого интегрирования функции
методами Симпсона и трапеции, в среде табличного процессора и аналитическим методом.
В процессе работы разработаны алгоритмы решения поставленной задачи. По этим алгоритмам на языке Турбо Паскаль 7. 0. составлены и отлажены программы. В ходе тестирования были получены результаты работы метода трапеции и метода Симпсона, по которым видно, что результаты интегрирования обоими методами совпадают с достаточной точностью. Заметна лишь разница в качестве приближения интервалов.
Программы является полностью работоспособными, что подтверждается результатами тестированием.
4. Заключение.
В процессе работы были проработаны следующие ме
Страницы: << < 6 | 7 | 8 | 9 | 10 > >>