identificationdivision. program-id. maxel. * aus Verify07, sample von Siemens * "verification of PLC" author. "JD". date-written. 11.9.2005. date-compiled. datadivision. working-storagesection.
77 i pic 9(4).
77 m pic 9(4). linkagesection.
77 x pic 9(4)V9(4) occurs 100.
77 r pic 9(4). proceduredivisionusing x returning r. * find largest value in x move 0 to i m performuntil i>lengthof x if x(i) > m thenmove x(i) to m end-perform. move m to r. end-program maxel.
¤ 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.