identification division.
program-id. maxel.
* aus Verify07, sample von Siemens
* "verification of PLC"
author. "JD".
date-written. 11.9.2005.
date-compiled.
data division.
working-storage section.
77 i pic 9(4).
77 m pic 9(4).
linkage section.
77 x pic 9(4)V9(4) occurs 100.
77 r pic 9(4).
procedure division using x returning r.
* find largest value in x
move 0 to i m
perform until i>length of x
if x(i) > m then move x(i) to m
end-perform.
move m to r.
end-program maxel.
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|