Function

← →
Endi (2006-09-13 16:36) [0]

function koren(a, b, eps:real ; function f:real):real;
var c:real;
begin
while abs(a-b)>eps
do
begin
c:=(a+b)/2;
if f(a)*f(b) =< 0
then b:=c
else a:=c
end;
koren:=(a+b)/2
end;

ne kak ne poymu cto zdes delayet f(a) i f(b), obyasnite pojalusta

← →
Сергей М. © (2006-09-13 16:40) [1]

Да нихрена оно не делает, ни здесь ни там)
Это вообще не будет скомпилировано.
Ты где этого "добра" набрал, скажи на милость ?)

← →
Kolan © (2006-09-13 16:40) [2]

Naverno eto visof kakix-to funcii...

← →
Ega23 © (2006-09-13 16:44) [3]

А что, sqrt(x) уже не катит?

← →
palva © (2006-09-13 16:47) [4]

Функция f - это та функция, корень которой (нулевое значение) ищется здесь методом пополамного деления.

← →
Сергей М. © (2006-09-13 16:49) [5]

> пополамного

В цитатник ! Непгеменно в цитатник !))

> Сергей М. © (13.09.06 16:49) [5]
>
> > пополамного
>
>
> В цитатник ! Непгеменно в цитатник !))

Ну хорошо, напополамного.

это функция половинчатого решения ибо только по форме напоминает метод половинного деления, хотя по сути им не является из-за ошибок в алгоритме

Function Найти похожие ветки