Нарисовать круговую диаграмму — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CONST pi = 3.141592653589793#
CONST Gradus = pi / 180, RAD = 180 / pi
 
SCREEN 12
' то же самое параметрически:
' Центр
cx = 320
cy = 240
r = 200
x = cx + r: y = cy
xD = cx + r: yD = cy
FOR i% = 0 TO 360
    ff! = i%
    xn = cx + COS(ff! * Gradus) * r: yn = cy - SIN(ff! * Gradus) * r
    LINE (x, y)-(xn, yn), ((i% - 1) \ 72) + 9
    IF i% MOD 72 = 0 THEN
        LINE (xn, yn)-(cx, cy), ((i% - 1) \ 72) + 9
        LINE (xD, yD)-(cx, cy), ((i% - 1) \ 72) + 9
        PAINT ((xn + cx + xD) / 3, (yn + cy + yD) / 3), ((i% - 1) \ 72) + 9, ((i% - 1) \ 72) + 9
        xD = xn: yD = yn
    END IF
    x = xn: y = yn
NEXT

Результат работы программы

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment