Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: gcd.cob Sprache: Cobol

Original von: verschiedene^©

       identification division.
       program-id. gcd.
       author. Bergeretti/Carre.
      *        extended euclids algorithm
       date-written. January 1985.
       date-compiled.
       data division.
       working-storage section.
       77 a1   pic 9(4).
       77 a2   pic 9(4).
       77 b1   pic 9(4).
       77 b2   pic 9(4).
       77 c    pic 9(4).
       77 d    pic 9(4).
       77 q    pic 9(4).
       77 r    pic 9(4).
       77 out  pic 9(4).
       linkage section.
       77 m     pic 9(4).
       77 n     pic 9(4).
       77 x     pic 9(4).
       77 y     pic 9(4).
       77 z     pic 9(4).
       procedure division using m, n, x, y, z.
      * m>=0, n>0
          move 0 to a1
          move 1 to a2
          move 1 to b1
          move 0 to b2
          move m to c
          move n to d
          perform until d = 0
      *      a1 * m + b1 * n = d
      *      a2 * m + b2 * n = c
      *      gcd(c,d) = gcde(m,n)
            compute q = c / d
            compute r = function mod(c, d)
            compute a2 = a2 - q * a1
            compute b2 = b2 - q * b1
            move d to c
            move r to d
            move a1 to r
            move a2 to a1
            move r to a2
            move b1 to r
            move b2 to b1
            move r to b2
          end-perform
          move c to x
          move a2 to y
          move b2 to z
      *    x = gcd(m,n) = y * m + z*n
          compute out=y*m+z*n
          display "x="x" out="out
       end-program gcd.

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

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.