|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.03.2012, 22:09 | #1 |
Пользователь
Регистрация: 15.03.2012
Сообщений: 28
|
Метод Симпсона
Здравствуйте!
Помогите пожалуйста с задачей! Вычислите интеграл методом Симпсона с точностью 0,001 Дан определенный интеграл от 1,6 до 2,4 tg^2(x)dx |
21.03.2012, 16:13 | #2 |
Пользователь
Регистрация: 15.03.2012
Сообщений: 28
|
Кто-нибудь знает как решается,а то совсем не понимаю
|
21.03.2012, 21:51 | #3 |
Пользователь
Регистрация: 15.03.2012
Сообщений: 28
|
Проверьте
procedure TForm1.Button1Click(Sender: TObject);; const a=1,6; b=2,4; n=800; function f(x:real):real; begin f:=sqr(tg)(x); end; var x:real; s:real; h:real; begin x:=StrToFloat(Edit1.Text) h:=(b-a)/n; s:=0; x:=a; repeat s:=s+h/3*(f(x)+4*f(x+h)+f(x+2*h)); x:=x+2*h; until x>=(b-h); Label4.Caption:= FloatToStr(s) end. Последний раз редактировалось MrVi; 22.03.2012 в 10:23. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Симпсона | Draips | C++ Builder | 0 | 02.02.2012 20:18 |
Метод трапеций и метод Симпсона (C) | Zadora | Помощь студентам | 3 | 19.12.2011 09:51 |
Метод Симпсона. | Демик | Помощь студентам | 9 | 28.11.2011 01:47 |
Turbo Pascal[програмыки : текстовая\метод симпсона\метод половинного деления | qsccsq | Помощь студентам | 7 | 24.12.2010 05:23 |
Метод Симпсона(си) | towelie | Помощь студентам | 0 | 23.12.2010 19:36 |