Der "Grosse" Programmierthread

[Ahasver]

mkay,

ich hab mal ein bissche Fehlersuche betrieben, indem in nacheinander stückchenweise alles mal als kommentar gemacht hab. und der Fehler scheint (zu 99,9%) aus der Ecke Winkelberechnug zu kommen. Also aus diesem codestück hier :

Code:

coab:= ((skalar)/(ab*bb));
bwab:= arccos(coab);
wiab:= (bwab)/(Pi)*180;
editwab.text:= format('%3.1f',[wiab]);

-Edit-
mkay habs selba gelöst

Code:

coab:= ((skalar)/(ab*bb));
if round(coab*10000000)=10000000 then
begin
bwab:= 0;
end
else
begin
bwab:= arccos(coab);
end;
wiab:= (bwab)/(Pi)*180;
editwab.text:= format('%3.1f',[wiab]);

das man mit "round" so einfach runden kann hät mir aber auch mal einer von euch sagen können (so hats die delphi hilfe) . Das Problem war das er den arccos von 1 nicht bildet will (was ja eigentlich auch logisch ist, denn dieser ist nicht deffiniert)

@malle
§thx for the help and the nice proggi.

-Edit2-
man hier merkt aber auch niemand was, das eine Klammerkommentar war totaler stuss, aber eigentlich isses auch toll das es keiner gemerkt hat, so konnt ich es löschen bevor mich jemand korrigiert