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