delphi 计算直角三角形角度? 斜边长度?

简单，主要是运用勾股定理和acrtan函数，代码如下（注释写得非常清楚，自己看吧）
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: real;//a,b分别为两直角边，c为斜边
begin
a := StrToFloat(trim(Edit1.Text));//把edit1的值赋给直角边a
b := StrToFloat(trim(Edit2.Text));//把edit2的值赋给直角边b
c := Sqrt(a*a+b*b);//斜边=两直角边的平方和的开方
edit3.Text := FloatToStr(c);//将斜边的值显示在edit3中
//计算角度 arctan(a/b)求出b,c两边夹角的弧度，其结果乘以57.29578为角度（1弧度约等于57.29578度）。结果显示在edit5中
edit4.Text := FloatToStr(arctan(a/b)*57.29578);
//计算角度 arctan(b/a)求出a,c两边夹角的弧度，其结果乘以57.29578为角度（1弧度约等于57.29578度）。结果显示在edit5中
edit5.Text := FloatToStr(arctan(b/a)*57.29578);
end;
以上代码在Delphi7下运行通过。

倒，用勾股定理不就能算出来了嘛