Решить СЛАУ методом Гаусса - VB

Узнай цену своей работы

Формулировка задачи:

x+3y-z=4 -x+2y+3z=12 2x+y-z=1 надо сделать блок схему и составить программу на VB или VBA pomogite pl3((((
помогите кто нибудь(((

Решение задачи: «Решить СЛАУ методом Гаусса»

textual
Листинг программы
Option Explicit
    Dim a(3, 4) As Double, i As Integer, j As Integer, k As Single
 
Private Sub Command1_Click()
    a(1, 1) = 1: a(1, 2) = 3: a(1, 3) = -1: a(1, 4) = 4
    a(2, 1) = -1: a(2, 2) = 2: a(2, 3) = 3: a(2, 4) = 12
    a(3, 1) = 2: a(3, 2) = 1: a(3, 3) = -1: a(3, 4) = 1
    
    myPrint
    
    k = (a(3, 1) / a(1, 1))
    For i = 1 To 4
        a(3, i) = a(3, i) - k * a(1, i)
    Next
    k = (a(2, 1) / a(1, 1))
    For i = 1 To 4
        a(2, i) = a(2, i) - k * a(1, i)
    Next
    k = (a(3, 2) / a(2, 2))
    For i = 1 To 4
        a(3, i) = a(3, i) - k * a(2, i)
    Next
    a(3, 4) = a(3, 4) / a(3, 3)
    a(3, 3) = 1
    
    a(2, 4) = a(2, 4) - a(3, 4) * a(2, 3)
    a(2, 3) = 0
    a(2, 4) = a(2, 4) / a(2, 2)
    a(2, 2) = 1
    
    a(1, 4) = a(1, 4) - a(3, 4) * a(1, 3) - a(2, 4) * a(1, 2)
    a(1, 2) = 0
    a(1, 3) = 0
    a(1, 4) = a(1, 4) / a(1, 1)
    a(1, 1) = 1
    
    myPrint
    
End Sub
 
Sub myPrint()
    Print CStr(a(1, 1)) + vbTab + CStr(a(1, 2)) + vbTab + CStr(a(1, 3)) + vbTab + CStr(a(1, 4))
    Print CStr(a(2, 1)) + vbTab + CStr(a(2, 2)) + vbTab + CStr(a(2, 3)) + vbTab + CStr(a(2, 4))
    Print CStr(a(3, 1)) + vbTab + CStr(a(3, 2)) + vbTab + CStr(a(3, 3)) + vbTab + CStr(a(3, 4))
    Print vbCrLf
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы