products/sources/formale sprachen/Cobol/verschiedene-Autoren/MathWorks/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: News2008-p28.cob   Sprache: Cobol

Original von: verschiedene©
       identification division.
       program-id. News2008-p28.
      * aus MathWorks News&Notes 2008
       author. Jens.
       date-written. 27.10.2009.
       date-compiled.
       data division.
       working-storage section.
        77 y pic S9(8).
        77 k pic S9(8).
        77 l pic S9(8).
       linkage section.
        77 inp pic S9(8).
        77 x   pic S9(8).
       procedure division using inp returning x.
          divide 100 into inp giving k
          move 2 to x
          add k 5 giving y
          perform until x >= 10
            add 1 to x
            add 3 to y
          end-perform
          if 3*k + 100 > 43 then
            add 1 to y
            compute x = x / (x-y)
          end-if
        end-program News2008-p28.

¤ Dauer der Verarbeitung: 0.0 Sekunden  (vorverarbeitet)  ¤



Download des
Drucken
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff