0 / 0 / 0
Регистрация: 31.10.2019
Сообщений: 47
1

Определенный интеграл методом Симпсона

12.12.2019, 17:06. Показов 254. Ответов 0
Метки нет (Все метки)

Нормально ли, что у площади по формуле Ньютона и метода Симпсона идентичные значения? Как можно исправить. Заранее спасибо . Вот код:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
var y,x,s,h,a,b:real;
k:integer;
n:byte;
function f(x:real):real;         
begin
f:=1*(x*x*x)+0*(x*x)+(-4)*x+12;         //Заданная функция
end;
function f2(x:real):real;
begin
  f2:=(x*x*x*x)/4 - 2*(x*x) + 12*x;   //Первообразная
end;
function simpson( a,b:real;  k:integer):real;
var h,x,s:real;
begin
  h:=(b-a)/k;
  s:=0;x:=a+h;
  while x < b do
  begin
    s:=s+4*f(x);
    x:=x+h;
    s:=s+2*f(x);
    x:=x+h;
  end;
s := h/3*(s+f(a)-f(b));
simpson:=s;
end;
begin
  repeat
    writeln(' 1 - Вывести задание');
    writeln(' 2 - Ввод границ интегрирования , количества отрезков');
    writeln(' 3 - Вычисление шага функции');
    writeln(' 4 - Вычисление площади функции');
    writeln(' 5 - Определение погрешности');
    writeln(' 0 - Выход');
    writeln(' Выберите действие:');
    readln(n);
    clrscr;
    case n of
      1:writeln('Реализовать программу вычисления площади фигуры методом Симпсона, ограниченной кривой 1*(x*x*x)+0*(x*x)+(-4)*x+12');
      2:begin
      writeln(' Введите границы и количество отрезков');
      readln(a,b,k);
      end;
      3:writeln(' Шаг равен:', (b-a)/k);
      4:begin
        y:=f2(b)-f2(a);
      writeln(' Площадь по формуле Ньютона-Лейбница равна: ' ,y);
      writeln(' Площадь по формуле Симпсона равна: ' , simpson(a,b,k));
    end;
      5:begin
      writeln(' Абсолютная погрещность равна: ' ,abs ( y-simpson(a,b,k) )  );
      writeln(' Относительная погрешность равна: ' , abs( (y-simpson(a,b,k) )/y ) ); 
      end;
    end;
  until n=0;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2019, 17:06
Ответы с готовыми решениями:

Вычислить определенный интеграл методом Симпсона и методом прямоугольников
Помогите плеаз!! методом Симпсона и методом прямоугольников!

Решить определенный интеграл методом прямоугольников
Помогите решить определенный интеграл методом прямоугольников. ...

Вычислите определенный интеграл методом трапеции (площадь ограниченного числа S): ось X равна, Y = a и Y = b прямые лини
Вычислите определенный интеграл методом трапеции (площадь ограниченного числа S): ось X равна, Y =...

Вычислить определенный интеграл
Пожалуйста, помогите с программным кодом для решения задачи :) (Вложение удалено)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2019, 17:06

Вычислить приближённо определённый интеграл
Здравствуйте, помогите решить данную задачу: Вычислить приближенно определенный интеграл по...

Найти значение интеграла методом Симпсона с точностью 0,0001
считая а (алфа) = 1,2,3..20,определить при каких значениях параметра а (алфа) числовые значения...

Какой определенный интеграл мы находим исходя из кода?
program montecarlo; uses GraphABC; type coord = record X: double; Y: double; ...

Вычислить по формуле Симпсона при 2 m=10 определенный интеграл (cos(x)/1+x)dx
Блин ребят выручите.Никак не понимаю как написать эту прогу( Буду очень благодарен!Прога нужна на...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru