Определения всех углов треугольника при заданных значениях сторон a, b, c

Задание на разработку задачи

Создать приложение для определения всех углов треугольника при заданных значениях сторон a, b, c.
Назначение процедуры: Вычисление угла по теореме косинусов:

Формализация и уточнение задания

Для решения задачи существует теорема косинусов: Квадрат любой стороны треугольника равен сумме квадратов двух других его сторон, без удвоенного произведения этих сторон на косинус угла между ними.

Формула для вычисления угла альфа: , где а, b, c стороны треугольника и альфа угол лежащий напротив стороны а

В соответствии с требованиями задания разобьем решение задачи на несколько отдельных задач и создадим процедуры пользователя, реализующие эти задачи:
•процедуру-Function corner(), вычисляет значение углов в радианах.
•процедуру- Function vvod() для ввода действительного числа из объекта типа TextBox;
•процедуру-Sub vivod() для вывода действительного числа в объект типа TextBox.

Форма

Код программы

Код тут

Блок схемы

Процедура функция vvod()

Процедура-функция corner()

Процедура-подпрограмма vivod()

Основная

Доказательство