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

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

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

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

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

Определить, лежит ли точка с координатами внутри сектора окружности
Помогите решить задачу в Microsoft Visual Studio №1 Определить, лежит ли точка с координатами...

лежит ли точка с координатами (x,y) внутри круга с радиусом r
даны координаты центра круга (x,y) x=2 y=4 с радиусом r=1 дана точка с координатами (x1,y1)...

Определить, принадлежит ли точка с координатами х,у окружности, заданной координатами центра и радиусом.
Помогите пожалуйста. Условие: Определить, принадлежит ли точка с координатами х,у окружности,...

3
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
11 / 11 / 1
Регистрация: 08.12.2011
Сообщений: 148
12.05.2012, 19:31  [ТС] 3
Огромное спасибо. Если бы сейчас и вторую написал бы кто-нибудь, то вообще замечательно будет).
0
1040 / 565 / 106
Регистрация: 26.03.2012
Сообщений: 1,006
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2012, 19:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить, принадлежит ли точка с координатами (X,Y) окружности с радиусом R.
Здравствуйте! По сути приведенные внизу задачи просты(даже элементарны для кого-то) и являются...

Определить количество точек с целочисленными координатами, лежащих внутри окружности радиусом R
Определить количество точек с целочисленными координатами, лежащих внутри окружности радиусом R с...

Определить лежит ли точка внутри окружности
1. Напишите тело функции, определяющей лежит ли точка внутри окружности на плоскости. function...

Определить лежит ли точка с указанными координатами на окружности заданного радиуса
Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности...


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

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

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