Метод половинного деления уравнений с одним неизвестным

@Kirysha · Регистрация: 30.09.2014

Студворк — интернет-сервис помощи студентам

Написать обычную и рекурсивную для нахождения решения функции,непрерывной на отрезке и имеющей на концах отрезка разные знаки .В основной программе продемонстрировать работу обеих функции.
12,4*sin(x)-8.3*(cos1,2*x)=0 на отрезке [5,10] c точностью

Добавлено через 1 минуту
c точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon ={10}^{-4}$

@Puporev · 03.10.2014, 11:52

Вообше что-то неверно или не все написано, ибо на данном интервале в концах его значения функции одного знака, а корней 2.

@Kirysha · 06.10.2014, 09:55 **[ТС]**

Puporev,На концах отрезка разные знаки

@Puporev · 06.10.2014, 09:59

Или ты или я плохо видим приведенный мной график...

Добавлено через 1 минуту
Может на этом интервале нужно найти все корни? В данном случае 2.

@Kirysha · 06.10.2014, 10:03 **[ТС]**

Puporev, Может быть,все задание которое у меня есть я написал.

@Puporev · 06.10.2014, 10:24

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
{исследуемая функция}
function F(x:real):real;
begin
F:=12.4*sin(x)-8.3*cos(1.2*x);
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;
{рекурсивная функция уточнения корня}
function Root(a,b,e:real):real;
var c,r:real;
begin
c:=(a+b)/2;
if abs(F(c))<e then r:=c
else if F(a)*F(c)<0 then r:=Root(a,c,e)
else r:=Root(c,b,e);
Root:=r;
end;
 
var x,x1,x2,dx,x11,x12,eps:real;
    i:integer;
begin
x1:=5;{интервал для поиска корней}
x2:=10;
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):0:5,' рекурсией=',Root(x11,x12,eps):0:5);
   end;
  x:=x+dx;
 end;
end.

@Kirysha · 06.10.2014, 10:36 **[ТС]**

Puporev, Спасибо огромное за помощь)

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16

	Метод половинного деления уравнений с одним неизвестным 03.10.2014, 08:48. Показов 1007. Ответов 6 Метки нет (Все метки) Написать обычную и рекурсивную для нахождения решения функции,непрерывной на отрезке и имеющей на концах отрезка разные знаки .В основной программе продемонстрировать работу обеих функции. 12,4sin(x)-8.3(cos1,2x)=0 на отрезке [5,10] c точностью Добавлено через 1 минуту* c точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon ={10}^{-4}$ 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	03.10.2014, 11:52
	Вообше что-то неверно или не все написано, ибо на данном интервале в концах его значения функции одного знака, а корней 2. Миниатюры 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	06.10.2014, 09:55 [ТС]
	Puporev,На концах отрезка разные знаки 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.10.2014, 09:59
	Или ты или я плохо видим приведенный мной график... Добавлено через 1 минуту Может на этом интервале нужно найти все корни? В данном случае 2. 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	06.10.2014, 10:03 [ТС]
	Puporev, Может быть,все задание которое у меня есть я написал. 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	06.10.2014, 10:36 [ТС]
	Puporev, Спасибо огромное за помощь) 0