identification division.
program-id. divzero.
author. "JD".
date-written. 25.10.2004.
date-compiled.
data division.
working-storage section.
77 k pic 9(4).
77 i pic 9(4).
77 j pic 9(4).
77 d pic 9(4).
procedure division.
* computes something
move 0 to i j.
accept k.
perform until i >= k
add 1 to i
add 3 to j
end-perform.
* here at i=-19 occurs an error
compute d=5/(i - j)
display d.
end-program divzero.
¤ Dauer der Verarbeitung: 0.42 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|