identification division.
program-id. manhattan2.
* aus Dirk Hoffmann,
* Software-Qualität
* Kapitel 4, Springer 2008
author. "JD".
date-written. 28.1.2009.
date-compiled.
data division.
linkage section.
77 a pic S9(4).
77 b pic S9(4).
77 y pic S9(4).
procedure division using a b returning y.
if a<0 then
move -a to a.
if b<0 then
compute y = a - b
stop run.
add a b giving y.
end program manhattan2.
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|