Текст подпрограммы и версий ( Фортран ) pa11i.zip |
Тексты тестовых примеров ( Фортран ) tpa11i.zip |
Текст подпрограммы и версий ( Си ) pa11i_c.zip |
Тексты тестовых примеров ( Си ) tpa11i_c.zip |
Текст подпрограммы и версий ( Паскаль ) pa11i_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa11i_p.zip |
Вычисление общего наибольшего делителя двух целых чисел.
Подпрограмма - функция PA11I, имеющая целый тип, использует алгоритм Евклида для вычисления общего наибольшего делителя двух целых чисел M и N, которые могут быть заданы как отрицательными, так и положительными.
INTEGER FUNCTION PA11I (M, N)
Параметры
M, N - | заданные значения целых чисел, для которых ищется общий наибольший делитель (тип: целый). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
M = 252 N = 441 L = PA11I (M, N) Результат: L = 63