Hallo.
Delphi-Quellcode:
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
// vorher noch überprüfen ob die 2 kürzesten Seiten länger sind als die längste
// ...
alpha:=RadToDeg(arccos((sqr(a)-sqr(b)-sqr(c))/(-2*b*c)));
beta:= RadToDeg(arcsin((b/a)*sin(DegToRad(alpha))));
gamma:=180-alpha-beta;
kann sein das noch die ein oder andere Klammer fehlt