Sub метод_гаусса()
Const n = 3
Dim a(1 To n, 1 To n) As Double, b(1 To n) As Double, i As Integer, j As Integer, A1 As Double, k As Integer, x(1 To n) As Double
For i = 1 To n
For j = 1 To n
a(i, j) = Cells(i, j)
Next j
b(i) = Cells(i, n + 1)
Next i
For i = 1 To n
A1 = a(i, i)
b(i) = b(i) / A1
For j = 1 To n
a(i, j) = a(i, j) / A1
Next j
For k = i + 1 To n
A1 = a(k, i)
b(k) = b(k) - b(i) * A1
For j = 1 To n
a(k, j) = a(k, j) - a(i, j) * A1
Next j, k, i
x(n) = b(n)
For i = n - 1 To 1 Step -1
x(i) = b(i)
For j = n To i + 1 Step -1
x(i) = x(i) - x(j) * a(i, j)
Next j, i
For i = 1 To n
Cells(n + 2, i) = x(i)
Next i
Range("D5").Formula = "=A2*A5+B2*B5+C2*C5"
End Sub