Решение линейных уравнений с средствами Visual Basic - VB

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

Помогите пожалуйста, сделать на Visual Basic решение линейных уравнений (на графике определить приближенное решение системы уравнений и уточнить решение аналитически в функции) Если есть добрые люди помогите. Век благодарен буду


textual

Код к задаче: «Решение линейных уравнений с средствами Visual Basic - VB»

Option Explicit
Dim a1!, b1!, c1!, a2!, b2!, c2!
Dim X!, Y!, y1!, y2!
 
Private Sub cmdD_Click()
    a1 = Val(txt1.Text)
    b1 = Val(txt2.Text)
    c1 = Val(txt3.Text)
    a2 = Val(txt4.Text)
    b2 = Val(txt5.Text)
    c2 = Val(txt6.Text)
    
    pic.Scale (-10, 10)-(10, -10)
    pic.DrawWidth = 3
    pic.Line (0, -10)-(0, 10)
    pic.Line (-10, 0)-(10, 0)
    
    pic.ForeColor = vbRed
    y1 = (c1 - a1 * -10) / b1
    y2 = (c1 - a1 * 10) / b1
    pic.Line (-10, y1)-(10, y2)
    y1 = (c2 - a2 * -10) / b2
    y2 = (c2 - a2 * 10) / b2
    pic.Line (-10, y1)-(10, y2)
End Sub
 
Private Sub pic_MouseMove(Button As Integer, _
                                              Shift As Integer, _
                                              X As Single, Y As Single)
    pic.ToolTipText = "X =" + Str(X) + " Y =" + Str(Y)
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.182 из 5

Источник