Impressum sin.cob

       identification division.
       program-id. sin.
      *  aus Wirth, systematisches Programmieren p. 65 
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 s   pic 9(4)V9(4) comp.
       77 t   pic 9(4)V9(4) comp.
       77 k   pic 9(4) comp.
       77 eps pic 9(4)V9(4) comp value 0.001.
       linkage section.
       77 x   pic 9(4)V9(4) comp.
       77 r   pic 9(4)V9(4) comp.
       procedure division using x r.
      * computes sin(x)
         move x to t
         move 1 to k
         move t to s
         perform until function abs(t) <= eps * function abs(s)
           add 2 to k
           compute t = - t * x * x / ( k * (k - 1))
           add t to s
         end-perform.
         move s to r.
        end-program sin.