|
Текст подпрограммы и версий ( Фортран ) 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