Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
1 / 1 / 1
Регистрация: 07.11.2012
Сообщений: 52
1

Методом деления отрезка пополам (дихотомии) найти корни уравнения

22.03.2014, 19:29. Просмотров 2126. Ответов 1
Метки нет (Все метки)


методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001
(x-2)^2*2^x=1
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2014, 19:29
Ответы с готовыми решениями:

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001 x^4-18*x^2+6=0 ...

Методом деления отрезка пополам найти корень уравнения
Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке Pascal ABC

Метод деления отрезка пополам (дихотомии) - Найти минимум функции
Найти минимум функции одной переменной x*x-2*x-2*cos(x) х с точностью 10^(-6) Собственно проблема...

Решение уравнения методом перебора и методом деления отрезка пополам
Решите уравнение x^2=5cos(x-1) методом перебора и методом деления отрезка пополам. Сравните кол-во...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
22.03.2014, 19:53 2
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

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
uses crt;
function F(x:real):real;
begin
F:=sqr(x-2)*exp(ln(2)*x)-1;
end;
function Bisec(a,b,e:real):real;
var x,c:real;
begin
repeat
c:=(a+b)/2;
if F(a)*F(c)<0 then b:=c
else a:=c;
until b-a<e;
Bisec:=(a+b)/2;
end;
 
var x,x1,x2,dx,x11,x12,eps:real;
    i:integer;
begin
x1:=-8;{èíòåðâàë äëÿ ïîèñêà êîðíåé}
x2:=4;
dx:=0.1;
eps:=0.0001;
x:=x1;
i:=0;
while x<=x2 do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then
   begin
    i:=i+1;
    writeln('X',i,'=',Bisec(x11,x12,eps):8:5);
   end;
  x:=x+dx;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2014, 19:53

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Найти корень заданной функции в интервале [а, b] методом деления отрезка пополам
Составить рекурсивную программу нахождения корня заданной функции F(x) в интервале методом деления...

Найти корни уравнения sinx - 2cosx/x = 0 на заданном отрезке с заданной точностью методом дихотомии
Условие: Найти корни уравнения sinx - 2cosx/x = 0 на отрезке с заданной точностью ε методом...

Методом деления отрезка пополам решить уравнение
Задание на курсовую работу по информатике Вариант 8 Задание: Методом деления отрезка пополам...

Решить уравнение методом деления отрезка пополам
уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6) по математической части знаю, графическим...


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

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

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