Also dann kann man das folgendermaßen umsetzen:
Delphi-Quellcode:
uses math;
...
var alpha, geg, ank, hyp: Real;
...
//hier Werte für Gegen-, Ankathete und Hypotenuse einlesen
..
//Alpha berechen:
alpha:= arcsin(geg/hyp);
//oder
alpha:= arccos(ank/hyp);
//oder
alpha:= arctan(geg/ank);
alpha:= RadToDeg(alpha);//ins Gradmaß umrechnen
Ist doch garnicht so schwer, wenn man die mathematischen Grundlagen (und die Delphi-Funktionen) kennt.
MfG
Binärbaum