?? linear.bas
字號:
1 REM ::: SOLVE A SYSTEM OF LINEAR EQUATIONS2 REM ::: A1*X1 + A2*X2 = B13 REM ::: A3*X1 + A4*X2 = B24 REM --------------------------------------10 READ A1, A2, A3, A415 LET D = A1 * A4 - A3 * A220 IF D = 0 THEN 6530 READ B1, B237 LET X1 = (B1*A4 - B2*A2) / D42 LET X2 = (A1*B2 - A3*B1) / D55 PRINT X1, X260 GOTO 3065 PRINT "NO UNIQUE SOLUTION"70 DATA 1, 2, 480 DATA 2, -7, 585 DATA 1, 3, 4, -790 END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -