Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 04.06.2007, 02:43   #1
pirozho4ek
 
Регистрация: 18.05.2007
Сообщений: 8
Вопрос алгоритм нахождения интеграла методом трапеций

всем привет... помогите с алгоритмом ... надо написать алгоритм нахождения определенного интеграла методом трапеций...
pirozho4ek вне форума Ответить с цитированием
Старый 11.06.2007, 00:35   #2
InternetStranger
php / delphi
Форумчанин
 
Аватар для InternetStranger
 
Регистрация: 10.06.2007
Сообщений: 175
По умолчанию

Выглядит прога таким образом:
Цитата:
procedure TForm1.Button3Click(Sender: TObject);
var
x,e,h,a,b,sum:real;
N,i:integer;
Function F(x:real):real;
begin
F:=x/(2*x+3);
end;

Function P(x:real):real;
begin
P:=x/2-0.75*Ln(Abs(2*x+3))
end;

Function Newton:real;
begin
Newton:=P(b)-P(a);
end;

begin
a:=StrToFloat(Edit1.Text); // пределы
b:=StrToFloat(Edit2.Text);
e:=StrToFloat(Edit3.Text); // искомая точность
N:=2;
Repeat
Inc(N);
sum:=0;
h:=(b-a)/N;
For i:=1 to N-1 do begin // вычисление интеграла по N разбиениям
x:=a+h*i;
sum:=sum+F(x);
end;
sum:=h*(sum+(F(a)+F(b))/2);
Until Abs(Newton-sum)<e;
Label6.Caption:=FloatToStr(sum);
Label7.Caption:=FloatToStr(Newton);
end;
InternetStranger вне форума Ответить с цитированием
Старый 11.06.2007, 02:44   #3
pirozho4ek
 
Регистрация: 18.05.2007
Сообщений: 8
По умолчанию

пасибо =)
pirozho4ek вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм шифрования методом Виженера(теория) beegl Помощь студентам 6 31.10.2014 00:27
Решение интеграла на ПАСКАЛЕ 34882 Паскаль, Turbo Pascal, PascalABC.NET 2 08.03.2008 14:13
Методы нахождения корней уравнения werser Помощь студентам 8 20.02.2008 23:41
Составить программу нахождения максимального элемента Red Devel Помощь студентам 3 25.12.2007 20:08