Guest User

Untitled

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