procedure G_C_D(M, N: in Natural; G: out Natural) is
C, D, R: Integer; begin
C := M; D := N; while D /= 0 loop --# assert C >= 0 and D > 0 and Gcd(C, D) = Gcd(M, N);
R := C rem D;
C := D; D := R; endloop;
G := C; end G_C_D;
end Greatest_Common_Divisor;
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.1Bemerkung:
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
