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

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

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


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

всем привет... помогите с алгоритмом ... надо написать алгоритм нахождения определенного интеграла методом трапеций...
pirozho4ek вне форума Ответить с цитированием
Старый 10.06.2007, 23: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, 01:44   #3
pirozho4ek
 
Регистрация: 18.05.2007
Сообщений: 8
По умолчанию

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

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

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840