Вычисление интеграла методом трапеций

@Elstan · 10.11.2011, 21:53

Студворк — интернет-сервис помощи студентам

Здравствуйте! Есть программа, которая вычисляет интеграл методом трапеций. Вроде все работает, но когда дана функция arcsin начинает выдавать ошибку. Что не так и как исправить?

Delphi
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
var
a,b,e,i:real;
 
function Fx(x:real):real;
begin
  Fx:=arcsin(sqrt(x/1+x)); //функція для обчислення інтегралу
end;
 
procedure Metod_Trapeciy;
var
x1,x2,x3:real;
c:longint;
begin
  i:=0;
  for c:=1 to round(abs(b-a)/e) do
    begin
      x1:=Fx(a+c*e);
      x2:=Fx(a+c*e+e);
      if x2>x1 then x3:=x1 else x3:=x2;
      i:=i+abs(x2-x1)*e+abs(x3)*e;
    end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  e:=StrToFloat(Edit3.Text);
 
  Metod_Trapeciy;
 
  Edit4.Text:=FloatToStr(i);
end;
 
end.

@Elstan · 11.11.2011, 00:50

Уже все понятно. Допустил глупую ошибку в записи функции. Должно быть так:

Delphi
1
Fx:=arcsin(sqrt(x/(1+x)));

@Artyom_64 · 06.03.2019, 13:13

Объясните пожалуйста, почему у вас именно эта формула для вычисления "I", а не ((x1+x2)/2)*e

Новые блоги и статьи Все статьи Все блоги /
сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .
Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .	сукцессия 41 anaschu 24.07.2026 Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS \| Раздел: Прикладная математика / Численные методы Кратко. . .
сукцессия 40. Ансамблевая кластерная параметризаци, часть 1. anaschu 24.07.2026 Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем Полевые заметки о двухнедельной совместной работе. . .	Теория всего 12. ВГК на планете в стратегической игре "терра" anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .

Опции темы