Решение системы из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
