Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
Bllaaa
11 / 11 / 1
Регистрация: 08.12.2011
Сообщений: 148
1

Определить, лежит ли точка с координатами (x,y) внутри окружности радиусом R

12.05.2012, 19:00. Просмотров 3038. Ответов 3
Метки нет (Все метки)

Здраствуйте. Вот дали решить две задачи, срок 3 дня! Они сами по себе простые, только синтаксиса VB незнаю. Напешите решение пожалуйста, буду искренне благодарен.
1)напечатать все натуральные числа N от 1 до 50 включительно для которых cos*(N*(pi/12)-(pi/4))<0. найти их кол-во.
2)Даны дейсьвительные числа x, y и R. Определить, лежит ли точка с координатами (x,y) внутри окружности радиусом R с центорм в начале координат, на окружности, или вне этой окружности.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2012, 19:00
Ответы с готовыми решениями:

Лежит ли точка M (xm, ym) внутри треугольника, заданного координатами своих вершин?
Лежит ли точка M(xm, ym) внутри треугольника, заданного координатами своих вершин A(xA, yA), B(xB,...

Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R
Определить попадает ли точка с координатами Xo, Yo в круг с радиусом R. Уравнение окружности...

Определить, попадает ли точка М с координатами Х, У в круг с радиусом R и центром в начала координат
определить, попадает ли точка М с координатами Х, У в круг с радиусом R и центром в начала координат

Как определить, лежит ли в первой четверти точка P с координатами x,y
Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с...

Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его вершин
Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его...

3
tarakano
34 / 26 / 0
Регистрация: 24.12.2010
Сообщений: 165
12.05.2012, 19:12 2
первую наверно так можно решить: (на форме 2 лабела)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Const pi = 3.14
Dim i As Integer, k As Integer, m As Integer
Private Sub Form_Load()
k = 0
For i = 1 To 50
If Cos(i * (pi / 12) - (pi / 4)) < 0 Then
Label1.Caption = Label1.Caption & i & "   "
k = k + 1
End If
Next i
Label2.Caption = Label2.Caption & k & "   "
End Sub
1
Bllaaa
11 / 11 / 1
Регистрация: 08.12.2011
Сообщений: 148
12.05.2012, 19:31  [ТС] 3
Огромное спасибо. Если бы сейчас и вторую написал бы кто-нибудь, то вообще замечательно будет).
0
PAnT0P
1029 / 553 / 106
Регистрация: 26.03.2012
Сообщений: 993
12.05.2012, 19:42 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Form_Load()
    Dim R As Single, X As Single, Y As Single
    R=InputBox("Введите радиус:")
    X=InputBox("Введите X:")
    Y=InputBox("Введите Y:")
    If Sqr(X^2 + Y^2) < R Then
        MsgBox("Точка в круге")
    ElseIf Sqr(X^2 + Y^2) > R Then
        MsgBox("Точка вне круга")
    Else
        MsgBox("Точка на окружности")
    End If
End sub
1
12.05.2012, 19:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2012, 19:42

Дана точка А с координатами x и y. Определить ее положение относительно окружности радиуса R=1
Дана точка А с координатами x и y. Определить ее положение относительно окружности радиуса R=1 ...

Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с координатами x,y?
Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с...

Определить лежит ли точка внутри, на или за пределами окружности радиусом R и центром в начале координат
Точка на плоскости задана своими координатами (x,y). Определить лежит ли она внутри, на или за...


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

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

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