Формула подпрограммы:
L= SQR((X2-X1)^2+(Y2-Y1)^2))
Примечание:Расстояние от точки до начала координат вычислить в подпрограмме.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | DIM x(50), y(50)CLSINPUT "vvedite radius "; rRANDOMIZE TIMERINPUT "vvedite kol-vo tochek";tFOR i = 1 TO tx(i) = INT(RND * 50)y(i) = INT(RND * 50)PRINT "a("; i; ")="; x(i); ";"; y(i); " ";NEXTFOR i = 1 TO tGOSUB radiusIF rad <= r THEN kol = kol + 1NEXTPRINTPRINT "v kruge "; kol; " tochek"ENDradius:rad = SQR(x(i) ^ 2 + y(i) ^ 2)RETURN |