|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.09.2012, 15:01 | #1 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 11
|
Метод средних прямоугольников
Всем привет!Не мог понять в чем дело,помогите,пожалуйста!
Вычислить определенный интеграл методом средних прямоугольников на отрезке [0.15-0.75] от функции 1/(x^2(x^2+z^2)),z - положительный параметр вот,что у меня получилось var A, B, h, x, S,z : real; N, I : integer; function F(X: real): real; begin f := 1/(x*x*(x*x+z*z)) end; begin write ('Input A, B, N '); readln (A, B, N); begin S:=0; h:=(B-A)/N; x:=h/2; for i:=1 to N-1 do begin S:=S+f(x); x:=x+h end; Writeln ('Sum = ',S:10:7); readln end. |
30.09.2012, 16:41 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Проверьте правильность счета:
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 30.09.2012 в 17:01. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод прямоугольников в EXCEL | Aleksey102rus | Помощь студентам | 0 | 22.05.2012 23:58 |
Интеграл. Метод входящих прямоугольников | heso | Помощь студентам | 0 | 24.05.2010 22:18 |
Метод прямоугольников (Паскаль). | Alexey_HvaranG | Помощь студентам | 2 | 24.11.2009 13:46 |
Assembler, метод средних квадратов | Ukrajinec | Помощь студентам | 5 | 08.04.2009 10:54 |
Метод Симпсона, прямоугольников и трапеций. | Buble07 | Помощь студентам | 2 | 15.11.2008 11:03 |