Creare un ottagono in QBasic

Ecco il codice per creare un ottagono in QBASIC:

Screen 12

Rem Calcola i punti ottagono

Dim Shared x(8), y(8)
For i = 0 To 7
    x(i) = 320 + 100 * Cos(i * 45 * 3.14159 / 180)
    y(i) = 240 - 100 * Sin(i * 45 * 3.14159 / 180)
Next i

Rem Stampa a video
For i = 0 To 7
    Line (x(i), y(i))-(x((i + 1) Mod 8), y((i + 1) Mod 8))
Next i

Do: Loop While InKey$ = ""

Il programma inizia impostando la modalità video a 640×480 pixel con il comando SCREEN 12. Poi, utilizza il ciclo FOR per calcolare le coordinate dei punti dell’ottagono, utilizzando la funzione trigonometrica COS e SIN per calcolare le coordinate X e Y rispettivamente. Infine, utilizza un altro ciclo FOR per disegnare le linee che uniscono i punti dell’ottagono utilizzando il comando LINE.

Il risultato è un ottagono regolare al centro dello schermo.