identificationdivision. program-id. betrag. * von Appell/Väth * aus Funktionalanalysis S. 324 * eine Approximation der Betragsfunktion author. "JD". date-written. 18.9.2006. date-compiled. datadivision. working-storagesection.
77 xn pic 9(8)V99.
77 t pic 9(4). proceduredivision. display"start" move 0 to t xn perform 100 times add 1 to t compute xn=xn+1/2*(t*t- xn*xn) end-perform display"done, xn="xn. end-program betrag.
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.