products/sources/formale Sprachen/Java/openjdk-20-36_src/src/hotspot/cpu/ppc/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: Kowalk-p125.cbl   Sprache: Unknown

       identification division.
       program-id. kw125.
      * aus Kowalk - Korrekte Software
      * p. 125
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 b      pic 9(4).
       linkage section.
       77 n      pic 9(4).
       77 a      pic 9(4).
       procedure division using n returning a.
         move 0 to a
         move 1 to b
         perform until a>n
           compute a = a + b
           compute b = -a + 4*b
          end-perform
        end-program kw125.

[ Dauer der Verarbeitung: 0.0 Sekunden  (vorverarbeitet)  ]