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]