Найти значения элементов треугольника - VB
Формулировка задачи:
Задача с разветвленными алгоритмами.
Пусть элементами прямоугольного равнобедренного треугольника являются: катет а, гипотенуза b, высота, опущенная из вершины прямого угла на гипотенузу h, площадь S. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. Изобразите на форме равнобедренный треугольник, с подписанными элементами и формулы для их расчета.
Использовать оператор выбора.
пожалуйста, пишите комментарии к задаче)
Решение задачи: «Найти значения элементов треугольника»
textual
Листинг программы
Type Triangle a As Double b As Double h As Double s As Double End Type Function CalcTriangle(Nomer As Long, Param As Double) As Triangle With CalcTriangle Select Case Nomer Case 1: .a = Param Case 2: .a = Param / Sqr(2) Case 3: .a = Param * Sqr(2) Case 4: .a = Sqr(Param * 2) Case Else: Exit Function End Select .b = .a * Sqr(2) .h = .b / 2 .s = .a * .a / 2 End With End Function Sub test() With CalcTriangle(2, 16) 'номер параметра, значение MsgBox "Катет " & .a & vbLf & _ "Гипотенуза " & .b & vbLf & _ "Высота " & .h & vbLf & _ "Площадь " & .s End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д