Помогите, пожалуйста, с задачкой.

[dimonpwnz]

Помогите, пожалуйста, с задачкой.

Пусть элементами прямоугольного равнобедренного треугольника являются:
1) катет
2) гипотенуза
3) высота, опущенная из вершины угла на гипотенузу
4) площадь
Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значения всех остальных элементов треугольника.
Предусмотреть очистку полученных результатов и ввод новых данных.

 

[AlexZir]

среда программирования какая?

 

[dimonpwnz]

Borland Delphi 6

 

[AlexZir]

Привожу алгоритм решения, программу пишите сами, так как 6-го под рукой нет, есть только 2009:

1) запрашиваем исходные данные путем выбора радиокнопки из радиогруппы и анализа содержимого окна
2) вычисляем остальные значения элементов
3) выводим вычисленные значения и запрос на выход или новый ввод.
4) обрабатываем полученные результаты запроса.

Математический аппарат:
Ввиду того, что дан равнобедренный прямоугольный треугольник (а это половина квадрата, разрезанного по диагонали), можем вывести следующие формулы
гипотенуза - квадратный корень из удвоенного квадрата катета
высота равна половине гипотенузы или половине квадратного корня из квадрата катета
площадь равна половине квадрата катета или половине произведения гипотенузы на высоту
катет равен удвоенному квадратному корню из площади или половине квадратного корня из квадрата гипотенузы или квадратному корню из удвоенного квадрата высоты

Таким образом, задача написания программы сводится к размещению на форму радиогруппы из 4-х кнопок, окна Edit, Memo, кнопок Продолжить и Выход и к прописыванию команд по вычислению значений по вышеприведенным формулам.

Пояснения к коду:
Лучше использовать свойства Memo.Clear и до выбора элемента компоненту Edit делать скрытой. Очистку полученных результатов реализовать в обработчике кнопки Продолжить, в нем же прописать и инициализацию начального вида окна.

 

[dimonpwnz]

Спасибо, не могли бы вы помочь с постройкой блок схемы для данной задачи.