Проверьте, пожалуйста, задачу Delphi.
Вложений: 1
Условие задачи:
Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет 2) гипотенуза 3) высота, опущенная из вершины угла на гипотенузу 4) площадь Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значения всех остальных элементов треугольника. Предусмотреть очистку полученных результатов и ввод новых данных. Сама задача: |
Во-первых, на форме нет подписей и непонятно, какие именно данные куда вводить нужно.
Во-вторых, черный цвет формы - не комильфо нифига, оставляйте стандартный или по настройкам Windows. В-третьих, наверняка вам нужно как-то обозначить авторство программы, чтобы проверяющий знал, для чего она нужна. Рекомендую добавить на форму контекстное меню, в котором продублируйте кнопки, а также добавьте команду для вызова модального окна О программе. По листингу: вместо gepot:=sqrt((sqr(katet)+sqr(katet))); можно написать gepot:=sqrt(2*sqr(katet)); вместо katet:=sqrt(sqr(visota)+sqr(gepot/2)); можно написать katet:=sqrt(2*sqr(visota)); так как в квадрате диагонали равны и в точке пересечения делятся пополам. Чем меньше рассчетов - тем быстрее работает программа. |
Вложений: 1
Цитата:
Вот что пока имею: |
Часовой пояс GMT +4, время: 10:08. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.