Вычисление наибольшего общего делителя двух целых неотрицательных чиселDelphi , Синтаксис , МатематикаВычисление наибольшего общего делителя двух целых неотрицательных чисел
Автор: Fenik { **** UBPFD *********** by delphibase.endimus.com **** >> Вычисление наибольшего общего делителя двух целых неотрицательных чисел Зависимости: System Автор: Fenik, chook_nu@uraltc.ru, Новоуральск Copyright: Turbo Pascal / С.А. Немнюгин. - СПб: Издательство "Питер", 2000. Дата: 27 октября 2002 г. ***************************************************** } function GCD(const m, n: LongWord): LongWord; {Вычисление наибольшего общего делителя двух неотрицательных целых чисел. Если какое-то из чисел = 0, то функция возвратит 0. Взято из учебника: Turbo Pascal / С.А. Немнюгин. - СПб: Издательство "Питер", 2000.} var p, n1, m1: LongWord; begin if (n = 0) or (m = 0) then Result := 0 else begin if m < n then begin n1 := m; m1 := n; end else begin n1 := n; m1 := m; end; while n1 > 0 do begin p := m1 mod n1; m1 := n1; n1 := p; end; Result := m1; end; end; Пример использования: p := GCD(54, 36); {p := 18} Статья Вычисление наибольшего общего делителя двух целых неотрицательных чисел раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |