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.14 Sekunden  (vorverarbeitet)  ¤



Kontakt
Drucken
Kontakt
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