identificationdivision. program-id. fileplot. * aus Wirth, systematisches Programmieren p. 76 author. "JD". date-written. 25.10.2004. date-compiled. environmentdivision. input-outputsection. file-control. select f assignto file-f status f-status. datadivision. filesection. fd f recordcontains 120 characters datarecordis f-record labelrecordisomitted.
01 f-record.
05 c pic x. working-storagesection.
77 x pic 9(4)V9(4).
77 num pic 9(4)V9(4).
77 f-status pic S9(4) comp. linkagesection.
77 v pic 9(4)V9(4). proceduredivisionusing v. * computes x / y move 0 to x. openinput f read f into f-record performuntil (c < '0'or c > '9') or (f-status < 0) compute num = c - '0' compute x = 10*x + num read f into f-record end-perform. close f end-program fileplot.
¤ Dauer der Verarbeitung: 0.14 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.