VBNet - Форум - не могу угол перевести ( Градусы и в Радианы)

Вопрос: не могу угол перевести ( Градусы и в Радианы) Добавлено: 09.06.10 13:25

Автор вопроса: Алексей

Помогите люди добрые у меня такая проблема:
Я задаю координаты треугольника(к1.к2.к3 например) и пытаюсь найти угол треугольника,и я его нахожу,но мне угол нужен в градусах и радианах(минутах) (48градусов и 38 минут) все книжки облазил нигде нет(

Dim a As Integer
Dim r1 As Integer
Dim r2 As Integer
Dim g1 As Double
Dim g2 As Double
Dim ag1 As Double
Dim ag2 As Double
Dim ag3 As Double
Dim ag4 As Double
Dim am1 As Double
Dim am2 As Double
Dim am3 As Double
Dim am4 As Double

Private Sub Form_Load()

End Sub

Private Sub Start_Click()
10 a = InputBox("введите растояние от точки k")
r1 = InputBox("введите радиус 1 окружности")
r2 = InputBox("ведите радиус 2 окружности ")
If a <= 0 Or r1 <= 0 Or r2 <= 0 Then MsgBox ("данные введены непраильно"): GoTo 10
Print "a="; a
Print "r1="; r1
Print "r2="; r2
g1 = r1 / a
ag1 = Atn(Sqr(g1 / (1 - g1 ^ 2)))
ag1 = (ag1 * 180) / 3.14
ag1 = Int(ag1)
am1 = ag1 * 60
g2 = r2 / a
ag2 = Atn(Sqr(g2 / (1 - g2 ^ 2)))
ag2 = (ag2 * 180) / 3.14
ag2 = Int(ag2)
am2 = ag2 * 60
ag3 = 180 - (ag1 + ag2)
ag4 = ag3
am3 = ag3 * 60
am4 = ag4 * 60
Print " Угол 1 ="; ag1 * 2; "градусов, или ="; am1 * 2; " минут"
Print " Угол 2 ="; ag2 * 2; "градусов, или ="; am2 * 2; " минут"
Print " Угол 3 =Углы 4 i ="; ag3; "Градусов, или ="; am4; " минут"
End Sub
помогите разобраться
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #1	Добавлено: 09.06.10 15:15
	Набери в википедии "радиан" Ответить

Номер ответа: 2 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #2	Добавлено: 09.06.10 22:45
	в градусах и радианах(минутах) вот то самое место, где я перестал понимать сущность вопроса) Но скорее всего википедия должна помочь. Ответить

Номер ответа: 3 Автор ответа: Алексей Вопросов: 2 Ответов: 2	Профиль \| \| #3	Добавлено: 10.06.10 10:26
	Я наконец после долгих Копаний среди своих извилинах наконец все придумал... Dim a As Integer Dim r1 As Integer Dim r2 As Integer Dim g1 As Double Dim g2 As Double Dim ag1 As Double Dim ag2 As Double Dim ag3 As Double Dim ag4 As Double Dim am1 As Double Dim am2 As Double Dim am3 As Double Dim am4 As Double Private Sub Start_Click() 10 a = InputBox("введите расстояние от точки к " r1 = InputBox("введите радиус 1 окружности" r2 = InputBox("введите радиус 2 окружности " If a <= 0 Or r1 <= 0 Or r2 <= 0 Then MsgBox ("данные введены непраильно": GoTo 10 Print "a="; a Print "r1="; r1 Print "r2="; r2 g1 = r1 / a ag1 = Atn(Sqr(g1 / (1 - g1 ^ 2))) ag1 = (ag1 * 180) / 3.1415926535 ag1 = (ag1) am1 = (ag1 * 2) - Int(ag1) * 2 am2 = am1 g2 = r2 / a ag2 = Atn(Sqr(g2 / (1 - g2 ^ 2))) ag2 = (ag2 * 180) / 3.1415926535 ag2 = (ag2) ag3 = 180 - (ag1 + ag2) ag4 = ag3 am3 = ag3 am4 = ag4 Print " Угол 1 ="; Int(ag1) * 2; "Градусам и ="; Int(60 / ((ag1 * 2) - Int(ag1) * 2)); " Минутам" Print " Угол 2 ="; Int(ag2) * 2; " Градусам и ="; Int(60 / ((ag2) * 2 - Int(ag2) * 2)); " Минутам" Print " Угол3 = Углу 4 и ="; Int(ag3); " Градусам и ="; Int(60 / (am4 - Int(ag4))); " Минутам" End Sub То что выделенно и есть то самое над чем я так долго тупил! Ответить

Страница: 1 |