|
41561
|
1 |
package Greatest_Common_Divisor
|
|
|
2 |
is
|
|
|
3 |
|
|
|
4 |
--# function Gcd(A, B: Natural) return Natural;
|
|
|
5 |
|
|
|
6 |
procedure G_C_D(M, N: in Natural; G: out Natural);
|
|
|
7 |
--# derives G from M, N;
|
|
|
8 |
--# pre M >= 0 and N > 0;
|
|
|
9 |
--# post G = Gcd(M,N);
|
|
|
10 |
|
|
|
11 |
end Greatest_Common_Divisor;
|