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

Найти корень заданной функции в интервале [а, b] методом деления отрезка пополам

06.06.2012, 00:11. Просмотров 3582. Ответов 1
Метки нет (Все метки)


Составить рекурсивную программу нахождения корня заданной функции F(x) в интервале [а, b] методом деления отрезка пополам с заданной точностью Е.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2012, 00:11
Ответы с готовыми решениями:

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

Найти корни функции на заданном интервале методом дихотомии (деления отрезка пополам). функция Sin(x)/Ln(x) на интервале [-10,-9.2]
Найти корни функции на заданном интервале методом дихотомии (деления отрезка пополам). функция...

Методом деления отрезка пополам найти с точностью z корень уравнения
Составить 2е задачи. Рекурсивные процедуры и функции. Описать рекурсивную функцию root(f, a, b,...

Найти корень уравнения на отрезке методом деления отрезка пополам
написать рекурсивную функцию Root(f,b,e),которая методом деления отрезка пополам находит с...

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

Решение

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
type Func=function(x:real):real;
{$F+}
function f1(x:real):real;
begin
f1:=sin(x);
end;
{$F-}
function Root(f:Func;a,b,eps:real):real;
var c,r:real;
begin
c:=(a+b)/2;
if abs(f(c))<eps then r:=c
else if f(a)*f(c)<0 then r:=Root(f,a,c,eps)
else r:=Root(f,c,b,eps);
Root:=r;
end;
var x1,x2,e:real;
begin
repeat
writeln('Введите интервал уточнения корня x1<x2:');
readln(x1,x2);
until x1<x2;
repeat
write('Введите точность e>0 e=');
readln(e);
until e>0;
if F1(x1)*F1(x2)>0 then
 begin
  writeln('Для данного интервала метод неприменим');
  exit
 end;
writeln('x=',Root(f1,x1,x2,e):0:4);
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2012, 10:26

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

Напишите рекурсивную функцию, которая находит корень уравнения вида f(x) = 0 методом деления отрезка пополам с заданной точностью E.
Помогите решить: Напишите рекурсивную функцию, которая находит корень уравнения вида f(x) = 0...

Отыскать корень уравнения f(x)=0 на заданном интервале методом деления отрезка пополам
1. Задан многочлен f(x) и известно, что f(a)f(b)&lt;0. Требуется отыскать корень уравнения f(x)=0 на...

Найти корень уравнения методом деления отрезка пополам
Всем привет, помогите пожалуйста,начал изучать с++ недавно и навыки пока не очень большие, помогите...

Найти корень уравнения методом деления отрезка пополам
Найти какой нибудь корень уравнения -2.4 x^3 - 28.512 x^2 - 40.6272 x + 44.928 = 0 Методом...


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

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

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