Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2010, 17:33   #1
Hichcog
 
Регистрация: 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.
Hichcog вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Метод Хорд , Касательных и Половинного деления 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