Найти расстояние от точки до окружности - VB (61946)

Формулировка задачи:

Даны координаты центра окружности O(a, b). Вводится координаты точки плоскости P(x, y). Найти расстояние от точки до окружности.

Решение задачи: «Найти расстояние от точки до окружности»

textual
                            Листинг программы 
                        

                            Dim a, b, x, y, r As Single 'ГЄГ®Г®Г°Г¤ГЁГ*Г*ГІГ» ГІГ®Г·ГЄГЁ, Г¶ГҐГ*ГІГ°Г* Г®ГЄГ°ГіГ¦Г*Г®Г±ГІГЁ ГЁ Г°Г*Г¤ГЁГіГ± Г®ГЄГ°ГіГ¦Г*Г®Г±ГІГЁ
Dim s As Single 'Г°Г*Г±Г±ГІГ®ГїГ*ГЁГҐ
a = 3: b = 3: x = 4: y = 4: r = 3
s = Abs(Sqr((a - x) ^ 2 + (b - y) ^ 2) - r)
MsgBox s
                        

Оцени полезность:

15 голосов , оценка 4.133 из 5

Похожие ответы