Quelle  simplex-d.cob.cob

       identification division.
       program-id. simplex.
      * aus Gunter Duecks Kolumne
      * Informatik Spektrum
      * im Oktober 2008 
      *  5 Euro der Wein und 3 Euro die Cola
      *  12 Euro für 1 1/2 Liter Cola-Flaschen,
      *  und den Wein für 10 Euro
      *  das Budget beträgt 375 Euro
      *  max. 90 Liter auf den Wagen
      *  max. 80 Kilogramm  Tragfähigkeit
       author. "JD".
       date-written. 18.Oktober 2008.
       date-compiled.
       data division.
       working-storage section.
       77 ergx  pic 9(4)V9(4) comp.
       77 ergy  pic 9(4)V9(4) comp.
       78 xe    value +100.
       78 ye    value +100.
       78 Kg    value 1.
       78 Euro  value 1.
       78 Liter value 1.
       linkage section.
       77 x   pic 9(4)V9(4) comp.
       77 y   pic 9(4)V9(4) comp.
       77 r   pic 9(4)V9(4) comp.
       procedure division using x y returning r.
      * rechnet nach dem Simplex Verfahren
         move 0 to r ergy ergy
         perform varying x from 1 until x>=xe
           perform varying y from 1 until y>=ye
             if  2*x+y   <= 90*Kg
             and 3*x+5*y <= 375*Euro
             and 1.5*x+y <= 80*Liter then
               move x to ergx
               move y to ergy
             end-if
           end-perform
         end-perform.
        end-program simplex.