حل سه معادله سه مجهولی

حل سه معادله سه مجهولی
ابتدا ضرایب ایکس را وارد کنید سپس مقدار ایگرگ را در نهایت جواب معادله چاپ خواهد شد
در این برنامه ما از روش ماتریس معکوس استفاده کرده ایم
برنامه ابتدا معکوس ماتریس را محاسبه کرده سپس در ماتریس جوابها ضرب می کند
برگرفته از هندسه تحلیلی دوره ی پیش دانشگاهی

CLS PRINT TAB(30); "in the name of God" PRINT "input Matrex zrayeb : " FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT c(i, j) NEXT j, i PRINT PRINT "input Matrex javab : " FOR i = 1 TO 3 INPUT b(i) 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 PRINT "x("; i; ")="; s NEXT END