Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вывести числа в обратной последовательности https://www.cyberforum.ru/ pascalabc/ thread355477.html
Ввести последовательность чисел (окончание ввода – 0) и вывести их в обратной последовательности. Входные данные взять из текстового файла.
Pascal ABC Отрытие нового окна
как мне сделать что бы при столкновение с обьектом открывалось новое окно и в нем было что то написано? Использую uses GraphABC
Pascal ABC Определить имеют ли общие точки две плоские фигуры
Определить имеют ли общие точки две плоские фигуры: прямоугольник с задаными координатами вершин и круг с заданым радиусом и центром в начале координат. Нужна программа на паскале, помогите...
Pascal ABC Правило дурака Привет всем! Помогите ввести правило дурака в программе.Суть этого в том что если пользователь вводит 3 числа он получает ответ , а если 2 то ему пишет что не правильно , надо ввести 3 любых числа ... https://www.cyberforum.ru/ pascalabc/ thread355430.html
Pascal ABC Нарисовать «диагональ» экрана, состоящую из 50 разноцветных эллисов. https://www.cyberforum.ru/ pascalabc/ thread355373.html
Нарисовать «диагональ» экрана, состоящую из 50 разноцветных эллисов. Помогите пожалуйста с решением такой задачи
Pascal ABC Изобразить идущего человека
В рисованных мультфильмах иллюзия движения создается последовательной сменой кадров, каждый из которых фиксирует очередное положение движущегося объекта. Используя этот принцип, получить мультфильм,...
Pascal ABC Обработка текста
Дан текст, определить содержит ли он символы, отличные от букв и пробела.
Pascal ABC Получить квадратную матрицу порядка 10 Дано действительное число х. Получить квадратную матрицу порядка 10 (середина заполняется нулями). 1 х ... x^8 x^9 ... https://www.cyberforum.ru/ pascalabc/ thread355140.html
Pascal ABC Анализ чисел https://www.cyberforum.ru/ pascalabc/ thread355097.html
8. Для числа определить какая из цифр встречается чаще: «0» или «9». Если таковых цифр нет, то вывести соответствующее сообщение.
Pascal ABC Определить какой из результатов был наиболее частым в отчетном туре 8. Ввести данные о результатах матчей 15 команд в определённом туре, Формат ввода таков: «0»– проигрыш; «1»– ничья; «3»– выигрыш. Определить какой из результатов был наиболее частым в отчетном туре. https://www.cyberforum.ru/ pascalabc/ thread355096.html
Модератор
62945 / 46957 / 32362
Регистрация: 18.05.2008
Сообщений: 113,783
23.09.2011, 21:50 0

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

23.09.2011, 21:50. Просмотров 2159. Ответов 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2011, 21:50

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

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 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...

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

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