Проверьте, пожалуйста, задачу Delphi.

[dimonpwnz]

Проверьте, пожалуйста, задачу Delphi.

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


Сама задача:

 

[AlexZir]

Во-первых, на форме нет подписей и непонятно, какие именно данные куда вводить нужно.

Во-вторых, черный цвет формы - не комильфо нифига, оставляйте стандартный или по настройкам Windows.

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

По листингу:

вместо gepot:=sqrt((sqr(katet)+sqr(katet))); можно написать gepot:=sqrt(2*sqr(katet));

вместо katet:=sqrt(sqr(visota)+sqr(gepot/2)); можно написать katet:=sqrt(2*sqr(visota)); так как в квадрате диагонали равны и в точке пересечения делятся пополам.

Чем меньше рассчетов - тем быстрее работает программа.

 

[dimonpwnz]

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

А как это сделать?

Вот что пока имею: