Помогите пож с задачкой по delphi

[Annabelle]

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

[sda]

Если катет=х
то элементы равны
1) х
2) x*КОРЕНЬ(2)
3) x/КОРЕНЬ(2)
4) x*x/2

[геннадий]

Если катет=х
то элементы

А если не катет? Надо писать 4 ветви вычислений, в каждой 1 элемент вводить, а 3 вычислять (см блок-сх). Итого - 12 штук вычислений + безусловные переходы в конце каждой ветви.

А можно ли короче?

Да, можно. Вначале ввод кода и значения. Затем вычисляем все 4 версии любого из элементов (я возьму высоту) в предположениях, что введен каждый из возможных элементов:
1)высота как функция катета
2)она же от гипотенузы
3) тут нечего вычислять
4) от площади
Вычисляем теперь высоту. Только один множитель в правой части - истина, остальные - ложь, арифметически ноль.
Зная один элемент, вычисляем остальные.

Того же результата мы достигли без разветвлений и вычисляли только 6 раз. Экономия налицо.

[Prince NAMTARr]

А если не катет? Надо писать 4 ветви вычислений, в каждой 1 элемент вводить, а 3 вычислять (см блок-сх). Итого - 12 штук вычислений.
А можно ли короче?

ЭЭЭ, а зачем в самом конце возвращение программы в начало? она зациклится так по-моему

[геннадий]

ЭЭЭ, а зачем в самом конце возвращение программы в начало? она зациклится так по-моему

По условию: очистка (обнуление) и на новый ввод. Зацикливание не произойдет, программа будет ожидать ввода. Условие останова, конечно, нужно, но оно за рамками задания.

[Annabelle]

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

Програмный код к этой задаче уже есть, хотелось бы получить блок схему.

[геннадий]

Програмный код к этой задаче уже есть, хотелось бы получить блок схему.

Вот то что выше накорябано на двух листках- это блок-схемы и есть, но моего алгоритма. По программе нарисовать блок-схему - легче легкого. Надо только поучить назначение разных слов, которыми эта прога написана.

Во всяком языке есть возможность написания комментариев. Когда прогу пишешь, и их надо сразу писать, чем больше, тем лучше. Объясняя свою прогу возможному читателю, во-1-х, сам лучше ее поймешь, во-2-х, оставишь памятки по переменным программы и всем ее тонкостям. Комменты только в вирусах не пишут.