Добрый вечер, господа!=)
Очень давно не писал на паскале/дельфине, а тут попросили знакомые помочь с интегрированием. Сам никогда мат. частью задач не занимался, а тут такой нежданчик=(
Сам алгоритм нашел, но работает он на мой взгляд не очень верно.
Код:
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.
Методичка
тут, но в ней только сама формула.
Ребят, извините пожалуйста, что вот так вот все криво, просто сейчас запар на работе и по другому не получается=(
Заранее спасибо.