|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2010, 17:33 | #1 |
Регистрация: 21.11.2010
Сообщений: 8
|
Метод половинного деления
Решить функцию методом половинного деления(функция имеет два корня, не получается сделать так чтобы она выводила все корни на заданом промежутке, а в противном случае сообщение что их нет):
program mdp; function f(x: real): real; begin f:=ln(abs(10-x))-3.1*(sin(sqr(x)))/(x+2); end; var a, b, e, c, x: real; begin writeln ('a:='); readln(a); writeln ('b:='); readln(b); e:=0.00001;{write ('e='); read(e);} c:=(a+b)/2; while abs(b-a)>e do begin if f(a)*f(c)<0 then b:=c else a:=c; c:=(a+b)/2; end; x:=(a+b)/2; writeln ('x=',x:3:3,' f(x)=',f(x):4:4); end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Хорд , Касательных и Половинного деления | DieHard | Помощь студентам | 4 | 13.09.2011 19:05 |
метод половинного деления(бисекции) | Раймир | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 01.05.2010 17:22 |
метод половинного деления(бисекции) | Раймир | Общие вопросы Delphi | 1 | 01.05.2010 17:21 |
Безумно сложные задачки!!!! Метод Гаусса, итераций, метод половинного деления, задача Коши и т.д. | Хомяк!!!!! | Помощь студентам | 4 | 08.07.2009 10:08 |