Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Нарисовать кардиоиду https://www.cyberforum.ru/ pascalabc/ thread1023069.html
Нарисовать кардиоиду: x:=320+round(2Rsin(t)+Rsin(2t)); y:=240+round(2Rcos(t)+Rcos(2t));
Нарисовать 30 окружностей Pascal ABC
Заранее спасибо 1. Реализовать задачу "нарисовать случайным цветом 30 окружностей случайного радиуса в пределах от 5 до 50, центры которых лежат в произвольных точках экрана. Раскрасить эти...
Pascal ABC Описать блок-схему по коду
program zadacha; var a, b : array of integer; n, m: integer; max, imax, jmax : integer; procedure matrix(n,m:integer); var i,j:integer; begin n := random(5)+ 5; m :=...
Pascal ABC Составить блок схему к готовому коду program prost; function prime(N: integer): boolean; var i: integer; begin if N < 2 then prime := False else https://www.cyberforum.ru/ pascalabc/ thread1022837.html
Pascal ABC переписать на PascalABC https://www.cyberforum.ru/ pascalabc/ thread1022798.html
Добавлено через 9 минут Помогите, пожалуйста, переписать на PascalABC) Program Pod_Uglom; Uses Crt, Graph; Type G = array of real; Const A=0; B=0.1; {параметры модели} Al=pi/4; {угол -...
Pascal ABC Составьте программу проверки умения складывать двузначные цифры.Программа сама вводит цифры
Помогите исправить программу. Составьте программу проверки умения складывать двузначные цифры.Если вы хотите продолжить - нажмите 1 и можно решать многократно эти примеры, если выйти - 2. ...
Pascal ABC Выполнить операцию сложения чисел с плавающей запятой
возможно я пишу не в ту тему, но помогите если кто знает выполнить операцию сложения чисел с плавающей запятой A1=112,12(10) A2=-21,10(10)
Pascal ABC постройте пожалуйста блок-схемы постройте пожалуйста блок-схемы: var s:string; a:set of char; b:set of char; i:integer; begin readln(s); a:=; for i:=1 to length(s) do https://www.cyberforum.ru/ pascalabc/ thread1022730.html
Pascal ABC Получить новою матрицу путем умножения ее элементов на её наибольший по модулю элемент https://www.cyberforum.ru/ pascalabc/ thread1022712.html
дана действительная матрица размера n на m ,в которой не все элементы равны нулю.Получить новою матрицу на её наибольший модулю элемент.решите срочно пожалуйста!
Pascal ABC Вычислить значение суммы ряда с заданной степенью точности вычислить значение суммы ряда с заданной степенью точности ε=0,001 в точке x0 (если заданна точка x0) или протабулировать с шагом h на (если заданы a, b, h): ∞ Ʃ x^2*n/n! n=0 ... https://www.cyberforum.ru/ pascalabc/ thread1022704.html
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,045
29.11.2013, 18:17 0

Метод деления отрезка пополам

29.11.2013, 18:17. Показов 2542. Ответов 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
34
35
36
function F(x:real):real;
begin
F:=ln(-x)*(x+2)/ln(2)+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:=-1;
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.


Вернуться к обсуждению:
Метод деления отрезка пополам
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2013, 18:17
Готовые ответы и решения:

Метод деления отрезка пополам. Пожалуйста посчитайте количество интераций
У меня то 0, то 1 выходит,а такого быть не может ведь точность взята очень маленькая....

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

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

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

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