Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Ден567393
0 / 0 / 0
Регистрация: 12.02.2017
Сообщений: 11
1

Найдите площадь фигуры, ограниченной графиками функций

19.04.2017, 21:00. Просмотров 1234. Ответов 1
Метки нет (Все метки)

Найдите площадь фигуры, ограниченной графиками функций y = x2 и y = 4cosx.
помогите написать программу
любым методом ( хоть трапеций, хоть прямоугольников)
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 21:00
Ответы с готовыми решениями:

Найдите площадь фигуры, ограниченной параболой y = x2 и осью OX, на интервале
Удалено модератором.

Вычислить площадь фигуры ограниченной линиями
y=f(x) и y=0, x=a, x=b, с точностью eps=0.00001, где f(x)=1/(1+X+X*X)

Вычислить площадь фигуры, ограниченной частью кривой и осями координат
Помогите решить задачу в Паскале плиз!!!! Вычислить площадь фигуры,...

Вычислить с помощью процедур и функций площадь фигуры, ограниченной заданными кривыми.
Вычислить площадь фигуры, ограниченной - осью Х, прямыми Х=1, Х=3 и кривой...

Найти площадь фигуры, ограниченной функциями
Здравствуйте! Не могу решить задачу... Текст задачи: Еще дано указание: ...

1
Puporev
Модератор
55100 / 42349 / 29249
Регистрация: 18.05.2008
Сообщений: 100,073
20.04.2017, 12:15 2
Лучший ответ Сообщение было отмечено Ден567393 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
//для нахождения точек пересечения графиков
const a=-pi/2; //интервал
      b=pi/2;
      eps=0.0001; //точность
function f1(x:real):real;
begin
f1:=x*x;
end;
function f2(x:real):real;
begin
f2:=4*cos(x);
end;
function f(x:real):real;
begin
f:=f1(x)-f2(x);
end;
function Bisec(xn,xk:real):real; //функция уточнения корня методом бисекции
var x,c:real;
begin
repeat
c:=(xn+xk)/2;
if F(xn)*F(c)<0 then xk:=c
else xn:=c;
until xk-xn<eps;
Bisec:=(xn+xk)/2;
end;
var x,dx,x11,x12,x1,x2,h,s:real;
    n,i:integer;
begin
dx:=0.1; //идем по интервалу с шагом 0.1
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then //если знаки функции разные на концах отрезка
   begin
    inc(i);
    if i=1 then x1:=Bisec(x11,x12)//уточняем 1 корень
    else x2:=Bisec(x11,x12)//уточняем 2 корень
   end;
  x:=x+dx;
 end;
writeln('x1=',x1:0:3,' x2=',x2:0:3);
write('Число разбиений n=');//чем больше n, тем выше точность
readln(n);
h:=(x2-x1)/n;
x:=x1+h/2;
s:=0.0;
for i:=1 to n do
 begin
  s:=s+f2(x)-f1(x);
  x:=x+h;
 end;
s:=s*h;
write('Площадь = ',s:0:3);
end.
//проверка здесь
http://allcalc.ru/node/673
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2017, 12:15

Площадь фигуры с помощью функций!
http://zalil.ru/31089214 Даны действительные числа,найти площадь фигуры ...

Найти площадь фигуры
Помогите, пожалуйста, написать прогу (можно на любом языке) по нахождению...

Определить площадь фигуры
Определить площадь фигуры, ограниченной окружностью радиуса 1, центр которой...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru