![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Добрый вечер, господа!=)
Очень давно не писал на паскале/дельфине, а тут попросили знакомые помочь с интегрированием. Сам никогда мат. частью задач не занимался, а тут такой нежданчик=( Сам алгоритм нашел, но работает он на мой взгляд не очень верно. Код:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var A, B, S, h, integ:REAL; n,i:integer; function f(x:real):real; begin f := 2.46573; end; begin a:=0; b:=100; n:=0.1; h := (b - a) / n; for i := 1 to n-1 do begin S := S + f(a + h * i); end; integ := h * ( ( f(a) + f(b) ) / 2 + S); writeln(integ:0:4); Readln; end. В цикле сумма не меняется, шаг интегрирования по заданию 0.1, а здесь целочисленный вообще. Возвращаемое значение от ф-ии f() взял для наглядности, возвращаемое значение интеграла по заданию для него должно быть 231.63661. Задание лежит вот тут, тема 4, задание 2, вариант 2. Методичка тут, но в ней только сама формула. Ребят, извините пожалуйста, что вот так вот все криво, просто сейчас запар на работе и по другому не получается=( Заранее спасибо. Алкоголик-аморал, явная угроза обществу Блин, я уже местный, а все равно нифига не знаю... |