FSR - QBasic Seite 35

AG Informatik

Das folgende Programm zeichnet bei SCREEN 12 (640*480, 16 Farben) 40 verschiedene Kreise an zufälligen Bildschirmpositionen.

       REM Kreise1
       RANDOMIZE TIMER
       SCREEN 12
       CLS
       RANDOMIZE TIMER
       FOR kreis = 1 TO 40
         LET radius = INT(RND * 80) + 20
         LET x = radius + INT(RND * (640 - 2 * radius))
         LET y = radius + INT(RND * (480 - 2 * radius))
         LET farbe = INT(RND * 15) + 1
         CIRCLE (x, y), radius, farbe
       NEXT kreis
       a$ = ""
       WHILE a$ = ""
         a$ = INKEY$
       WEND

Ändere das obige Programm wie folgt ab:
```
         :
         LET y = radius + INT(RND * (480 - 2 * radius))
         LET farbe = INT(RND * 15) + 1
         CIRCLE (x, y), radius, farbe, , , .5
       NEXT kreis
       a$ = ""
       WHILE a$ = ""
         a$ = INKEY$
       WEND
       :
```
Der CIRCLE-Befehl wird im obigen Beispiel mit 7 Parametern aufgerufen. x und y sind die Koordinaten des Mittelpunktes, radius ist der Kreisradius, farbe ist die Farbe des Randes. Danach folgen 2 Parameter, die nicht angegeben (ausgelassen werden) und der letzte Parameter (0,5) steht für das Verhältnis der Radien in x bzw. y-Richtung (0,5 bedeutet, daß der y-Radius halb so groß ist wie der x-Radius).
Ändere das obige Programm so ab, daß 99 Luftballons gezeichnet werden. Wähle dazu als letzten Parameter 1,6 und zeichne am tiefsten Punkt der Ellipse beginnend eine 70 Pixel lange senkrechte Linie (Farbe: 15=leuchtend weiß).
Wie muß das Programm abgeändert werden, daß alle Ballons vollständig auf dem Bildschirm gezeichnet werden können (einschließlich Schnur)?