Berechnung der Maße der innenwinkel in einem Dreieck

[Tidus]

6.Das Programm soll nach Eingabe der Seitenlängen eines Dreiecks die Maße der Innenwinkel berechnen. Berücksichtige bei der Programmierung, dass die Aufgabe nicht immer lösbar ist.

Hinweis: 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)

Übernimm die Arcuscosinus-Funktion in das Programm.

Was muss ich hier bei console application in den Quelltext eingeben damit es funktioniert. Sitze da schon mindestens 5 Stunden dran und bekomme es nicht raus. Bitte helft mir wäre echt nett

[Luckie]

Was hast du denn schon? Und wo hängst du?

[Tidus]

Delphi-Quellcode:

program a6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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


begin
  Write('Bitte geben sie drei Zahlen an,      ');
  Readln(a,b,c);
   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);

  Readln;

end.

das habe ich schon , ich weiß jetzt aber nicht wie man Einstellen soll, dass das programm berücksichtig das es nicht immer lösbar ist

[edit=r_kerber]Delphi Tags gesetzt. Mfg, r_kerber[/edit]

[r_kerber]

Hallo Tidus,

benutze künftig doch bitte die Delphi-Tags. Damit ist der Quellcode viel leichter lesbar.

Zu Deiner Frage: Du solltest vielleicht abfangen, das a, b oder c nicht null oder negativ sein können.

[Tidus]

Und wie gibt man das ein. Auf den gedanken bin ich auch schon gekommen, aber ich weiß nicht wie man das eingibt

[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');

[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.

[Mirilin]

:hi:

und die Summen 2er Seiten müssem grösser sein als die Dritte (ist sie gleich bildet sich die Seite noch mals ab, und wenn sie kleiner sind ... )

a+b > c und a+c > b und b+c > a

[r_kerber]

Ja die Schüler kennen die Gesetze der Trigonometrie doch besser. :oops:

[Tidus]

delphi gibt aber bei arccos einen Fehler an. Es steht dann da
Undeclared identifier 'arccos'