|
identification division.
program-id. largest.
* aus Wirth, systematisches Programmieren p. 83
author. "JD".
date-written. 11.9.2005.
date-compiled.
data division.
working-storage section.
78 m pic 9(4) value 1.
78 n pic 9(4) value 10.
77 s pic 9(4)V9(4).
77 j pic 9(4).
77 k pic 9(4).
linkage section.
77 x pic 9(4)V9(4) occurs n.
77 r pic 9(4).
procedure division using x r.
* find largest value in x
move m to j
perform varying k from m+1 by 1 until k>=n
if x(k) > x(j) then move k to j
end-perform.
move j to r.
end-program largest.
¤ Dauer der Verarbeitung: 0.16 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.
|
