|
Текст подпрограммы и версий ( Фортран ) pa15r.zip |
Тексты тестовых примеров ( Фортран ) tpa15r.zip |
|
Текст подпрограммы и версий ( Си ) pa15r_c.zip |
Тексты тестовых примеров ( Си ) tpa15r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) pa15r_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa15r_p.zip |
Решение уравнения Диофанта.
Подпрограмма PA15R вычисляет частное решение уравнения
a x + b y = c
в целых числах, где a, b и c - заданные целые числа, причем значения a и b не равны нулю.
SUBROUTINE PA15R (A, B, C, Q, X, Y, IERR)
Параметры
| A, B, C - | заданные значения коэффициентов исходного уравнения, A ≠ 0, B ≠ 0 (тип: целый); |
| Q - | целый одномерный массив, длина которого должна быть в пять раз больше, чем количество цифр в максимальном по модулю из чисел a, b и c; |
| X, Y - | целые переменные, значения которых на выходе полагаются равными вычисленному частному решению исходного уравнения; |
| IERR - | целая переменная, значение которой полагается равной признаку выявленной ошибки при счете; при этом: |
| IERR=65 - | когда исходное уравнение не определено; |
| IERR=66 - | когда решения исходного уравнения в целых числах не существует. |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION Q(5)
A = 1
B = 3
C = 4
CALL PA15R (A, B, C, Q, X, Y, IERR)
Результаты:
IERR = 0
X = 1
Y = 1