Teht. 347

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