10 REM p33

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM 39.7. Записать алгоритм рисования правильного n-угольника.
50 DIM A, B, C, D, E, F, G, H
60 PRINT "Введите число сторон n-угольника:"
70 INPUT A
80 SCREEN 9
90 B = 3.141592653589#: REM Число "пи"
100 C = 0: D = 1: REM Конец отрезка
110 IF A < 3 THEN A = 3
120 G = 2 * B / A: REM Угол поворота
130 FOR H = 1 TO A
140 E = SIN (H * G)
150 F = COS (H * G)
160 LINE (300 + C * 100, 150 + D * 100)-(300 + E * 100, 150 + F * 100), 3
170 C = E: D = F
180 NEXT
190 INPUT A
200 SCREEN 0
210 END