Нарисовать окружность, разделенная на 5 секторов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CONST pi = 3.141592653589793#
CONST Gradus = pi / 180, RAD = 180 / pi
CLS
SCREEN 12
cx = 320
cy = 240
r = 200
x = cx: y = cy
FOR i = 0 TO 360
  xn = cx - SIN(i * Gradus) * r: yn = cy - COS(i * Gradus) * r
  LINE (x, y)-(xn, yn)
  IF i MOD 72 = 0 THEN
   LINE (xn, yn)-(cx, cy)
   PRINT xn: PRINT yn: PRINT ""
   'вот здесь бы разместить вместо предыдущей строки
   'некую переменную, "запоминающую" текущее значение xn и yn,
   'типа xi, yi
   'xi = xn: yi = yn
  END IF
  x = xn: y = yn
NEXT i
'LINE (x72, y72)-(x144, y144)

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

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

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

Leave a Comment