Impressum squareroot.cob

       identification division.
       program-id. squareroot.
      * Autor Jens-D. Doll
      * Dies ist ein Iterationsverfahren
      * mit Limes Wurzel n
      * Es konvergiert nicht immer!!
       author. "JD".
       date-written. 27.12.2006.
       date-compiled.
       data division.
       working-storage section.
         77 u         pic 9(4)V9(8).
         77 m         pic 9(4)V9(8).
         77 o         pic 9(4)V9(8).
         77 n         pic 9(4).
       procedure division.
         display "start"
         accept n
         move 0 to u 
         move n to o
         compute m = (o -u)/2
         perform until m * m = n
           if m*m > n then
             move m to o
           else
             move m to u
           end-if
           compute m = (o -u)/2
         end-perform
         display "done, Wurzel("n")="m.
        end-program squareroot.