Нарисовать линию с узлами на заданном расстоянии- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CONST pi = 3.141592653589793#
CONST Gradus = pi / 180, RAD = 180 / pi
SCREEN 12
cx = 3800
cy = 3800
r = 5000
Gradus2 = .017 ' Ваш коеф-т
x = cx + r: y = cy
x2 = cx + r: y2 = 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
    xn2 = cx + COS(ff! * Gradus2) * r: yn2 = cy - SIN(ff! * Gradus2) * r
    LINE (x, y)-(xn, yn), 7
    LINE (x2, y2)-(xn2, yn2), 10
    CIRCLE (x2, y2), 5, 10
    CIRCLE (x, y), 5, 12
    x = xn: y = yn
    x2 = xn2: y2 = yn2
NEXT

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

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

Leave a Comment