SHARE
TWEET

Untitled

a guest Apr 17th, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Rextester.Program.Main is the entry point for your code. Don't change it.
  2. 'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5
  3.  
  4. Imports System
  5. Imports System.Collections.Generic
  6. Imports System.Linq
  7. Imports System.Text.RegularExpressions
  8.  
  9. Namespace Rextester
  10.     Public Module Program
  11.         Public Sub Main(args() As string)
  12.            
  13.             Console.WriteLine("Hello, world!")
  14.            
  15.             Dim x As Double
  16.             x = 0.15
  17.            
  18.            
  19.         End Sub
  20.        
  21.        
  22.         '''''' Функция ''''''
  23.        Function f(a, x, y As Double) as Double
  24.             Dim result, min as Double
  25.            
  26.             If (x<0) Then
  27.                 result = Max(Min(a, x^a, 2.71^(x*a)), a*x+1)
  28.             ElseIf (x>=0) and (x<=7) Then
  29.                 result = cos(x)^2+(sin(x)^2*Max(x,y))
  30.             Else
  31.                 result = 1 + 3 * cos(abs(x+y))
  32.             End If
  33.            
  34.         End Function
  35.         '''''''''''''''''''''
  36.        
  37.     End Module
  38. End Namespace
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top