a guest Apr 17th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Imports System.Math
- '''''' Функция ''''''
- Function f(a, x, y As Double) as Double
- Dim result, min as Double
- If (x<0) Then
- result = Max(Min(a, x^a, 2.71^(x*a)), a*x+1)
- ElseIf (x>=0) and (x<=7) Then
- result = cos(x)^2+(sin(x)^2*Max(x,y))
- result = 1 + 3 * cos(abs(x+y))
- End If
- f = result
- End Function
RAW Paste Data