Написать программу для вычисления определенного интеграла

@viktorshkvorov · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

1. Написать программу для вычисления определенного интеграла методом прямоугольника правых частей
2. Написать программу для вычисления определенного интеграла методом трапеций
3. Написать программу для вычисления определенного интеграла методом парабол

@Reveng · 27.10.2012, 17:59

Pascal

function f(x: real):real;
begin
f := sqrt(sqr(x) + 5)/(2*x + sqrt(sqr(x) + 0.5));
end;
 
var
  a, b, h : real;
  n, i : integer;
  Int : real;
 
begin
Write('Нижняя граница: '); Readln(a);
Write('Верхняя граница: '); Readln(b);
Write('Количество узлов: '); Readln(n);
h := (b - a)/n;
 
//Метод правых прямоугольников
Int := 0;
for i := 1 to n do
 Int := Int + f(a + i*h);
Int := h*Int;
Writeln('Метод правых прямоугольников: ', Int:0:4);
 
//Метод трапеций
Int := 0; 
for i := 1 to n - 1 do
 Int := Int + f(a + i*h);
Int := h*(Int + (f(a) + f(b))/2); 
Writeln('Метод трапеции: ', Int:0:4);
 
//Метод парабол (формула Симпсона)
Int := 0; i := 1;
while i <= n - 1 do
 begin
 Int := Int + (f(a + (i - 1)*h) + 4*f(a + i*h) + f(a + (i + 1)*h));
 inc(i, 2);
 end;
Int := Int*(h/3); 
Writeln('Метод парабол: ', Int:0:4);
end.

@viktorshkvorov 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 6
		1
	Написать программу для вычисления определенного интеграла 27.10.2012, 15:35. Показов 4765. Ответов 1 Метки нет (Все метки) 1. Написать программу для вычисления определенного интеграла методом прямоугольника правых частей 2. Написать программу для вычисления определенного интеграла методом трапеций 3. Написать программу для вычисления определенного интеграла методом парабол Изображения 0

	27.10.2012, 17:59

Написать программу для вычисления определенного интеграла

Решение