identification division.
program-id. swap.
* from Goguen/Malcolm "Algebraic Semantics..."
* OBJ example on p 134
author. Jens.
date-written. 28.11.2006.
date-compiled.
data division.
working-storage section.
linkage section.
77 x pic 9(4).
77 y pic 9(4).
procedure division using x y.
* special swap action
compute x = x + y
compute y = x - y
compute x = x - y
end-program swap.
¤ Dauer der Verarbeitung: 0.23 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.
|