Нужно написать программу. дана линейная функция y=kx+b . k и b вводятся с клавиатуры. рассмотреть все где числа могут быть отрицательными и положительными, посчитать. составной условный оператор.
На Visual Basic. Делаешь 4 текстовых поля под a, b, x, y Dim a As Double, b As Double, x As Double, y As Double a = Text1.Text: b= Text2.Text: x = Text3. Text y = a*x + b Text4.Text = y End Sub Вот и все. Независимо от положительных и отрицательных а и b, получаешь ответ. Если же надо просчитать при разных х от х1 до х2, то 5 полей Dim a As Double, b As Double , i As Integer Dim x1 As Integer, x2 As Integer, y As Double Text5.MultiLine = True a = Text1.Text: b= Text2.Text: x1 = Text3. Text, x2 = Text4.Text Text5.Text = "" For i = x1 To x2 y = a*i + b Text5.Text = Text5.Text & Str(y) & vbCrLf Next i End Sub
Dim a As Double, b As Double, x As Double, y As Double
a = Text1.Text: b= Text2.Text: x = Text3. Text
y = a*x + b
Text4.Text = y
End Sub
Вот и все.
Независимо от положительных и отрицательных а и b, получаешь ответ.
Если же надо просчитать при разных х от х1 до х2, то 5 полей
Dim a As Double, b As Double , i As Integer
Dim x1 As Integer, x2 As Integer, y As Double
Text5.MultiLine = True
a = Text1.Text: b= Text2.Text: x1 = Text3. Text, x2 = Text4.Text
Text5.Text = ""
For i = x1 To x2
y = a*i + b
Text5.Text = Text5.Text & Str(y) & vbCrLf
Next i
End Sub