Нахождение гипотенузы и катетов с корнями - Visual Basic .NET
Формулировка задачи:
Пишу программу для расчета гипотенузы и катетов прямоугольного треугольника. Столкнулся с проблемой, не знаю как посчитать если в заданных данных присутствует корень. Вот так выглядит программа. (Пустые TextBox это целое число, где "0" - это часть под корнем) Вот например нужно посчитать катет "a" зная гипотенузу и катет "b". У меня сделано вот так:
Но здесь получается что корень ноль и поэтому целая часть тоже обнуляется. Вопрос, как считать примеры с корнями в Visual Basic?
Листинг программы
- If c.Text.Length <> 0 And b.Text.Length <> 0 And a.Text.Length = 0 Then
- a.Text = Math.Round(Math.Sqrt(c.Text ^ 2 * Math.Sqrt(qc.Text) ^ 2 - b.Text ^ 2 * Math.Sqrt(qb.Text) ^ 2), 2)
- End If
Решение задачи: «Нахождение гипотенузы и катетов с корнями»
textual
Листинг программы
- If c.Text.Length <> 0 And b.Text.Length <> 0 And a.Text.Length = 0 Then
- a.Text = Math.Round(Math.Sqrt(Val(c.Text) ^ 2 * iif(Val(qc.Text)=0, 1 , Val(qc.Text)) - Val(b.Text) ^ 2 * iif(Val(qb.Text)=0, 1 , Val(qb.Text))), 2)
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д