[korsarfan]

Есть вроде бы не сложное задание:
Написать программу для вычисления площади треугольного участка по известному значению основания C в метрах и углов при основании α, β в градусах, минутах и секундах. Площадь определить в гектарах с точностью до 0,01 га. В программе предусмотреть проверку соотношение α+β>180° (для этого α и β необходимо предварительно перевести в градусы с десятичной дробной частью). В случае невыполнения этого соотношения вывести сообщение «СУММА УГЛОВ ПРЕВОСХОДИТ 180 ГР.» и передать управление оператору ввода исходных данных.
Формула для вычисления площади: S=((C^2)*sin(α)*sin(β))/(2*sin(α+β));
В программе воспользоваться внутренней функцией для перевода угла из градусной меры в радианную. Форма запросов при вводе исходных данных:
СТОРОНА=
ПЕРВЫЙ УГОЛ: ГР., МИН., СЕК.=
ВТОРОЙ УГОЛ: ГР., МИН., СЕК.=
Форма вывода результата:
ПЛОЩАДЬ= значение S ГА.


Я не совсем понял как сделать "В программе воспользоваться внутренней функцией для перевода угла из градусной меры в радианную." что это за функция такая ?
Вот написал программу Вроде считает но корректно условие почему то не проверяет (Rad+Radd)>180 :
Где ошибка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
 
var
  A:real;
  RAD:real;
  RADD:real;
  G,M,GG,MM:integer;
  C,CC:integer;
  S:real;
 
Begin
 
A:=StrToFloat(Edit1.Text);
G:=StrToInt(Edit2.Text);
M:=StrToInt(Edit3.Text);
C:=StrToInt(Edit4.Text);
GG:=StrToInt(Edit5.Text);
MM:=StrToInt(Edit6.Text);
CC:=StrToInt(Edit7.Text);
Rad:=(G+(M+C/60)/60)*PI/180;
Radd:=(GG+(MM+CC/60)/60)*PI/180;
 
if
 
(Rad+Radd)>180
 
then
               begin ShowMessage('СУММА УГЛОВ ПРЕВОСХОДИТ 180 ГР.');
               Exit
end
else
Begin
S:=(A*A*sin(Rad)*sin(Radd))/(2*sin(Rad+Radd));
S:=S/10000;
S:=Round(S*10)/10;
Label5.Caption:=FloatToStr(S)+'га';
end;
end;

Заранее спасибо за ответ! И прилагаю сам проект в делфи)
http://zalil.ru/31076781

[lmikle]

1. Перевод из град в радианы надо оформить в виде функции и в расчете просто вызывать эту функцию.

2. Rad и Radd у тебя в чем? В радианах? А 180 гр это сколько радиан?

[korsarfan]

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

1. Перевод из град в радианы надо оформить в виде функции и в расчете просто вызывать эту функцию.

2. Rad и Radd у тебя в чем? В радианах? А 180 гр это сколько радиан?

2) Спасибо! Не обратил внимание!

1) А как написать такую функцию? Её добавить в implementation? Будет что то вроде этого?

Код:

Function PEREVOD(r:real): real;
begin
r:=pi; 
result:=(r/180);
end;

И как эту функцию вызывать когда мне надо?

[korsarfan]

Спасибо за помощь! Разобрался уже не надо)