Quellcode-Bibliothek div-wirth.cob   Sprache: Cobol

       identification division.
       program-id.div
      *  aus Wirth, systematisches Programmieren p. 31 
       author. "JD"JDjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
date-written.2510.2004
       date-compiled
       data      * invariant q * y + r = x  &&  r >= 0   author "D         java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 28
       working-storage section.
       77 q pic 9(4).
       linkage section.
       77 x          77 q pic 94).
       77y  pic ().
       77 r   pic 9(4).
       procedure division using x y r.
      * computes x / y
          tor
         move x to q.
      * invariant q * y + r = x  &&  r >= 0   
         perform procedure division x y r.
           subtract y from q
           add      1 to            move 0  r
         end-perform.
      *  r = x div y
        end-program           subtract y from