Вычислить площадь треугольника по стороне и проведённой к ней высоте

@nastyakisa · Регистрация: 26.12.2011

Author24 — интернет-сервис помощи студентам

Ребята, возникла такая проблемка. Нужно написать программу, которая вычисляла бы площадь треугольника по стороне и проведённой к ней высоте. Данные вводить через MsgBox. Помогите пожалуйста, а то совсем худо.
Буду очень благодарна! Заранее спасибо за помощь!

@~~Апострофф~~ · 16.02.2012, 06:48

ПРОГРАММА!

Visual Basic

1	msgbox(inputbox("сторона?")*inputbox("высота?"))/2

@Sasha_Smirnov · 16.02.2012, 06:51

Сообщение от nastyakisa

Данные вводить через MsgBox. Помогите пожалуйста...

Через мессиджбокс не люблю (да и как туда вводить?!) — сделал всё через инпутбоксы, с контролем.

Visual Basic

Dim a, h 'сторона и проведённая к ней высота треугольника
 
Sub SquareAH()
Do
    s = InputBox("Сторона: " & IIf(a = "", VVOD(a), a) & vbCr & vbCr & _
        "Высота: " & IIf(h = "", VVOD(h), h) & vbCr & vbCr & _
        "Площадь: " & IIf(a = "" Or h = "", "мало данных!", Raschot(a, h)), _
        "Площадь треугольника по стороне и высоте")
Loop Until IsNumeric(s) Or s = ""
End Sub
 
 
Function VVOD(ByRef chislo)
Static N
    N = N + 1
        Do
            chislo = Trim(InputBox(IIf(N Mod 2, "Сторона: ", " Высота: "), _
                                "Ввод параметра треугольника"))
        Loop Until IsNumeric(chislo) And chislo > 0 Or chislo = ""
End Function
 
Function Raschot(ByRef a, ByRef h)
If a = "" Or h = "" Then Raschot = 0 Else Raschot = a * h / 2
End Function

@Alex77755 · 16.02.2012, 11:35

Нормально

Добавлено через 19 минут
Немного поправил строку условий - не стало "мало данных"

Visual Basic

1	Loop While IsNumeric(chislo) = False Or chislo <= 0 Or chislo = ""

@Sasha_Smirnov · 16.02.2012, 15:31

Сообщение от Alex77755

Visual Basic

1	Or chislo <= 0

Так-то да, но тогда chislo вводить обязательно, а отмена (Cansel) InputBox’а «заглючит».

Вообще-то ждал "честных" вариантов на MsgBox’ах — мол, "хотите 2 см?" (Y/N)... а 3 см? нет?! тогда 4☺

@nastyakisa 1 / 1 / 0 Регистрация: 26.12.2011 Сообщений: 8
		1
	Вычислить площадь треугольника по стороне и проведённой к ней высоте 16.02.2012, 03:44. Показов 3075. Ответов 4 Метки нет (Все метки) Ребята, возникла такая проблемка. Нужно написать программу, которая вычисляла бы площадь треугольника по стороне и проведённой к ней высоте. Данные вводить через MsgBox. Помогите пожалуйста, а то совсем худо. Буду очень благодарна! Заранее спасибо за помощь! 0

	16.02.2012, 15:31

Вычислить площадь треугольника по стороне и проведённой к ней высоте

Решение