identificationdivision. program-id. dahl-p44. * aus O-J Dahl - Verifiable Programming author. Jens. date-written. 5.1.2009. date-compiled. datadivision. working-storagesection.
78 eps value 0.0001.
78 x value 0.5.
77 k pic 9(4)V99.
77 z pic 9(4)V99. linkagesection.
77 y pic 9(4)V99. proceduredivisionreturning y. move 1 to k add 1 to x giving y move x to z performuntilfunction abs(z)< eps*y add 1 to k compute z=z*x/k add z to y end-perform end-program dahl-p44.
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.