Вычисление квадратного корня (алгоритм Ньютона)Delphi , Синтаксис , МатематикаВычисление квадратного корня (алгоритм Ньютона)
Автор: Fenik { **** UBPFD *********** by delphibase.endimus.com **** >> Вычисление квадратного корня (алгоритм Ньютона) Зависимости: нет Автор: Fenik, chook_nu@uraltc.ru, Новоуральск Copyright: Автор: Федоровских Николай Дата: 20 апреля 2003 г. ***************************************************** } function MySqrt(x: Double; n: Byte): Double; { x - аргумент n - точность вычисления (советую брать 7-8) } var i: Integer; begin if x <= 0 then begin Result := 0; Exit; end else Result := 4; for i := 0 to n do begin Result := (Result + x / Result) / 2; end; end; Пример использования: procedure TForm1.FormCreate(Sender: TObject); var n: Double; begin //Тест (сверить с калькулятором) n := 29.7665342; Caption := 'Sqrt(' + FloatToStrF(n, ffFixed, 10, 5) + ') = ' + FloatToStrF(MySqrt(n, 7), ffFixed, 10, 10); end; Статья Вычисление квадратного корня (алгоритм Ньютона) раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |