Можно найти через площадь и острый угол прямоугольного треугольника, или площадь и две пропорциональных стороны.
Код для Delphi:
uses Math;
procedure TForm1.Rectangle();
var
a1,b1,a2,b2,k1,k2,c2,s2,degree1,radian1:extended;
begin
a1 := 10; // Сторона "a1"
b1 := 4; // Сторона "b1"
s2 := 10; // Площадь прямоугольника "a2,b2"
degree1 := ArcTan2(b1,a1)/pi*180;
if... Читать далее