Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/12: Рейтинг темы: голосов - 12, средняя оценка - 4.67
Яночк@
1

определить,принадлежит ли точка кольцу

24.11.2010, 20:54. Просмотров 2427. Ответов 5
Метки нет (Все метки)

напишите,пожалуйста программу в VBA при помощи условного оператора.Вот условие:определить,принадлежит ли точка с координатами(x;y)кольцу с внутренним радиусом r1 и внешним радиусом r2,центр которого расположен в начале координат.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2010, 20:54
Ответы с готовыми решениями:

Определить принадлежит ли точка сфере
А можно тоже помощи попросить вот на такое задание: 10. Введены два целых числа. Найти: а) их...

Определить, принадлежит ли точка окружности
задачи по линейному программированию в VBA 1) Определить принадлежит ли точка М(х, у) окружности...

Определить, принадлежит ли точка заштрихованной фигуре
Даны координаты (х, у) 10-ти точек. Определить, принадлежит ли точка заштрихованной фигуре? ...

Определить, принадлежит ли данная точка одному из этих отрезков
Даны отрезки и и точка A с координатой х. Определить, принадлежит ли данная точка одному из этих...

5
11022 / 3469 / 601
Регистрация: 13.02.2009
Сообщений: 10,327
25.11.2010, 07:24 2
Что вызвало затруднение. Поконкретней. Геометрия? VBA?
0
1900 / 777 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
25.11.2010, 15:51 3
для окружности так примерно
Visual Basic
1
2
3
4
5
6
7
8
    x = InputBox("ââåäèòå x")
    y = InputBox("ââåäèòå y")
    R = InputBox("ââåäèòå R")
    If x ^ 2 + y ^ 2 = R ^ 2 Then
        MsgBox "ïðèíàäëåæèò"
    Else
        MsgBox "íå ïðèíàäëåæèò"
    End If
а для кольца... хм
0
203 / 42 / 6
Регистрация: 15.10.2010
Сообщений: 125
25.11.2010, 16:09 4
Цитата Сообщение от Яночк@ Посмотреть сообщение
напишите,пожалуйста программу в VBA при помощи условного оператора.Вот условие:определить,принадлежит ли точка с координатами(x;y)кольцу с внутренним радиусом r1 и внешним радиусом r2,центр которого расположен в начале координат.
Visual Basic
1
2
3
4
5
Dim r1, r2 As Double
 
r1 = InputBox("r1=")
r2 = InputBox("r2=")
MsgBox (IIf(Application.Min(r1, r2) ^ 2 < InputBox("x=") ^ 2 + InputBox("y=") ^ 2 < Application.Max(r1, r2) ^ 2, "принадлежит", "точка вне кольца"))
0
Alex77755
25.11.2010, 18:00
  #5

Не по теме:

Как быстро все кинулись выполнять задание за лодыря!
Не давайте людям рыбу! Помрут же с голоду.
Или так и будут стоять возле церкви с протянутой рукой:
"Помогите убогому. Я хочу иметь диплом, но вот думать чего-то не хочется"
И ещё после этого будут "руководителями производства"
...Не хочу ругаться матом..

0
XoFfiCEr
25.11.2010, 18:06     определить,принадлежит ли точка кольцу
  #6

Не по теме:

Цитата Сообщение от Alex77755 Посмотреть сообщение
Как быстро все кинулись выполнять задание за лодыря!
Не давайте людям рыбу! Помрут же с голоду.
Или так и будут стоять возле церкви с протянутой рукой:
"Помогите убогому. Я хочу иметь диплом, но вот думать чего-то не хочется"
И ещё после этого будут "руководителями производства"
...Не хочу ругаться матом..
Правильно Alex, целиком согласен.

0
25.11.2010, 18:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2010, 18:06
Привет! Вот еще темы с ответами:

Определить, принадлежит ли точка с координатами (x, y) заштрихованной части плоскости
3 Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y...

Принадлежит ли точка
Sub Task() Dim x, y As Double ' Задаем переменным тип данных Dim z1, z2 As Boolean x =...

Принадлежит ли точка треугольнику
Даны вершины треугольника А, В, С на координатной плоскости. М - произвольная точка плоскости....

Как проверить, принадлежит ли точка треугольнику
Пожалуйста, помогите найти ошибку: Sub xy() Dim x1, y1, x2, y2, x3, y3 As Single x1 =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.