Решение системы из 2-х уравнений типа y=kx+b - VB
Формулировка задачи:
написать программу решения системы из 2 -х уравнения типа у=kx +и где k и b коэффициенты которые вводяться с лдавиатуры!!
Решение задачи: «Решение системы из 2-х уравнений типа y=kx+b»
textual
Листинг программы
Option Explicit
Private Sub Комманда1_Click()
Dim K1, K2, b1, b2
Dim X, Y
K1 = InputBox("Ведите k1", "Ввод коэффициентов", 5)
K2 = InputBox("Ведите k2", "Ввод коэффициентов", 3)
b1 = InputBox("Ведите b1", "Ввод коэффициентов", 8)
b2 = InputBox("Ведите b2", "Ввод коэффициентов", 2)
X = (b1 - b2) / (K1 - K2)
Y = K1 * X + b1
MsgBox "Корнями ситемі равнений" & vbCrLf _
& "Y = " & K1 & "x + " & b1 & vbCrLf & "Y = " & K2 & "x + " & b2 & vbCrLf _
& "являются" & vbCrLf & " X = " & X & vbCrLf & " Y = " & Y, 64, "Информация"
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д