Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: ZBinary.v Sprache: Cobol

Original von: verschiedene^©

      *------------------------------------------
      * berechne gcd von m und n
      * Andreas Spillner/HS-Bremen
      * Softwaretechnik Trends Band 44 Heft 4
      *------------------------------------------
       Identification Division.
       Program-Id. GCD.
       Author. NN.
       Data Division.
       Working-Storage Section.
         77 r           pic 9(4).
       Linkage Section.
         77 n           pic 9(4).
         77 m           pic 9(4).
         77 result      pic 9(4).
       Procedure Division using x, y, z returning result.
      * Beispiel mit Fehler!
      *
      * pre: m>0 and n>0
      * post: return >0 and
      * [email protected](return) = 0 and
      * ...
        if n>m then
          move m to r
          move n to m
          move r to n
        end-if
        move function mod(m,n) to r
        perform until r not= 0 with test before
          move m to r
          move n to m
          move r to n
        end-perform
        move n to result
      * result wird zurückgegeben
       End-Program GCD.

¤ Dauer der Verarbeitung: 0.4 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.