function f(x: real):real;
begin
f := sqrt(x) * sin (x/2);
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; 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:9);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.04.2013, 17:17

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

Блок-схема для программы с функциями
Помогите пожалуйста разобраться, как оформить блок-схему. То, что нужно рисовать прямоугольник с...

Блок-схема для одномерного массива
Сделайте пожалуйста блок схему для одномерного массива program massive; uses crt; const n=10;...

Блок-схема для сортировки методом пузырька
Помогите, пожалуйста, составить блок-схему сортировки методом «пузырька», соответствующую тексту...

Создание блок-схемы для программы
uses crt; function max(a, b : real) : real; begin if a > b then max := a else max := b;...

	12.04.2013, 17:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.04.2013, 17:17

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

Нарисовать блок-схему для программы
Program lab7; const m=5; n=6; var b:array of real; a:array of real; i,j:integer;...

Блок-схема для программы + отладка
Уважаемые форумчане, имеется программа по ней необходимо сделать блок схему и возможные варианты...

Нужна блок-схема для программы
Укрупненная общая схема и схема детализации всех программ,используемых в алгоритме program...

Блок схема программы
Помогите плиз составить блок схему для этой проги uses crt; type mass=array of real;...

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

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

Наверх