Найти корень уравнения на отрезке

@Royel · Регистрация: 20.04.2014

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

Найти корень уравнения x^3-cos=0 на отрезке от 0 до 1,4 с точностью до 0,15. Исходные данные вводятся склавиатуры. Отрезок и точность.
Вобщем, мы эту задачу решали в Экселе, а потом сказали в Паскале, а я незнаю вообще как).

@Puporev · 14.09.2014, 08:56

А каким методом?

Добавлено через 1 минуту
Ссылку на метод бисекции Вам дали здесь
Записать уравнение

@Royel · 14.09.2014, 09:37 **[ТС]**

Видимо методом половинного деления

@Puporev · 14.09.2014, 09:40

А по твоему метод бисекции, метод дихотомии и метод половинного деления это разные методы?

Добавлено через 1 минуту
Короче ты начал шлангом прикидываться и сам писать не собираешься. Так знай,никто тебе не напишет, а если напишет, то я удалю.

@Cyborg Drone · 14.09.2014, 12:06

Привожу решение для Вашего уравнения. Если известны c, o, s, тогда:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x^3-cos=0\ \Rightarrow \ x^3=cos\ \Rightarrow \ x=\sqrt[3]{cos}$

И никакой бисекции не требуется, корень и так находится точно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
var x, c, o, s: real;
begin
  write('c = '); readln(c);
  write('o = '); readln(o);
  write('s = '); readln(s);
  if x < 0
    then x := -exp(abs(x) / 3)
    else x := exp(abs(x) / 3);
  writeln('x = ', x);
  readln
end.

@Royel · 14.09.2014, 15:01 **[ТС]**

Нужно именно таким методом..Да я не прикидываюсь, я и так шланг. Я в это ничего не понимаю, я никогда такого не делал, даже по аналогии

Добавлено через 1 час 26 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function f(x: real): real;
begin 
f:=x*x*x-cos(x); 
end;
var
a, b, c, x: real; 
BEGIN
write ('Левая граница интервала:'); readln(a);
write ('Правая граница интервала:'); readln(b);
write ('Точность:'); readln(c);
while (b-a)>c do
begin
x:=(a+b)/2; 
if f(a)*f(x)<0 then b:=x else a:=x;
end;
writeln ('x=', x);
readln();
END.

Такая штука получилась. Где ошибка здесь?

@Puporev · 14.09.2014, 15:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function f(x: real): real;
begin
f:=x*x*x-cos(x);
end;
var
a, b, c, e, x: real;
BEGIN
write ('Левая граница интервала:'); readln(a);{0}
write ('Правая граница интервала:'); readln(b);{1.4}
write ('Точность:'); readln(e);{0.15}
while abs(b-a)>e do
 begin
  c:=(a+b)/2;
  if f(a)*f(c)<=0 then b:=c else a:=c;
 end;
writeln ('x=', (b+a)/2:0:3);
readln;
END.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Royel 1 / 1 / 0 Регистрация: 20.04.2014 Сообщений: 14

	Найти корень уравнения на отрезке 14.09.2014, 07:45. Показов 2875. Ответов 6 Метки нет (Все метки) Найти корень уравнения x^3-cos=0 на отрезке от 0 до 1,4 с точностью до 0,15. Исходные данные вводятся склавиатуры. Отрезок и точность. Вобщем, мы эту задачу решали в Экселе, а потом сказали в Паскале, а я незнаю вообще как). 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.09.2014, 08:56
	А каким методом? Добавлено через 1 минуту Ссылку на метод бисекции Вам дали здесь Записать уравнение 0

@Royel 1 / 1 / 0 Регистрация: 20.04.2014 Сообщений: 14
	14.09.2014, 09:37 [ТС]
	Видимо методом половинного деления 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.09.2014, 09:40
	А по твоему метод бисекции, метод дихотомии и метод половинного деления это разные методы? Добавлено через 1 минуту Короче ты начал шлангом прикидываться и сам писать не собираешься. Так знай,никто тебе не напишет, а если напишет, то я удалю. 0