Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Function [D7, XP]

Endi © (2006-09-13 16:36:00)
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-14 03:54:00) [1]
это функция половинчатого решения ибо только по форме напоминает метод половинного деления, хотя по сути им не является из-за ошибок в алгоритме

Джо (2006-09-14 03:38:00) [2]
> [6] palva © (13.09.06 22:00)
> Ну хорошо, напополамного.

Хрень редьки не слаще ;))

palva (2006-09-13 22:00:00) [3]

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

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

Сергей М. (2006-09-13 16:49:00) [4]

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

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

palva (2006-09-13 16:47:00) [5]
Функция f - это та функция, корень которой (нулевое значение) ищется здесь методом пополамного деления.

Ega23 (2006-09-13 16:44:00) [6]
А что, sqrt(x) уже не катит?

Сергей М. (2006-09-13 16:40:00) [7]
Да нихрена оно не делает, ни здесь ни там)
Это вообще не будет скомпилировано.
Ты где этого "добра" набрал, скажи на милость ?)

Kolan (2006-09-13 16:40:00) [8]
Naverno eto visof kakix-to funcii...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »