Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Интегралы (Составить программу в Паскале по теме " Интегралы")
Интегралы
1. Составить программу, подсчитывающую с точностью значение определенного интеграла по формуле. Для достижения заданной точности использовать метод двойного пересчета. Результат сравнить со значением интеграла, подсчитанным с помощью первообразной F(x) по формуле Ньютона-Лейбница: .
Метод должен быть запрограммирован с помощью процедуры. Отрезок интегрирования, точность вычисления вводятся с клавиатуры, подынтегральная функция описывается с помощью функции пользователя.
Распечатать: отрезок интегрирования, точность вычисления, приближенное значение определенного интеграла, значение интеграла, подсчитанное по формуле Ньютона-Лейбница.

Метод: центральных прямоугольников:

1) \(\int_{0}^{1}{}2^{3}dx, e=10^{-3}, F(x)=\frac{1}{3ln2}(2^{3x}-1)\)

Спасибо...
1 | Автор: anton94by | 2011-11-29, 17:25 | Изменено: anton94by - Ср, 2011-11-30, 16:38   |  Репутация: [ + 1 ]
Эту тему на курсак можно взять, а ты предлагаешь решить за "спасибо"..))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-11-29, 19:55   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
Эту тему на курсак можно взять, а ты предлагаешь решить за "спасибо"..))

Какой курсак, это обыкновенное задание с практики. Но ладно, я изменил задание если можете, то помогите.
3 | Автор: anton94by | 2011-11-30, 16:34   |  Репутация: [ + 1 ]
3 | Автор: anton94by | 2011-11-30, 16:34   |  Репутация: [ + 1 ]
Quote (anton94by)
Какой курсак, это обыкновенное задание с практики.


Ну тогда - вашим курсакам я не завидую :3


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-11-30, 23:50   |  Репутация: [ + 211 ]
В прошлом задании ошибка, используйте это задание!!!
1. Составить программу, подсчитывающую с точностью значение определенного интеграла по формуле. Для достижения заданной точности использовать метод двойного пересчета. Результат сравнить со значением интеграла, подсчитанным с помощью первообразной F(x) по формуле Ньютона-Лейбница: .
Метод должен быть запрограммирован с помощью процедуры. Отрезок интегрирования, точность вычисления вводятся с клавиатуры, подынтегральная функция описывается с помощью функции пользователя.
Распечатать: отрезок интегрирования, точность вычисления, приближенное значение определенного интеграла, значение интеграла, подсчитанное по формуле Ньютона-Лейбница.

Метод: центральных прямоугольников:

1) \int_{0}^{1}{}2^{3^{x}}dx, e=10^{-3}, F(x)=\frac{1}{3ln2}(2^{3x}-1)

Исправьте ошибки в программе и напишите функцию, если я что-то написал не в том порядке то исправьте. Спасибо...

function I(fn:TIntFunc;a,b,e:real):real;
var
s0,s,w,xi:real;
j,n:integer;
begin
n:=1000;
if a>b then begin s:=a; a:=b; b:=s; end;
repeat
s0:=s;
s:=0; w:=(b-a)/n;
for j:=0 to n-1 do begin
xi:=a+(2*j+1)*(b-a)/2/n;
s:=s+w*fn(xi);
end;
inc(n,10);
until (n>12) and (abs(s-s0)<=e);

I:=s;

end;

var
a,b,e:real;

begin

{Zadacha 1}

write('Input A B E (separated by space):');
readln(a,b,e);
writeln('I=',I(f1,a,b,e):15:5);
writeln('Checking:');
writeln('I=',FF1(b)-FF1(a):15:5);
writeln;

writeln('I=',I(f2a,0,3,1E-3):15:5);
writeln('I=',I(f2b,3,4,1E-2):15:5);

end.

