Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: schiffsbewegung.cob Sprache: Cobol

Original von: verschiedene^©

         identification division.
        program-id. schiffsbewegung.
        date-written.12.2.2011.
      * Anregung von Frau Dr. Pollack
      * welches ist die ruhigste Kabine?
      * in einem Kreuzfharschiff,
      * wenn man die wahl hat?
        data division.
         01 position.
          05 north pic 99.99.
          05 west pic 99.99.
         77 speed pic 99.99.
         77 height pic 99.99.
         77 lengthangle pic 99.99.
         77 bredthheight pic 99.99.
        procedure division.
        begin.
         display "Simulation von Schiffsbewegungen"
         set time=0
         perform varying time from 0 by 0.1 until time>10
           perform rollen
           perform schlingern
           perform stampfen
         end-perform
         display "Ende der Simulation".
        rollen.
         add 10 to lengthangle.
        schlingern.
         add 5 to lengthangle.
         add 5 to bredthhangle.
         subtract 5 from speed
        stampfen.
         add 2 to height
         end-peogram schiffsbewegung.

¤ Dauer der Verarbeitung: 0.17 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.