products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Spillner-Linz/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: gcd.cob.bak   Sprache: Unknown

Spracherkennung für: .bak vermutete Sprache: BAT {BAT[175] Abap[194] [0]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

      *------------------------------------------
      * maximum from 3 values
      * Softwaretechnik Trends Band 44 Heft 4
      *------------------------------------------
       Identification Division.
       Program-Id. Max.
       Author. Andreas Spillner/HS-Bremen.
       Data Division.
       Linkage Section.
         77 x           pic 9(4).
         77 y           pic 9(4).
         77 z           pic 9(4).
         77 max         pic 9(4).
       Procedure Division using x, y, z returning max.
      * Beispiel mit Fehler
          move 0 to max
        if x>z then
           move x to max;
        if x>z then
           move x to max;
        if x>z then
           move x to max;
      * max wird zurückgegeben
       End-Program Max.

[ Dauer der Verarbeitung: 0.113 Sekunden  ]