Билет № 6
Составить программу
вычисления выражения 
если x=
{-32.6, 63.1}
Module Module1
Sub Main()
Dim X, Y As Single
Console.WriteLine("введите x от -32.6 до 63.1")
X = Val(Console.ReadLine())
If X < -32.6 Or X > 63.1 Then
Console.WriteLine("значение X находится за пределами выбранного промежутка")
Else
If X < 5 Then
Y = 1 / (5 - X) ^ (1 / 3)
Else
Y = -1 / (X - 5) ^ (1 / 3)
End If
Console.WriteLine("Y={0}", Y)
End If
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 8
Составить программу
вычисления функции 
Module Module1
Sub Main()
Dim y, x As Double
Console.WriteLine("Введите x")
x = Val(Console.ReadLine())
If x < 0 Then
y = -x / (1 + x ^ 2)
Else
y = x / (1 + x ^ 2)
End If
Console.WriteLine("y = {0}", y)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 9
Составить
программу вычисления суммы 
k=10;15
Module Module1
Sub Main()
Dim i, k As Integer
Dim S1, S2 As Double
k = 10
S1 = 0
S2 = 0
For i = 1 To k
S1 = S1 + (3 * i - 1) / (5 * i ^ 2 + 1)
Next
k = 15
For i = 1 To k
S2 = S2 + (3 * i - 1) / (5 * i ^ 2 + 1)
Next
Console.WriteLine("s1 = {0}, s2 = {1}", S1, S2)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 10
Составить программу
вычисления произведения 
x |
X1 |
X2 |
X3 |
1.5 |
1 |
2 |
3 |
Module Module1
Sub Main()
Dim i, k As Integer
k = 3
Dim A() As Single = {1.5, 1, 2, 3}
Dim n As Integer
n = A.GetUpperBound(0)
Dim p As Single
p = 1
For i = 1 To n
p = p * (A(0) - A(i))
Next i
Console.Write("p={0}", p)
Console.Read()
End Sub
End Module
БИЛЕТ № 11
Составить программу поиска наименьшего элемента в одномерном массиве {ai}, i=1,2…n.
Module Module1
Sub Main()
Dim i, N As Integer
Dim Amin As Single
Console.WriteLine("Введите число элементов массива")
N = Val(Console.ReadLine())
Dim A(N) As Single
For i = 1 To N
Console.WriteLine("A({0})= ", i)
A(i) = Val(Console.ReadLine())
Next i
Amin = A(1)
For i = 2 To N
If A(i) < Amin Then
Amin = A(i)
End If
Next i
Console.WriteLine("Amin = {0}", Amin)
Console.ReadLine()
End Sub
End Module
Билет № 12
Составить программу поиска наибольшего элемента в матрице {ai,j} i,j=1,3
Module Module1
Sub Main()
Dim i, j, N, M As Integer
N = 3
M = 3
Dim C(N, M), Cmax As Single
For i = 1 To N
For j = 1 To M
Console.WriteLine("C({0},{1})= ", i, j)
C(i, j) = Val(Console.ReadLine())
Next j
Next i
Cmax = C(1, 1)
For i = 1 To N
For j = 1 To M
If C(i, j) > Cmax Then
Cmax = C(i, j)
End If
Next j
Next i
Console.WriteLine("Cmax = {0}", Cmax)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 15
Составить программу
вычисления 
Module Module1
Sub Main()
Dim a, y As Double
a = 4.115
y = Math.Tan(44 * Math.PI / 180) * a ^ (3 / 5)
Console.WriteLine("y = {0}", y)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 16
Составить программу вычисления значения многочлена P3(x)=5+51*x+7*x2-x3 при x=2
Module Module1
Sub Main()
Dim y, x As Double
x = 2
y = 5 + 51 * x + 7 * x ^ 2 - x ^ 3
Console.WriteLine("y = {0}", y)
Console.ReadLine()
End Sub
End Module
Билет 18.
Составить программу ввода-вывода двумерного массива а, I,j=1..n
Sub Main()
Dim j, i, n, m As Integer
Console.WriteLine(“Введите n”)
n = Val(Console.ReadLine())
Console.WriteLine(“Введите m”)
m = Val(Console.ReadLine())
Dim a(n, m) As Double
For i = 1 To n
For j = 1 To m
Console.WriteLine(“Введите элемент {0} строки {1} столбца”, i, j)
a(i, j) = Val(Console.ReadLine())
Next j
Next i
For i = 1 To n
For j = 1 To m
Console.WriteLine(“a({0},{1})={2}”, i, j, a(i, j))
Next j
Next i
Console.ReadLine()
End Sub