Berechnung der Maße der innenwinkel in einem Dreieck

[r_kerber]

Delphi-Quellcode:

   if (a>0) and (b>0) and (c>0) then
   begin
     alpha := 180/pi*cos(sqr(b)+sqr(c)-sqr(a)/2*b*c);
     beta := 180/pi*cos(sqr(c)+sqr(a)-sqr(b)/2*a*c);
     Writeln(alpha:0:0);
     Writeln(beta:0:0);
  end
  else
    WriteLn ('Die eingebenen Zahlen müsse groesser Null sein');