Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 18.12.2018
Сообщений: 6

Вычислить наименьший положительный ненулевой корень уравнения с заданной точностью

26.02.2019, 14:07. Показов 3080. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
С точностью 10-5 вычислить наименьший положительный ненулевой корень уравнения tg x = 2x , используя метод деления отрезка пополам.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.02.2019, 14:07
Ответы с готовыми решениями:

Вычислить наименьший положительный ненулевой корень
Привет,разбирался с программой по нахождению наименьшего положительного ненулевого корня уравнения tg x = 2x , используя метод деления...

Вычислить с заданной точностью корень уравнения
1. Вычислить с точностью корень уравнения X*4+0,8x*3- 0,4x*2-1,4x-1,2=0 Использовать метод деления отрезка пополам .искать решение в...

Вычислить с заданной точностью корень уравнения
Помогите решить Задачу на C# Дано действительное положительное число. Методом итераций вычислить с заданной точностью корень...

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.02.2019, 15:31
Delphi
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
uses Math;
const eps=0.00001;
function f(x:double):double;
begin
f:=tan(x)-2*x;
end;
function Bisec(xn,xk:double):double; //функция уточнения корня методом бисекции
var x,c:double;
begin
repeat
c:=(xn+xk)/2;
if abs(f(c))<=eps then xn:=c
else if F(xn)*F(c)<0 then xk:=c
else xn:=c;
until xk-xn<eps;
Bisec:=(xn+xk)/2;
end;
 
var x,dx:double;
    i:integer;
begin
dx:=0.1; //идем вперед с шагом 0.1
x:=eps;//от eps
while f(x)*f(x+dx)>0 do
x:=x+dx;
writeln('X=',Bisec(x,x+dx):0:5);//уточняем корень
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.02.2019, 15:31
Помогаю со студенческими работами здесь

Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75
Добрый день! :) Задание. Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 Корень уравнения должен быть найден с...

Локализовать наименьший положительный корень уравнения
Локализовать наименьший положительный корень уравнения 2x^2-\frac{\operatorname{ctg}(\pi \cdot x)}{3}=0 и уточнить его значение с...

Определить наименьший положительный корень уравнения
Процедуры и функции. Тип задачи: Определение наименьшего положительного корня уравнения. Табулирование функции на интервале (A,B) с...

Локализовать наименьший положительный корень уравнения
Локализовать наименьший положительный корень уравнения и уточнить его значение с точностью ε=0,0001 методом половинного деления...

Найти наименьший положительный корень уравнения
Найти наименьший положительный корень уравнения: f(x)=tg(ax) bx, f(x)=0, a=0,6319 и b=0,9217.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
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 с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru