Dreiecksprogramm

[Adler]

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