|
identification division.
program-id. npluseinhalb.
* aus Pomberger, Dobler
* Algorithmen und Datenstrukturen, p91
author. "JD".
date-written. 3.6.2008.
date-compiled.
data division.
working-storage section.
77 x pic 9(4).
77 k pic 9(4).
linkage section.
77 n pic 9(4).
77 r pic 9(4).
procedure division using n r.
* computes something
move 1 to x
move 0 to k.
label1.
A1.
multiply x by k.
if x>5 then
go to label2
end-if
A2.
add 1 to k
go to label1.
label2.
move x to r.
display r
end-program fak.
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.2 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|
