Question

Программу составить в Visual basic. + нужны блок схемы.

Answer 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, когда нужна другая функция