Längen: a, h_a in cm

Du kannst an A, B und D ziehen.

Zahl_a = 2 (slider from 0 to 5, step 0.1)
Zahl_h = 3 (slider from 0 to 5, step 0.1)
A = (-1.1, -2.54)
a_2: abs(Zahl_a)
B = Point(Circle[A, abs(Zahl_a)])
a = Segment(A, B)
b = Line(A, B)
D = Point(b)
c = OrthogonalLine(D, b)
d = Circle(D, Zahl_h)
C = Intersect(d, c, 2)
h_a = Segment(C, D)
Vieleck1, d_1, a_1, b_1 = Polygon(A, B, C)
PunktVieleck1 = PointIn(Vieleck1)
TextVieleck1: "Fläche von  " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + " = " + Vieleck1 + " cm²"
D_1 = Point(b)
α = Angle(D_1, D, C)