Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Sprache: Unknown

Columbo aufrufen.bak zum Wurzelverzeichnis wechselnBAT {BAT[175] Abap[194] [0]}Datei anzeigen

      *------------------------------------------
      * 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.

[ Original von:0.77Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen. Man kann per Verzeichnistruktur darin navigieren. Der Code wird farblich markiert angezeigt. ]