Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: diverse.cob Sprache: Cobol

Original von: verschiedene^©

       identification division.
       program-id. diverse.
      * Autor JD
      * Dies ist eine Schleife mit Auswahl
      * gesucht sind xn2, xn3, xn5
       author. "JD".
       date-written. 27.12.2006.
       date-compiled.
       data division.
       working-storage section.
         77 xn2        pic 9(4)V9(8).
         77 xn3        pic 9(4)V9(8).
         77 xn5        pic 9(4)V9(8).
         77 xn        pic 9(4)V9(8).
       procedure division.
         display "start"
         accept xn
         perform with test after
         until xn<=0 or xn>=10000
           evaluate true
           when function mod(xn,2)=0
             add 1 to xn2
           when function mod(xn,3)=0
             add 1 to xn3
           when function mod(xn,5)=0
             add 1 to xn5
           end-evaluate
           add 1 to xn
         end-perform.
         display "xn="xn.
         display "xn2="xn2.
         display "xn3="xn3.
         display "xn5="xn5.
         display "done".
        end-program diverse.

¤ Dauer der Verarbeitung: 0.2 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.