Forum: Sonstige Fragen zu Delphi
Delphi
by r_kerber,
1. Nov 2003
Ja die Schüler kennen die Gesetze der Trigonometrie doch besser. :oops:
Forum: Sonstige Fragen zu Delphi
Delphi
by r_kerber,
1. Nov 2003
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');
Forum: Sonstige Fragen zu Delphi
Delphi
by r_kerber,
1. Nov 2003
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.