Похожие работы на «Вычисление определенного интеграла методами трапеций и средних прямоугольников»

Вычисление определенного интеграла методами трапеций и средних прямоугольников
Математика, Вычисление определенного интеграла методами трапеций и средних прямоугольников, ... abs(x2-x1)/e) do begin write('Итерация ',c,chr(13)); xx1:=Fx(x1+c*e); xx2:=Fx(x1+c*e+e); i:=i+abs(xx1+xx2)/2*e; end; writeln('-'); writeln('Интеграл= ...
... abs(x2-x1)/e) do begin write('Итерация ',c,chr(13)); xx1:=Fx(x1+c*e); xx2:=Fx(x1+c*e+e); if xx2>xx1 then xx3:=xx1 else xx3:=xx2; i:=i+abs(xx2-xx1)*e+ ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... x2-x1)/h1)); writeln('Количество итераций (n2)=',round(abs(x2-x1)/h2)) end; end; i1:=CountTrap(x1,x2,h1); writeln('Интеграл=',i1); i2:=CountTrap(x1,x2 ...
... i1:=CountBar(x1,x2,h1); writeln('Интеграл = ',i1); i2:=CountBar(x1,x2,h2); writeln('Интеграл = ',i2); writeln('Экстраполирование Ричардсона для случая ...


Вычисление определённых интегралов [нестрогое соответствие]
Программирование и комп-ры, Вычисление определённых интегралов , Работа Курсовая ... см. стр.25 методички} i,n:integer;{i-счетчик цикла, n-число интервалов интегрирования} begin n:=1; S:=0; k:=0; repeat k:=k+1;{увеличиваем число ...
... Integral(f_test,0,3.14159,0,0,1e-3,n):7:5, ' ',n,' итераций'); c[1]:=0.9; c[2]:=1; c[3]:=1.05; c[4]:=1.1;{ввод параметров для первой функции} d[1


Вычисление интеграла фукции f (x) (методом Симпсона WinWord) [нестрогое соответствие]
Математика, Вычисление интеграла фукции f (x) (методом Симпсона WinWord) , Работа Курсовая ... f(a)); { Вычисляется интеграл по методу трапеций } n:=3; r:=trap(a,b,n); { Начальное значение } repeat r2:=r; { Запоминается предыдущее значение } n: ...
... r-r2)<0.001);{ Повторяется до достижения необходимой точности } { Вывод результатов } writeln; writeln(' Резльтат по методу Симпсона равен: ',r:6:3) ...


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале) [нестрогое соответствие]
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... 10)+round(b*c),k1,320- round((240+x1)/10)+round(b*c),240); if 320-round((240+x1)/10)+a*c<80 then begin funktia(1,-240/c,240/c,y,1,f1); k:=round(240-(y ...
... 77: begin x1:=x1+30; x2:=x2+30; end; #80: if c>1 then c:=c-1; #72: c:=c+1; #71: c:=24; #79: n:=n+1; #83: r:=r+1; #82: v:=v+1; #73: begin c:=24; n:=0;r ...


Приближенное вычисление определенного интеграла при помощи квадратурной формулы Чебышева [нестрогое соответствие]
Математика, Приближенное вычисление определенного интеграла при помощи квадратурной формулы Чебышева , Работа Курсовая ... и сумма площадей прямоугольников, где основание прямоугольника какая-либо малая величина (точность), а высота определяется по точке пересечения ...
... cheb(var y:aa;var ich:real); var i:integer; Begin ich:=0; for i:=1 to n do ich:=ich+y[i]*h; end; { процедура вывода таблицы} procedure tabl; var i: ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a); Вывод сообщение и задержка ...
... if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; if c<>#121 then begin textmode(Co80); menu;goto menu2; end else ...


Приближенный метод решения интегралов. Метод прямоугольников (правых, средних, левых) [нестрогое соответствие]
Математика, Приближенный метод решения интегралов. Метод прямоугольников (правых, средних, левых) , Работа Лабораторная ... pic] h=(b-a)/n -ширина прямоугольников Формула левых прямоугольников: [pic](1.3) Формула правых прямоугольников: [pic](1.4) Формула средних ...
... x:=xb+i*h; s:=s+f(x)*h; end; writeln('Интеграл равен ',s:12:10); readln; end. a=1 b=2 n=10 S= 18,077 a=1 b=2 n=20 S= 18, 208 a=1 b=2 n=100 S= 18, 270 ...


Численное интегрирование определённых интегралов [нестрогое соответствие]
Математика, Численное интегрирование определённых интегралов , Работа Курсовая ... функция y=f(x). Разделим отрезок [a,b], аналогично как в формуле трапеций: точками a=x0,x1,x2,.,xn=b на n равных частей длины ?х, где ?х=(b-a)/n. [pic ...
... соединяют концы ординат yi-1 и yi (i=1,2,.,n).[pic]Тогда площадь криволинейной трапеции, ограниченной линиями x=a, x=b, y=0, y=f(x), а значит (следуя ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... количество правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then ...
... применить и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на ...