Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.07.2018 01:07
- Информатика
- remove_red_eye 2405
- thumb_up 14
Ответы и объяснения 1
Function F(ByVal x)
If Not IsNumeric(x) Then
F = "Not a valid number"
Exit Function
End If
d = 2.5
If x <= 2 Then
F = 1 - x * x
Else
F = d - x
End If
End Function
Function Y(ByVal x)
If Not IsNumeric(x) Then
Y = "Not a valid number"
Exit Function
End If
If x <= 0 Then
Y = Sin(2 * x)
Else
If x <= 10 Then
Y = Tan(x)
Else
Y = 0.33 * x
End If
End If
End Function
Sub Zadanie16067304()
step = 5
x = -10
s = ""
Do While x < 100
s = s & "x = " & x & " y = " & Y(x) & vbNewLine
x = x + step
Loop
MsgBox (s)
End Sub
Zadanie16067304()
в выделеном месте меняем Y на F, когда нужна другая функция
- 23.07.2018 15:41
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.