Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: gui_Graphics.vdmpp Sprache: Cobol

Original von: verschiedene^©

       identification division.
       program-id. substitute.
      *  aus Wirth, systematisches Programmieren p. 110
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       78 bd   pic 9(4) value 100.
       77 i   pic 9(4).
       77 j   pic 9(4).
       77 k   pic 9(4).
       77 m   pic 9(4).
       77 n   pic 9(4).
       77 d   pic 9(4).
       77 P   pic 9(4).
       77 q.
         88 true-v value 1.
         88 false-v value 0.
       linkage section.
       77 x pic 9(4)V9(4) occurs bd.
       77 z pic 9(4)V9(4) occurs bd.
       77 r pic 9(4).
       77 temp1 pic 9(4).
       procedure division using z r.
      * substitutes x in row z
         move i to p
         perform until q or (i=p)
           move 1 to j
           perform until not q or (j>k)
             compute temp1 = i + j - 1
             if x(j) = z(temp1) then set true-v to true
             else                    set false-v to true end-if
             add 1 to j
           end-perform
           add 1 to i
           if i > n then move 1 to i end-if
         end-perform
         if q then
           subtract k from m giving d
           move i to p
           if d < 0 then
             add p k giving j
             perform until j > n
               compute temp1 = j + d
               move z(j) to z(temp1)
               add 1 to j
             end-perform
           else
             if d > 0 then
               move n to j
               perform until j < p + k
                 compute temp1 = j + d
                 move z(j) to z(temp1)
                 add 1 to j
               end-perform
               add d to n
               move 1 to j
               perform until j > m
                 move z(j) to z(p)
                 add 1 to p
                 add 1 to j
               end-perform
             end-if.
        end-program  substitute.

¤ Dauer der Verarbeitung: 0.19 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.