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

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

مثال
 ax(1)+bx(2)+cx(3)=d
شما باید به برنامه به ترتیب اعداد a و b و c و d را وارد کنید
معادله های بعدی نیز به این گونه صورت می گیرد

CLS PRINT TAB(30); "in the name of God" PRINT PRINT " (( this program solve 3 moadelh 3 X ))" FOR i = 1 TO 3 PRINT "input zareb moadelh"; i; ":" FOR j = 1 TO 4 INPUT a(i, j) NEXT j, i FOR i = 1 TO 4 b = a(1, 1) * ((a(2, 2) * a(3, 3)) - (a(2, 3) * a(3, 2))) c = a(1, 2) * ((a(2, 1) * a(3, 3)) - (a(2, 3) * a(3, 1))) d = a(1, 3) * ((a(2, 1) * a(3, 2)) - (a(2, 2) * a(3, 1))) m(i) = b - c + d IF i = 4 THEN EXIT FOR IF i > 1 THEN FOR k = 1 TO 3 SWAP a(k, i - 1), a(k, 4) NEXT END IF FOR j = 1 TO 3 SWAP a(j, i), a(j, 4) NEXT NEXT PRINT IF m(1) = 0 THEN PRINT "bedon javab": END FOR i = 1 TO 3 PRINT "X("; i; ")="; m(i + 1) / m(1) NEXT END