Консультация № 137809
21.05.2008, 21:16
0.00 руб.
0 1 1
Уважаемые эксперты помогите пожалуйста решить задачу.
Вычислить значение интеграла f(x) dx от а до b методом прямоугольников, где n задает пользователь как количество разбиений [a, b]
Заранее спасибо!

Обсуждение

давно
Старший Модератор
31795
6196
26.05.2008, 19:09
общий
это ответ
Здравствуйте, Marina korolyova!

В приложении программа, которая ищет интеграл(Y=X) с заданой точностью.
Вопросы задавайте в мини-форум.
Удачи!

Приложение:
const e=0.00001;var a,b,c,h,i1,i2:real; n:integer; {сама функция}function F(x:real):real; begin F:=x; end;begin {вводим начальное значение} write(‘Enter A:‘);readln(a); {вводим конечное значениеВ, большее А} repeat write(‘Enter B:‘);readln(b); until b>a; {вводим число разбиений} repeat write(‘Enter N:‘);readln(n); until n>0; i2:=0; repeat {запоминаем предыдущее значение} i1:=i2; {считаем шаг для данного количества разбиения} h:=(b-a)/n; {тут будем считать интеграл} i2:=0; {начальное значение} c:=a; {все делаем в цикле} repeat i2:=i2+abs(F(c+h/2));{суммируем одну стoрону прямоугольника} c:=c+h;{переходим на следующую точку} until c>b; i2:=i2*h;{просуммированные строны умножаем на шаг} n:=n*2;{увеличиваем число разбиений в два раза} until abs(i1-i2)<=e;{продолжаем пока недостигнем нужной точности значения интегерала} writeln(‘integal:‘,i2:20:10);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа