Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: A1-Sterne.cob Sprache: Cobol

Original von: verschiedene^©

       identification division.
       program-id. sterne.
      * aus Loyd/Gardner
      * Mathematische Rätsel und Spiele
      * Dumont 2006 Aufgabe 1
       author. JD.
       date-written. 6.2.2011.
       date-compiled.
       data division.
       working-storage section.
         77 erstegroese value 1.
         77 zweitegroesse value 2.
         77 winkel value 55.
         77 i pic 9(4).
       linkage section.
         01 blackboard.
           05 width pic 9(4) occurs 15.
           05 height pic 9(4) occurs 15.
         01 sterne occurs 15.
           05 radius pic 9(4).
           05 side pic 9(4).
           05 center.
             10 x pic 9(4).
             10 y pic 9(4).
       procedure division using sterne.
         perform varying i from 1 by 1 until i>15
           perform drawstar
         end-perform
         stop run.
      *
        drawstar.
         call moveto using x(i),y(i)
         call moveup using radius(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
         call lineto using side(i) winkel(i)
        crossing.
         if function cross(i) then
           display "nicht kreuzungsfrei"
        end-program sterne.

¤ 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.