Найти координат сектора на окружности — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
SCREEN 12
'center
cx = 300
cy = 200
r = 200
k = .017
FOR i = 1 TO 5
   xn = cx + COS(i * 72 * k) * r
   yn = cy - SIN(i * 72 * k) * r
   CIRCLE (300, 200), 200, , 72 * k, 72 * i * k
     PRINT xn
     PRINT yn
     PRINT "---"
     CIRCLE (xn, yn), 10
NEXT i

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

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

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

Leave a Comment