Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 3
1

Решить уравнение методом деления отрезка пополам

23.09.2011, 21:10. Просмотров 2106. Ответов 2
Метки нет (Все метки)

уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6)
по математической части знаю, графическим способом нахожу (хоть в Екселе(без разници)) интервал, где пересекаются уравнения у1=arcsin(x) и у2=-x+1, получается (0;1). Потом находим середину отрезка -
с=(а+в)/2, потом проверяем достигнули ли мы точности, если модуль (в-а)<E, то заданная точность достигнута и корень х=с; Иначе в качестве нового интервала выбирается (а;с) или (в;с). а выбирается так. проверяется, если f(a)*f(c)<0 или f(с)*f(в)<0. и потом если первое, то вместо (а;в) принимаем (а;с), ну вобщем понятно. И повторив указанное несколько раз получаем искомое значение.
Только теперь всё это в Паскаль надо както перевести, помогите, кто умный!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2011, 21:10
Ответы с готовыми решениями:

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

Решить уравнение методом деления отрезка пополам
Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл: sin(1-x)=x...

Решение уравнения методом перебора и методом деления отрезка пополам
Решите уравнение x^2=5cos(x-1) методом перебора и методом деления отрезка пополам. Сравните кол-во...

Методом деления отрезка пополам найти корень уравнения
Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке Pascal ABC

2
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
23.09.2011, 21:50 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
uses crt;
function F(x:real):real;
begin
if x=1 then F:=pi/2+x-1
else F:=arctan(x/sqrt(1-x*x))+x-1;
end;
 
var a,b,c,x,e:real;
begin
clrscr;
writeln('F(x)=arcsin(x)+x-1');
a:=0;
b:=1;
e:=0.000001;
if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
   write('x=',x:0:6);
  end
else write('На данном интервале корней нет!');
readln
end.
0
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 3
24.09.2011, 20:28  [ТС] 3
благодарю за помощ.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2011, 20:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001 x^4-18*x^2+6=0 ...

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001 (x-2)^2*2^x=1

Найти корень заданной функции в интервале [а, b] методом деления отрезка пополам
Составить рекурсивную программу нахождения корня заданной функции F(x) в интервале методом деления...

Методом дихотомии (деления отрезка пополам) найти корни кубического уравнения
Здравствуйте, помогите пожалуйста не понимаю как написать правильный код к такому заданию:Методом...

Численные методы. Решить нелинейное уравнение методом половинного деления
решение нелинейных уравнений. метод половинного деления. 2^x-3x-2=0 Добавлено через 5 часов 13...

Метод деления отрезка пополам
Приветствую. Помогите, пожалуйста, решить данную задачу:


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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