Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
3 / 3 / 3
Регистрация: 03.10.2012
Сообщений: 23

Подсчитать с точностью эпсилон значение определенного интеграла по формуле

19.11.2012, 12:35. Показов 2996. Ответов 1

Студворк — интернет-сервис помощи студентам
Составить программу, подсчитывающую с точностью (Эпсилон) значение определенного интеграла по формуле. Для достижения заданной точности использовать метод двойного пересчета. Результат срав-нить со значением интеграла, подсчитанным с помощью первообразной F(x) по формуле Ньютона-Лейбница:F(b) - F(a) .
Метод приближенного вычисления определенного интеграла должен быть запрограм-мирован с помощью процедуры. Отрезок интегрирования, точность вычисления вводятся с клавиатуры, подынтегральная функция описывается с помощью функции пользователя.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.11.2012, 12:35
Ответы с готовыми решениями:

Подсчитать с заданной точностью значение определенного интеграла
Задание № 3 по вычислительной практике Тема: «Приближенное вычисление определенных интегралов» ВАРИАНТ 3 1. Составить...

1. Составить программу, подсчитывающую с точностью эпсилон значение определенного интеграла
Вложение с текстом задач удалено модератором.

Численно найти приближенное значение определенного интеграла с заданной точностью
Пояснения. Используя составленные ранее подпрограммы, напишите программу для вычисления определенного интеграла с заданной точностью одним...

1
3 / 3 / 3
Регистрация: 03.10.2012
Сообщений: 23
06.12.2012, 15:01  [ТС]
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses
 crt;
var
 a,b,eps,integral:real;
 n:integer;
Function F1(x:real):real;
begin
 f1:=(exp(x)/5)*(sin(sqr(x)) - sin(2*x)+2;
end;
Function F(x:real):real;
begin
 F:=exp(x)*sin(sqr(x));
end;
Procedure LevPr(a,b,eps:real; n:integer; var tk:Real);
var
 i:integer;
 x,t0,s,h:real;
begin
 t0:=f(a)+f(b)/2;
 while True do
   begin
     h:=(b-a)/n;
     s:=0;
     for i:=0 to n-1 do
     begin
       x:=a+i*h;
       s:=s+f(x);
     end;
       tk:=s*h;
       if abs(tk-t0)<eps
       then
         exit;
       t0:=tk;
       n:=2*n;
  end;
end;
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.12.2012, 15:01
Помогаю со студенческими работами здесь

Найти приближенное значение определенного интеграла по методу прямоугольников с точностью e=10^-3
Помогите с решение задачи, суть проблемы в том, что не знаю как сделать точность значения. Так же помогите со 2-м кодом. 1-й код: ...

Вычисление определённого интеграла с заданной точностью
Задали вычислить определённый интеграл с заданной точностью f = 1/(1+sin(x)+cos(x)) F (первообразная) = ln|1+tg(x/2)| E1 (точность)...

Вычисление определённого интеграла с заданной точностью
Вот такая лабуда, всё написал интеграл считает без проблем любой степени ну в пределах моей функции естественно, а вот с точностью...

ВЫчисление определенного интеграла с требуемой точностью
Может кто поможет?? мало разбираюсь в VB6... как среде Visual Basic 6.0 вывести, чтобы при щелчке на форме с определенным интегралом и...

Вычислить значение суммы ряда с точностью до эпсилон
Вычислить значение суммы ряда с точностью до эпсилон. An=n!/(2n)! Сам понимаю,что такое факториалы,как решать,но как внести полное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 23.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru