Страница: 1 |
Вопрос: не могу угол перевести ( Градусы и в Радианы) | Добавлено: 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | Цитата | #1 | Добавлено: 09.06.10 15:15 |
Набери в википедии "радиан" |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #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 ("данные введены непраильно" ![]() 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 |
|