procedure G_C_D (M, N : in Natural; G : out Natural) is
C, D, R : Natural; begin
C := M; D := N; while D /= 0 --# assert Gcd (C, D) = Gcd (M, N); loop
R := C mod D;
C := D; D := R; endloop;
G := C; end G_C_D;
end Simple_Greatest_Common_Divisor;
¤ Dauer der Verarbeitung: 0.19 Sekunden
(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.
