Matematicheskie_metody / Мат. методы. 1 семестр(2 модуль) / мет. гаус.(мат.мет.)2 модуль

Sub Метод_Гаусса()
Const n = 3
Dim a(1 To n, 1 To n) As Double, b(1 To n) As Double, x(1 To n) As Double, i As Integer, j As Integer, A1 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
Next k
Next 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
Next i
For i = 1 To n: Cells(n + 3, i) = x(i): Next i
End Sub