Дана сторона равностороннего треугольника. Найти его площадь - VB

Формулировка задачи:

в Visual Basic Линейные программы Дана сторона равностороннего треугольника. Найти его площадь.

Решение задачи: «Дана сторона равностороннего треугольника. Найти его площадь»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim s As Double
Dim n As Double
Dim a As Double
a = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г±ГІГ®Г°Г®Г*Гі ГІГ°ГҐГіГЈГ®Г«ГјГ*ГЁГЄГ*")
n = (a ^ 2 + (1 / 2 * a) ^ 2) ^ 0.5
s = Round(1 / 2 * n * a, 2)
MsgBox "ГЏГ«Г®Г№Г*Г¤Гј ГІГ°ГҐГіГЈГ®Г«ГјГ*ГЁГЄГ*=" & s & ""
End Sub
                        

Оцени полезность:

11 голосов , оценка 3.909 из 5

Похожие ответы