Quelle schiffsbewegung.cob Sprache: Cobol

         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.

quality100%

¤ Dauer der Verarbeitung: 0.3 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.