Berechnung der Maße der innenwinkel in einem Dreieck

[Dagon]

Versuchs mal so:

Delphi-Quellcode:

uses Math;

...

var
  a, b, c: Integer;
  alpha, beta: Real;

begin
  Write('a = ');
  Readln(a);
  Write('b = ');
  Readln(b);
  Write('c = ');
  Readln(c);
  if (a > 0) and (b > 0) and (c > 0) then
  begin
    alpha := arccos((b*b + c*c - a*a) / (2*b*c)) * 180 / Pi;
    beta := arccos((a*a + c*c - b*b) / (2*a*c)) * 180 / Pi;
    Writeln(alpha:0:0);
    Writeln(beta:0:0);
  end
  else
    WriteLn ('Die eingebenen Zahlen muss groesser Null sein');
  ReadLn;
end.