IdentificationDivision. Program-Id. divisio. Author. "Owicki/Gries". * ".. Informatik-Handbuch Rechenberg/Romberger" DataDivision. Working-StorageSection.
78 n value 100.
77 i pic S9(8).
77 j pic S9(8).
77 k pic S9(8).
77 eventop pic S9(8).
77 oddtop pic S9(8). LinkageSection.
01 array occurs n.
05 min pic S9(8) occurs n. ProcedureDivisionusing n m s. * Berechnung von Quotient und Rest move 1 to i move 2 to j compute oddtop = n+1 compute eventop = n+1 performuntil i >= min(oddtop,eventop) if a(i)>0 thenmove i to oddtop elseadd 2 to i end-perform performuntil j >= min(oddtop,eventop) if a(j)>0 thenmove i to eventop elseadd 2 to j end-perform move min(oddtop,eventop) to k * nun ist der kleinste Index in k End-Program divisio.
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
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.