Помогите! Нужно написать программу. Дана линейная функция y=kx+b . k и b вводятся с...

Question

Помогите!

Нужно написать программу. Дана линейная функция y=kx+b .
k и b вводятся с клавиатуры. Рассмотреть все способы,где числа могут быть отрицательными и положительными, посчитать. Составной условный оператор.

Comments

и мне скинь)

---

пожалуйста

---

Скинул.

---

Доктор математических наук, профессор Mefody66 сейчас опубликует свою научную статью!))

---

Pauel, спасибо за комплимент, но я не профессор математики. И я тоже не понял, в чем суть задания. Написал, как сумел.

Answer 1

На 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

Comments

Тогда может быть так:

---

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
If y > 0 Then Text4.Text = "y > 0" Else Text4.Text = "y < 0"
End Sub

---

в целых числах решит или в любых?

---

В любых, они же все типа Double, что значит - дробные двойной точности.

---

program gt;

---

kage1998, я не понял, что такое program gt;

---

var b,k,x,y:real; begin read(k,b); x:=-round(b/k)-1;y:=k*x+b;writeln(x,' ',y);x:=-round(b/k)+2;y:=k*x+b;write(x,' ',y);end.

---

program gt;-название программы на паскале

---

у меня в решении 2 ответа первый для отрицательных а второй для положительных(если нужно несколько значений нужно добавить for и все)

---

Понятно, спасибо за разъяснение!