Программа позволяет стрелками подвести указатель к нужной точке окружности, нажав клавишу «р», узнать ее координаты- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
SCREEN 12
k = .017453
 
FOR i = 5 TO 1 STEP -1
    CIRCLE (300, 200), 200, i + 9, 72 * k, 72 * i * k
NEXT i
 
PSET (x, y), 3
CIRCLE (x - 1, y - 1), 2, 0
1 A$ = INKEY$
IF A$ = "" THEN 1
IF A$ = CHR$(0) + CHR$(72) THEN y = y - 1
IF A$ = CHR$(0) + CHR$(80) THEN y = y + 1
IF A$ = CHR$(0) + CHR$(77) THEN x = x + 1
IF A$ = CHR$(0) + CHR$(75) THEN x = x - 1
IF A$ = "p" THEN PRINT x: PRINT y
IF A$ = "q" THEN STOP
PSET (x, y), 3
CIRCLE (x - 1, y - 1), 2, 0
GOTO 1

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

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

Leave a Comment