Grundwert = 70 (slider from 10 to 180, step 1)
A = (0, 0)
A1 = (0, 2)
B: (Grundwert, 0.0)
B1: (Grundwert, 2.0)
Prozentwert = 0.1 (slider from 0.1 to 0.9, step 0.01)
C: (Grundwert * Prozentwert, 0.0)
C1: (Grundwert * Prozentwert, 2.0)
Vieleck1, a, b, b1, a1 = Polygon(A, B, B1, A1)
Vieleck2, a_1, c, c1, a1_1 = Polygon(A, C, C1, A1)
Text1: "= " + a_1 + " €"
Text2: "= " + Grundwert + " €"
Text3: "Prozentsatz p = " + (100.0 * Prozentwert) + "%"