ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : OAM                                  2:5020/400     19 Sep 2001  13:10:15
 To : Radionov Alexey
 Subject : Re: Корень кубический.
 -------------------------------------------------------------------------------- 
 

 function trio(t : real): real;
 var delta, x1, x0 : real;
 begin
 if t = 0 then begin
    result := 0;
    exit;
 end;
 delta := 0.0000001;
 x0 := t;
 while (abs(x0*x0*x0 - t) > delta) do begin
    x1 := (2*x0 + t/(x0*x0)) / 3;
    x0 := x1;
 end;
 result := x0;
 end;
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Comint Ltd (post does not reflect views of Comint Ltd) (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Корень кубический.   Aleksandr Grushin   18 Sep 2001 18:02:59   Корень кубический.   Boris Sivko   18 Sep 2001 23:39:58   Корень кубический.   Max Alekseyev   19 Sep 2001 00:14:10   Корень кубический.   Radionov Alexey   19 Sep 2001 12:21:42   Re: Корень кубический.   OAM   19 Sep 2001 13:10:15   Корень кубический.   Max Alekseyev   19 Sep 2001 06:28:02