Hi,
Code:
Dim A As Single
Dim B As Single
Dim C As Single
Dim A2 As Single
Dim B2 As Single
Dim C2 As Single
Dim Winkel As Single

Config Portc.0 = Output

A = 63.25
B = 100
C = 100

Do
B2 = B * B
A2 = A * A
C2 = C * C
Winkel = B2 + C2
Winkel = Winkel - A2
Winkel = Winkel / 2
Winkel = Winkel / B
Winkel = Winkel / C
Winkel = ACOS(winkel) ' danach müsstest du den Winkel im Bogenmaß haben 
Winkel = Winkel * 180
Winkel = Winkel / PI
Loop
Es gibt aber sicher auch eine einfachere Variante, so müsstest du halt Pi annähernd in eine Konstante packen, dann ist es aber natürlich nichtmehr genau
/EDIT Nö warum soll er erst Zähler und Nenner ausrechnen, es reicht doch wenn er den Zähler ausrechnet und dann einzeln dividiert.
Statt COS muss ACOS hin und statt B2 = B * B könnte man auch
B2 = SQR(B) schreiben.