Текст подпрограммы и версий pa11i_p.zip |
Тексты тестовых примеров tpa11i_p.zip |
Вычисление общего наибольшего делителя двух целых чисел.
Подпрограмма - функция PA11I, имеющая целый тип, использует алгоритм Евклида для вычисления общего наибольшего делителя двух целых чисел M и N, которые могут быть заданы как отрицательными, так и положительными.
function PA11I(M :Integer; N :Integer): Integer;
Параметры
M, N - | заданные значения целых чисел, для которых ищется общий наибольший делитель (тип: целый). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
Unit tpa11i_p; interface uses SysUtils, Math, { Delphi } LStruct, Lfunc, UtRes_p, PA11I_p; function tpa11i: String; implementation function tpa11i: String; var L :Integer; begin Result := ''; L := PA11I(252,441); Result := Result + Format('%5d',[L]) + #$0D#$0A; UtRes('tpa11i',Result); { вывод результатов в файл tpa11i.res } exit; end; end. Результат: L = 63