
Вопрос задан 15.01.2019 в 23:55.
Предмет Информатика.
Спрашивает Погоня Милена.
Помогите!Нужно написать программу. Дана линейная функция 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


Топ вопросов за вчера в категории Информатика

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

Информатика 16
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili