Нужно сравнить площади 3 трапеций и найти среди них равнобочною за диагоналями и кутом

[Awful_Silver]

Нужно сравнить площади 3 трапеций и найти среди них равнобочною за диагоналями и кутом. Вот написал, но не знаю,что дальше...


procedure TForm1.Button1Click(Sender: TObject);
var S1, d1, d2, gr1, rd1, S2, d3, d4, gr2, rd2, S3, d5, d6, gr3, rd3, G, m : Real;
begin
d1:=StrToFloat(Edit1.Text);
d2:=StrToFloat(Edit2.Text);
d3:=StrToFloat(Edit4.Text);
d4:=StrToFloat(Edit5.Text);
d5:=StrToFloat(Edit7.Text);
d6:=StrToFloat(Edit8.Text);
gr1:=StrToFloat(Edit3.Text);
gr2:=StrToFloat(Edit6.Text);
gr3:=StrToFloat(Edit9.Text);
G:= 0.017453292519943295769236907684886 ;
rd1:=sin(gr1*G);
rd2:=sin(gr2*G);
rd3:=sin(gr3*G);
S1:=((1/2)*d1*d2*sin(rd1));
S2:=((1/2)*d3*d4*sin(rd2));
S3:=((1/2)*d5*d6*sin(rd3));
if S1>S2 then begin
if S1>S3 then m := S1
else m := S3;
end else begin
if S2>S3 then m := S2
else m := S3;

[digitalis]

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

равнобочною за диагоналями и кутом.

Переводчика - в студию. Не все же на русскоязычном форуме балакають по украиньски. И телепаторы перегреваются, чтобы понять - что есть что из бесчисленных d1,d2...
А константа
G:= 0.017453292519943295769236907684886 ;
меня вообще потрясла своей неимоверно-немыслимой точностью и бессмысленностью. Что-нибудь из космического ?
А по смыслу - не помешала бы проверка - вообще образует ли каждая четверка точек трапецию, иначе дальнейшие движения будут как ловля дельфина в пустыне Сахара.

[min@y™]

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

А константа
G:= 0.017453292519943295769236907684886 ;
меня вообще потрясла своей неимоверно-немыслимой точностью и бессмысленностью. Что-нибудь из космического ?

ИМХО, это pi/180.
Ну и, на всякий случай, конечно же, слава украине!

[Аватар]

Судя по вычислению площади d1 и d2 - длины диагоналей, gr1 - угол между ними в градусах. rd1 - попытка градусы перевести в радианы, только синус зачем-то здесь, либо из вычисления площади синус выбросить. Аналогично и для двух других трапеций. Да, и трапеция равнобедренная если диагонали равны, этого вполне достаточно. А вот как проверить, что на основании длин диагоналей и угла между ними можно вообще построить трапецию не скажу, что-то не охота в школьную геометрию сильно погружаться ))