Подсчитать число точек, находящихся внутри круга радиусом R с центром в начале координат, координаты заданы массивами X(50), Y(50)

Категория: Basic

2011-10-28 14:19:37

Формула подпрограммы:
L= SQR((X2-X1)^2+(Y2-Y1)^2))
Примечание:Расстояние от точки до начала координат вычислить в подпрограмме.

code: #basic

DIM x(50), y(50)
CLS
INPUT "vvedite radius "; r
RANDOMIZE TIMER
INPUT "vvedite kol-vo tochek";t
FOR i = 1 TO t
x(i) = INT(RND * 50)
y(i) = INT(RND * 50)
PRINT "a("; i; ")="; x(i); ";"; y(i); " ";
NEXT
FOR i = 1 TO t
GOSUB radius
IF rad <= r THEN kol = kol + 1
NEXT
PRINT
PRINT "v kruge "; kol; " tochek"
END
radius:
rad = SQR(x(i) ^ 2 + y(i) ^ 2)
RETURN

автор: кот Бегемот

Поделиться:

Sample Code

категории

Подсчитать число точек, находящихся внутри круга радиусом R с центром в начале координат, координаты заданы массивами X(50), Y(50)

Похожие статьи: