Напишите программу на языке бейсик для следующего неравества

darinakor140197nooii darinakor140197nooii    2   20.03.2019 22:06    1

Ответы
КУМИР566 КУМИР566  26.05.2020 10:50

VBA:

Sub P()

Dim x As Double, y As Double

x = Val(InputBox("x = "))

If x <= 0 Then

   y = Sin(2 * x)

ElseIf x <= 10 Then

   y = Tan(x)

   Else: y = 0.33 * x

End If

MsgBox (" Y = " & y)

End Sub

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика