Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 25.02.2018
Сообщений: 20
1

Найти корни уравнения метод половинного деления

27.02.2018, 22:40. Просмотров 891. Ответов 1
Метки нет (Все метки)


Метод половинного деления Дано:
x^5−x−0.2=0, x ∈ [1, 1.1].

Для выполнения этого задания необходимо найти один корень транс-
цендентного уравнения
f(x) = 0
предложенным методом на указанном промежутке. Примеры процедур для
методов половинного деления, Ньютона и секущих приведены в приложении.
Для методов половинного деления и секущих необходимо конкретизировать
функцию вычисления f(x), для метода Ньютона необходимо аналитически
вычислить производную f’(x) и конкретизировать функцию g(x) = f(x)/f’(x).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2018, 22:40
Ответы с готовыми решениями:

Вычислить корни трансцендентного ( нелинейного ) уравнения методом половинного деления ( бисекции, дихотомии).
Вычислить корни трансцендентного ( нелинейного ) уравнения методом половинного деления ( бисекции,...

Методом половинного деления найти корень уравнения
методом половинного деления найти корень уравнения y=sin(lnx)-cos(lnx)+2*lnx, заключенного на...

На интервале [a,b] найти с точностью 10(степень -5) корни уравнения F(x) = 0 заданным методом деления отрезка пополам
2) на интервале найти с точностью 10(степень -5) корни уравнения F(x) = 0 заданным методом деления...

Отделить корни графически и уточнить один из них методом половинного деления и касательных с точностью 0,001.
Пожалуйста отзовитесь! Нужна ваша помощь!!! Не разбираюсь вообще!! Отделить корни графически и...

1
4265 / 2046 / 2098
Регистрация: 10.12.2014
Сообщений: 7,895
28.02.2018, 07:31 2
Лучший ответ Сообщение было отмечено Alexandr_msk как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function f(x:real):real;
begin
  f:=x*x*x*x*x-x-0.2;
end;
function sign(x:real):integer;
begin
  if x<0 then sign:=-1 else if x>0 then sign:=+1 else sign:=0;
end;
const eps=1e-8;
var x,x0,x1:real;
begin
  x0:=1;x1:=1.1;
  while abs(x1-x0)>eps do begin x:=x0+(x1-x0)/2;if sign(f(x0))<>sign(f(x))then x1:=x else x0:=x;end;
  WriteLn('f(',x:0:8,')=',f(x):0:8);
end.
Добавлено через 2 минуты
P.S. Alexandr_msk, вы бы хоть бы сами задание прочитали, чтобы не копипастить в пост лишнюю информацию!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2018, 07:31

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

Решение методом половинного деления уравнения
Составить функцию, которая представлена в виде функционального ряда ...

Решение уравнения методом половинного деления
1.3 синус(х+п/4)+2.3х-20=0 надо составить программу методом половинного деления точностью...

Решение уравнения методом половинного деления
Всем привет! Прошу Вашей помощи написать в паскале решения уравнения методом половинного деления с...

Корень уравнения методом половинного деления
Нужно составить программу, которая решает уравнение 5*x^2 - 6*x - 3 (F(x)=0) методом половинного...


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

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

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