Добавлено (13.12.11, 23:40)
---------------------------------------------
Отредактировать программу чтобы работала, я её написал но выдаёт ошибку, если можете, то помогите. Спасибо.
Задание.
1. Составить программу, подсчитывающую с точностью значение определенного интеграла по формуле. Для достижения заданной точности использовать метод двойного пересчета. Результат сравнить со значением интеграла, подсчитанным с помощью первообразной F(x) по формуле Ньютона-Лейбница: .
Метод должен быть запрограммирован с помощью процедуры. Отрезок интегрирования, точность вычисления вводятся с клавиатуры, подынтегральная функция описывается с помощью функции пользователя.
Распечатать: отрезок интегрирования, точность вычисления, приближенное значение определенного интеграла, значение интеграла, подсчитанное по формуле Ньютона-Лейбница.

Метод: центральных прямоугольников:

1) \int_{0}^{1}{}2^{3^{x}}dx, e=10^{-3}, F(x)=\frac{1}{3ln2}(2^{3x}-1)

Исправьте ошибки в программе, если я что-то написал не в том порядке то исправьте. Спасибо...

program NV;
uses crt;
type TIntFunc=function ( x:real):real;
function F(fn: TIntFunc; a, b, e:real):real;
var
s0, s, i, w, xi:real;
j, n:integer;
const eps=0.001;
begin
n:=1000;
if a>b then
begin
s:=a;
a:=b;
b:=s;
end;
repeat
s0:=s;
s:=0;
w:=(b-a)/n;
for j:=0 to n-1 do
begin
xi:=a+(2*j+1)*(b-a)/2/n;
s:=s+w*fn(xi);
end;
inc(n,10);
until (n>12) and (abs(s-s0)<=e);
I:=s;
end;
var
a, b, e:real;
begin
function f1(x:real):real;
far;
begin
f1:=exp(3*x*ln(2));
end;
function f2(x:real):real;
far;
begin
f2:=((1/3*ln*2*(exp(3*x-1)));
end;
write('Input A B E (separated by space):');
readln(a, b, e);
writeln('i=',i(f1, a, b, e):15:5);
writeln(' Checking:');
writeln('i=',f2(b)-f2(a):15:5);
writeln
end.

5 | Автор: anton94by | 2011-12-13, 23:40 | Изменено: anton94by - Пт, 2011-12-09, 15:25   |  Репутация: [ + 1 ]
Вычислить интеграл от функции двух переменных
с точностью 0.01 \(\int \int f(x,y)dxdy\)
ПОРЯДОК РЕШЕНИЯ ЗАДАЧИ:
1. Вывести квадратурную формулу, используя способ повторного интегрирования и
методы численного интегрирования, указанные в индивидуальном варианте, для
элементарного прямоугольника .
2. Подготовить тестовый пример и вычислить интеграл, используя квадратурную формулу
построенную в п.1 как элементарную. Найти абсолютную погрешность результата.
3. На основе п.1 вывести составную квадратурную формулу, разбивая исходный прямоугольник на n элементарных.
4.Подбирая шаги интегрирования и , вычислить указанный в индивидуальном варианте интеграл с точностью 0.01. В качестве меры погрешности принять величину . Точность будем считать достигнутой, если
5. Подобрать шаги и так, чтобы заданная точность достигалась при возможно меньшем количестве вычислений подынтегральной функции.


a=0 b=1 c=-4 d=-2 Метод Симпсона
f(x,y)=sin(sqrt(x)+y^2*x)

Заранее спасибо.
6 | Автор: serginio236 | 2012-04-12, 22:45   |  Репутация: [ + 0 ]
6 | Автор: serginio236 | 2012-04-12, 22:45   |  Репутация: [ + 0 ]
Цитата
Эту тему на курсак можно взять, а ты предлагаешь решить за "спасибо"..))
 Кхм...
У нас это в 11 классе дают, кагбэ...
7 | Автор: jOs | 2013-02-08, 18:16   |  Репутация: [ + 0 ]
а я чем могу помочь?))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
8 | Автор: Berestovskiy | 2013-02-08, 23:53   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Интегралы (Составить программу в Паскале по теме " Интегралы")
  • Страница 1 из 1
  • 1
Поиск: