T342

k = 0.4 (slider from -5 to 5, step 0.01)
f: y = (k * x) + 4 - (5 * k)
A = Intersect(f, xAxis)
B = Intersect(f, yAxis)
P: (5, 4)
C = Intersect(xAxis, yAxis)
k1, b, a, c = Polygon(A, C, B)
Tekstik1: " " + (Name[A]) + (Name[C]) + (Name[B]) + ":n pinta-ala = " + k1
Pistek1 = PointIn(k1)