SSL Indu4-p475.cob   Interaktion und
PortierbarkeitCobol

       Identification Division.
       Program-Id. Indu2.
      * Buch "Verification of Object Oriented Software", 2007
      * Proving by Induction, p475
      * von Angela Wallenberg
       Data Division.
       Working-Storage Section.
         77 i            pic 9(4).
         77 n            pic 9(4).
         77 rl           pic 9(4).
       Linkage Section.
         77 nl           pic 9(4).
         77 kl           pic 9(4).
         77 r            pic 9(4).
       Procedure Division using nl kl returning r.
      * Induction Formula
        compute i=nl-kl 
        move nl to n
        move rl to r
        perform until i>=n
          add 1 to i
          compute r=r+i*i*i
        end-perform.
      * 4*r = nl**2*(nl+1)**2
       End-Program Indu2.