program Khan;
var a,b,dx,ST,SP,SS:real;
n,i:integer;
function f(x:real):real;
begin
f:=2*x+4;
end;
begin
writeln ('vvedite a,b,n');
readln (a,b,n);
SP:=0;
ST:=0;
SS:=0;
dx:=(b-a)/n;
for i:=1 to n do
begin
SP:=f(a)*dx+SP;   
ST:=(((f(a)+f(a+dx))/2*dx)+ST);   
SS:=((f(a)+4*f(a+dx/2)+f(a+dx))*dx)/6+SS ;   
a:=a+dx;
end;
writeln ('SP=',SP:2:2,'  ST=',ST:2:2,'  SS=',SS:2:2);
readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.10.2011, 19:57

Ответы с готовыми решениями:

Интеграл
нужно эту задачу решить, помогите плиз у кого время есть)

Интеграл
Вычислите на ЭВМ значение интеграла на заданном отрезке F(x)= sinx-cosx отрезок (0;2) разбиений...

интеграл
скиньте пожалуйста прогу с интегралом (несложную)

Интеграл
Помогите решить пожалуйста, т.к. в интегралах не шарю.

	25.10.2011, 19:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.10.2011, 19:57

Помогаю со студенческими работами здесь

Определённый интеграл
Составить алгоритм и написать программу вычисления определённого интеграла F(x)=...

Определённый интеграл
ЛюДи!ВыРуЧаЙтЕ!Срочно!Срочно нужно! Вычислить определённый интеграл,пределы интегрирования ....

найти интеграл
Методом прямоугольника, методом трапеции и методом Симпсона найти интеграл program Khan; var...

Интеграл по 3 методам
Всем добрый ден. Помогите дописат код не могу запустит цикл чтобы найти количество разбиеные при...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх