Билет № 20
По данному массиву x={1, -2.5, 3, -75, 1.2, 5.8, -5.4, 0.4, 1.73} составить программу вычисления среднего арифметического положительных элементов массива
Module Module1
Sub Main()
Dim i, k, N As Integer
Dim x() As Double = {1, -2.5, 3, -75, 1.2, 5.8, -5.4, 0.4, 1.73}
N = x.GetUpperBound(0)
Dim S, SRZ As Double
S = 0
k = 0
For i = 0 To N
If x(i) > 0 Then
S = S + x(i)
k = k + 1
End If
Next
SRZ = S / k
Console.WriteLine("Среднее арифметическое = {0}", SRZ)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 21
Составить программу вычисления элементов массива {xi} где i=1,2…k если x(i+1) = xi2 где x1=2
Module Module1
Sub Main()
Dim i, k As Integer
Console.WriteLine("введите k")
k = Val(Console.ReadLine())
Dim x(k) As Long
x(1) = 2
Console.WriteLine("x(1)=2")
For i = 2 To k
x(i) = x(i - 1) ^ 2
Console.WriteLine("x({1})={0}", x(i), i)
Next i
Console.Read()
End Sub
End Module
БИЛЕТ № 23
Составить программу вычисления суммы
Module Module1
Sub Main()
Dim i, k As Integer
Dim x, a As Double
Console.WriteLine("Введите a")
a = Val(Console.ReadLine())
Console.WriteLine("Введите k")
k = Val(Console.ReadLine())
x = 0
For i = 0 To k
x = x + 1 / (a ^ (i * 2))
Next
Console.WriteLine("x = {0}", x)
Console.ReadLine()
End Sub
End Module
БИЛЕТ № 25
Составить
программу нахождения наименьшего
элемента массива: x={xi}
i=
:
x1=12,
x2=-18,
x3=0,
x4=29
Module Module1
Sub Main()
Dim i As Integer
Dim xmin As Double
Dim x() As Double = {12, -18, 0, 29}
xmin = x(0)
For i = 0 To 3
If x(i) < xmin Then
xmin = x(i)
End If
Next
Console.WriteLine("xmin = {0}", xmin)
Console.ReadLine()
End Sub
End Module
Последний билет(ввод –вывод массива)
Dim n, i, j As Integer
Console.WriteLine("Ввод массива")
Console.WriteLine("введите n")
n = Val(Console.ReadLine())
Dim a(n, n) As Integer
If n < 1 Then
Console.WriteLine("ошибка")
Else
For i = 1 To n
For j = 1 To n
Console.Write("a({0},{1})=", i, j)
a(i, j) = Val(Console.ReadLine())
Next j
Next i
End If
Console.WriteLine("Вывод массива a:")
For i = 1 To n
For j = 1 To n
Console.Write("{0} ", a(i, j))
Next j
Console.WriteLine()
Next i
Console.ReadLine()