Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: A1-Sterne.cob 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.46 Sekunden (vorverarbeitet) ¤

Druckansicht unsichere Verbindung
Druckansicht sprechenden Kalenders
Eigene Datei ansehen

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.