پیدا کردن معادله خطی که از سه نقطه می گذرد

پیدا کردن معادله خطی که از سه نقطه می گذرد
ابتدا مختصات این سه نقطه را وارد می کنید
در نهایت خروجی برنامه معادله سهمی که از این سه نقطه می گذرد می باشد
 (( برنامه دارای یک نقص کوچک می باشد که در آینده اصلاح خواهد شد ))

CLS PRINT TAB(30); "in the name of God" FOR i = 1 TO 3 INPUT "x,y : ", x(i), b(i) NEXT FOR i = 1 TO 3 r = 2 FOR j = 1 TO 3 c(i, j) = x(i) ^ r r = r - 1 NEXT NEXT PRINT FOR w = 1 TO 3 FOR z = 1 TO 3 FOR i = 1 TO 3 FOR j = 1 TO 3 IF i <> w AND j <> z THEN k = k + 1 d(k) = c(i, j) END IF NEXT j, i e(w, z) = ((-1) ^ (w + z)) * (d(1) * d(4) - d(2) * d(3)) k = 0 NEXT z, w FOR i = 1 TO 3 m = m + c(1, i) * e(1, i) NEXT IF m = 0 THEN PRINT "bedon javab": END FOR i = 1 TO 3 s = 0 FOR j = 1 TO 3 s = (e(j, i) / m) * b(j) + s NEXT j h(i) = s NEXT IF h(2) >= 0 THEN z1$ = "+" + STR$(h(2)) ELSE z1$ = STR$(h(2)) IF h(3) >= 0 THEN z2$ = "+" + STR$(h(2)) ELSE z2$ = STR$(h(3)) PRINT "y = "; h(1); " * X ^ 2 " + z1$ + " * X " + z2$ END