Quelle A1-Sterne.cob Sprache: Cobol

       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.

quality97%

¤ Dauer der Verarbeitung: 0.11 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.