Задаём кол-во точек. Вводим их координаты. Вводим радиус окружности R и координаты центра a и b. Программа определяет какие и сколько из заданных точек попадают в заданную окружность-QBasic(Бейсик)

disel

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
kol = 0
INPUT "Vvedite kol-vo to4ek:", k
DIM x(k)
DIM y(k)
FOR i = 1 TO k
INPUT "x,y=", x(i), y(i)
NEXT
INPUT "radius="; r
INPUT "a,b=", a, b
CLS
BEEP
FOR i = 1 TO k
IF (x(i) - a) ^ 2 + (y(i) - b) ^ 2 <= r ^ 2 THEN
PRINT "x="; x(i); "y="; y(i)
kol = kol + 1
END IF
NEXT i
PRINT "koli4estvo="; kol
BEEP
END

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

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

Leave a Comment