Отделение корней уравнения с использованием графической оценки

@Владимир23 · Регистрация: 01.11.2009

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

Товарисчи, требуется помощь в решении!
Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном промежутке с точностью до 0.0001. Выведите на экран значения корней на каждой итерации, при достижении требуемой точности вывести количество выполненных итераций и уточненное значение корня.(5x−6∗x=3)

@Puporev · 11.11.2009, 08:45

Владимир23, Я пишу здесь до 20 задач в день, может 1 из них бывает неверной, если пишу он-лайн без проверки. Но почти треть авторов потом пишут, что у них программы не работают, я неправильно написал. Это просто бесит, когда свою тупость прикрывают, при чем часто с наглостью и намеками на неграмотсть мою. Впредь выражайтесь точнее.

@Inadequate · 11.11.2009, 08:47

Сообщение от Владимир23

И, может, не будем оскарблять форумчан, напирая на то что кто-то тупой и пр.

я не про вас конкретно, а вообще в целом. но если и вы себя причислили к их числу, вам виднее...

@Владимир23 · 11.11.2009, 08:51 **[ТС]**

Ну в смысле,что она точно правильная, скомпилялось отлично!

Добавлено через 3 минуты
Ок! признаю свою ошибку!

@Владимир23 · 13.11.2009, 07:56 **[ТС]**

Хотел вчера разобраться с логикой, сделать схему программы в Dia,но разобраться так и не смог - не могу понять последовательность действий: сначала выполняется
begin
F:=exp(ln(5)*x)-6*x-3;
end;
но откуда Вы берете х?
потом запускается процедура, но вот откуда берутся a и b,
F(a)*F(c)<=0 - получается это производная что-ли от a и c?
как получается, что выводятся все итерации, цикла вроде нет, it - не цикл случайно.

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
uses crt;
type Fnc=function(x:real):real;
{$F+}
function F(x:real):real;
begin
F:=exp(ln(5)*x)-6*x-3;
end;
{$F-}
procedure Bisec(F:Fnc;a,b,e:real;var x:real;var it:integer);
var c:real;
begin
it:=0;
repeat
 c:=(a+b)/2;
 it:=it+1;
 if F(a)*F(c)<=0 then b:=c
 else a:=c;
 writeln(it:2,c:9:5);
until b-a<e;
x:=(a+b)/2;
end;
 
var a1,b1,x1,a2,b2,x2,e:real;
    n1,n2:integer;
begin
clrscr;
writeln('Графически определены интервалы корней уравнения у=5^x-6x=3 (-1;0) и (1;2)');
writeln('Точность вычислений=0.0001');
writeln;
e:=0.0001;
writeln('Определение первого корня:');
a1:=-1;b1:=0;
Bisec(F,a1,b1,e,x1,n1);
writeln;
writeln('x1=',x1:0:5,'  количество итераций=',n1);
writeln;
readln;
writeln('Определение второго корня:');
a2:=1;b2:=2;
Bisec(F,a2,b2,e,x2,n2);
writeln;
writeln('x2=',x2:0:5,'  количество итераций=',n2);
readln
end.

[/QUOTE]

@Puporev · 13.11.2009, 10:58

сначала выполняется

Pascal
1
2
3
begin
F:=exp(ln(5)*x)-6*x-3;
end;

Вы бы почитали про подпрограммы и процедурный(функциональный) тип, как я советовал, и не несли бы эту чушь. Здесь ничего не выполняется, это просто описание функции с формальными параметрами. И только в программе, когда мы введем значения и заменим формальные параметры на фактические, функция сможет выдавать результат. Кстати блоу-схемы для каждой подпрограммы делаются отдельно, а в основной схеме просто показываются под номерами как предопределенные процессы.

@Владимир23 · 13.11.2009, 12:20 **[ТС]**

А как связан екселевский пример и программа, в смысле файл только для примера, или с него что-то берется?

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@Владимир23 5 / 5 / 4 Регистрация: 01.11.2009 Сообщений: 576

	Отделение корней уравнения с использованием графической оценки 05.11.2009, 19:20. Показов 4813. Ответов 25 Метки нет (Все метки) Товарисчи, требуется помощь в решении! Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном промежутке с точностью до 0.0001. Выведите на экран значения корней на каждой итерации, при достижении требуемой точности вывести количество выполненных итераций и уточненное значение корня.(5x−6∗x=3) 0

@Puporev Почетный модератор 64321 / 47617 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.11.2009, 08:45
	Владимир23, Я пишу здесь до 20 задач в день, может 1 из них бывает неверной, если пишу он-лайн без проверки. Но почти треть авторов потом пишут, что у них программы не работают, я неправильно написал. Это просто бесит, когда свою тупость прикрывают, при чем часто с наглостью и намеками на неграмотсть мою. Впредь выражайтесь точнее. 0

@Владимир23 5 / 5 / 4 Регистрация: 01.11.2009 Сообщений: 576
	11.11.2009, 08:51 [ТС]
	Ну в смысле,что она точно правильная, скомпилялось отлично! Добавлено через 3 минуты Ок! признаю свою ошибку! 0

@Владимир23 5 / 5 / 4 Регистрация: 01.11.2009 Сообщений: 576
	13.11.2009, 12:20 [ТС]
	А как связан екселевский пример и программа, в смысле файл только для примера, или с него что-то берется? 0