Расчёт S и P треугольника через его стороны и/или углы

[Matrix6993]

Всем здравствуйте. Помогите пожалуйста создать модуль расчёта площади и периметра треугольника по трём из известных данных(углов и/или сторон). Например, дана 1 сторона и 2 угла, и надо расчитать площадь и периметр треугольника. Вот такая программа только написана на html, а мне нужно на Delphi 7. ----> Программка на сайте

Главная проблема в том, что у меня ни как не получается связать углы и стороны в самой программе! Помогите пожалуйста. Заранее спасибо!

[phomm]

Помогу за вознаграждение, обращайтесь, контакты в профиле.
Либо пишите конкретный вопрос и Ваш код - попытку решить вопрос, тогда будем всем форумом помогать.

[Matrix6993]

Конкретный вопрос: Как связать в программе 6 edit'ов.
Алгоритм: Если (if) заполнено меньше трёх edit'ов, то (then) выводим сообщение "Должно быть введено не меньше трёх известных данных", иначе(else) идет проверка на существование треугольника (по введенным вами данным(сторона и/или угол)). (КАК СДЕЛАТЬ ПРОВЕРКУ НА СУЩЕСТВОВАНИЕ, ЕСЛИ ПОЛЬЗОВАТЕЛЬ ВВЕЛ ИЗВЕСТНЫЕ ЕМУ ДАННЫЕ, ИЗ КОТОРЫХ ПРИСУТСТВУЕТ ЗНАЧЕНИЕ УГЛА (к примеру: 1 сторона и 2 угла) (проверку на существование треугольника связанная ТОЛЬКО с тремя(3) сторонами(без углов) - Я МОГУ СДЕЛАТЬ. А вот с участием углов - вообще беда.))
Помогите пожалуйста!

[Hacker19_90]

Алгоритм: Если (if) заполнено меньше трёх edit'ов, то (then) выводим сообщение "Должно быть введено не меньше трёх известных данных",

count_zero := 0;
for i := 1 to 6 do 
    if Length(TEdit(FindComponent('Edit' + IntToStr(i))).Text) = 0 then Inc(count_zero);
if count_zero > 3 then ShowMessage ('Должно быть введено не меньше трёх известных данных')
else делаем что-то

[phomm]

Может проще и даже красивее сделать в лоб ? без 6 эдитов сразу.

Кладем TabControl - обзываем несколько вкладок - "3 стороны" "2стороны и угол меж ними" "сторона и 2 угла при ней". На основном теле формы - 3 лабеледэдита, кнопка и мемо.

При смене вкладки меняем только названия лабелов в лабеледэдитах (ну там всякие "1я сторона" "2 угол" и т.п.). Смененую вкладку запоминаем в некую переменную либо потом просто проверяем её номер при расчете.

На кнопке сперва проверка на непустоту эдитов, примерно как Hacker19_90 написал или просто даже

if (edit1.text = '') or (edit2.text = '') or (edit3.text = '')  then 
begin
showmessage('исправьте эдиты, ну и руки заодно');
exit;
end;

потом весь расчёт, это уж вы сами, см матику/геометрию за 6-7 класс - в зависимости от номера вкладки у вас будут отличаться расчёты, я бы посоветовал оформить в отдельные процедурки с передачей и возвратом параметров, а в кнопке только вызов этих процедурок.
В итоге Вы заносите полный текст ответа со всеми величинами углов сторон в мемо, таким образом прога будет не на 1 расчёт, а сразу на много.

[denisbrain]

Сообщение от Matrix6993

Всем здравствуйте. Помогите пожалуйста создать модуль расчёта площади и периметра треугольника по трём из известных данных(углов и/или сторон). Например, дана 1 сторона и 2 угла, и надо расчитать площадь и периметр треугольника. Вот такая программа только написана на html, а мне нужно на Delphi 7. ----> Программка на сайте

Главная проблема в том, что у меня ни как не получается связать углы и стороны в самой программе! Помогите пожалуйста. Заранее спасибо!

часть программы написано на HTM&Java, а часть на php есть? можно просто перевести код php в delphi

[Matrix6993]

Сообщение от phomm

Может проще и даже красивее сделать в лоб ? без 6 эдитов сразу.

Кладем TabControl - обзываем несколько вкладок - "3 стороны" "2стороны и угол меж ними" "сторона и 2 угла при ней". На основном теле формы - 3 лабеледэдита, кнопка и мемо.

При смене вкладки меняем только названия лабелов в лабеледэдитах (ну там всякие "1я сторона" "2 угол" и т.п.). Смененую вкладку запоминаем в некую переменную либо потом просто проверяем её номер при расчете.

На кнопке сперва проверка на непустоту эдитов, примерно как Hacker19_90 написал или просто даже

if (edit1.text = '') or (edit2.text = '') or (edit3.text = '')  then 
begin
showmessage('исправьте эдиты, ну и руки заодно');
exit;
end;

потом весь расчёт, это уж вы сами, см матику/геометрию за 6-7 класс - в зависимости от номера вкладки у вас будут отличаться расчёты, я бы посоветовал оформить в отдельные процедурки с передачей и возвратом параметров, а в кнопке только вызов этих процедурок.
В итоге Вы заносите полный текст ответа со всеми величинами углов сторон в мемо, таким образом прога будет не на 1 расчёт, а сразу на много.

А можно тут поподробнее, буду очень признателен!