Автор Тема: Метод дихотомии  (Прочитано 3299 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Олькин

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Метод дихотомии
« : 22 Июня 2013, 17:36:36 »
Здравствуйте! Подскажите, пожалуйста, никак не возьму в толк, программа выполняется, но не даёт результата, то есть её выполнение приходится прерывать самостоятельно

program zadacha_2;
const e=0.001;
type fun=function(x:real):real; {процедурный тип}
{$F+}{директива дальней компиляции}
function f1(x:real):real; {функция для первого уравнения }
begin
if (x<>-1) then {если х равно -1, то на ноль делить нельзя, поэтому проверка}
f1:=x-1/(5*(x+1))
else f1:=0
end;
function f2(x:real):real; {функция для второго уравнения}
begin
f2:=exp(x)-x*x*x;
end;
{$F-}{отмена директивы}
Function dihotom(a,b:real; f:fun):real;
var x:real;
begin
x:=(a+b)/2;
while abs(f(x))>e do
begin
if f(a)*f(b)<0 then b:=x
else a:=x;
end;
dihotom:=x;
end;
begin
writeln ('Корень первого уравнения = ', dihotom(0,1,f1):5:3);
writeln ('Корень второго уравнения = ', dihotom(2.5,4.5,f2):5:3);
readln;
end.

и посмотрите, пожалуйста, вот задание "Запрограммировать решение соответствующего варианта задания из темы № 2 “Процедурный тип”. Процедурный тип и относящиеся к нему под-программы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма." Ну, соответственно, выполнить его относительно этой задачи. Вообще никак не могу взять в толк, как это будет выглядеть

Оффлайн Selyd

  • Старожил
  • ****
  • Сообщений: 408
    • Просмотр профиля
Re: Метод дихотомии
« Ответ #1 : 23 Июня 2013, 18:02:00 »
Отсутствует
while abs(f(x))<e надо уйти

 

Мднф и Мкнф используя метод непосредственного преобразования

Автор Tankograd

Ответов: 0
Просмотров: 6036
Последний ответ 09 Января 2011, 19:12:43
от Tankograd
Метод простой итерации в MS Excel: ошибка в формуле

Автор lonesome_pirate

Ответов: 3
Просмотров: 3444
Последний ответ 06 Марта 2014, 19:41:34
от mad_math
Обратная матрица на visual C++, метод Гаусса

Автор MasterOfDizzaster

Ответов: 1
Просмотров: 7125
Последний ответ 17 Января 2011, 13:10:42
от testtest
Метод прогонки в Visual Studio

Автор DeadChild

Ответов: 0
Просмотров: 2652
Последний ответ 28 Июня 2011, 21:19:39
от DeadChild