- •21. Числа Фибоначи
- •22. Отриц. Элем. Массива и их индексы.
- •23.Число соседств в массиве.
- •24. Путь робота.
- •25. График астроиды.
- •26. Мухоморчики до края картинки.
- •27. Усеч. Четырехугольная пирамида.
- •40. 6 Призеров и победитель.
- •38. Разложение экспоненты.
- •37. Мин и Мах элем. Массива.
- •36. Разложение синуса.
- •34. Площадь и объем пирамиды/призмы.
- •33. Полиндромы.
- •32. Значение функции (системы).
- •21. Числа Фибоначи
- •22. Отриц. Элем. Массива и их индексы.
- •23.Число соседств в массиве.
- •25. График астроиды.
- •26. Мухоморчики до края картинки.
- •27. Усеч. Четырехугольная пирамида.
- •40. 6 Призеров и победитель.
- •38. Разложение экспоненты.
- •37. Мин и Мах элем. Массива.
- •36. Разложение синуса.
- •34. Площадь и объем пирамиды/призмы.
- •33. Полиндромы.
- •32. Значение функции (системы).
21. Числа Фибоначи
Function Fk(ByVal n As Integer) As Integer
If (n = 1) Or (n = 2) Then
Fk = 1
Else : Fk = Fk(n - 1) + Fk(n - 2)
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, r As Integer
n = Val(TextBox1.Text)
If n < 100 Then
r = Fk(n)
TextBox2.Text = Str(r)
Else : MessageBox.Show("Введите меньшее n")
End If
End Sub
22. Отриц. Элем. Массива и их индексы.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n, i As Integer
n = Val(TextBox1.Text)
Dim A(n) As Integer
Dim Rnd = New Random()
ListBox1.Items.Clear()
For i = 0 To n - 1
A(i) = Rnd.Next(31) - 15
ListBox1.Items.Add(Convert.ToString(A(i)))
Next i
Dim count As Integer = 0
For i = 0 To n - 1
If A(i) < 0 Then
count = count + 1
ListBox2.Items.Add(Convert.ToString(i))
End If
Next i
ListBox2.Items.Add("Всего отрицатиельных элем. =" & Convert.ToString(count))
End Sub
23.Число соседств в массиве.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim M() As Integer = {-5, 12, 44, -6, -8, -9, 56, 32, 12, 65, -45, 98, -2}
Dim count As Integer = 0
Dim i As Int16
For i = 0 To 11
If M(i) * M(i + 1) < 0 Then
count = count + 1
End If
Next i
ListBox2.Items.Add(Convert.ToString(count))
End Sub
24. Путь робота.
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim pB1 As Graphics
Dim X(), Y() As Integer
Dim N As Integer = 1
Dim path As String = "input.txt" ' имя файла
Dim fileinfo = New FileInfo(path) ' объявляем новый экземпляр файла
Dim InProbel As Integer = 0
ListBox2.Items.Clear() ' очистка ListBox
Dim streamreader As StreamReader = fileinfo.OpenText() ' Открываем файл для чтения
Dim sText As String = "" ' Строка текста в файле
Dim p As String = " " ' Разделитель чисел (пробел)
sText = streamreader.ReadLine() ' Читаем строку из файла
Do
ReDim Preserve X(N), Y(N) ' Увеличиваем размер массива
InProbel = sText.IndexOf(p) 'Определяем место расположения символа p (пробела)
X(N) = Convert.ToUInt16(sText.Substring(0, InProbel)) 'Координата X от начала строки до пробела
Y(N) = Convert.ToUInt16(sText.Substring(InProbel + 1, sText.Length - InProbel - 1)) 'Координата Y после пробела до конца строки
ListBox2.Items.Add(Convert.ToString(X(N)) + " " + Convert.ToString(Y(N))) 'Запись в ListBox для контроля
N = N + 1 'Увеличение счетчика на 1
sText = streamreader.ReadLine()
Loop Until sText = ""
pB1 = PictureBox1.CreateGraphics()
Dim greenPen = New Pen(Color.Green)
Dim i As Integer
Dim X1 As Integer = X(1)
Dim Y1 As Integer = Y(1)
For i = 2 To N - 1
pB1.DrawLine(greenPen, X1, Y1, X(i), Y(i))
X1 = X(i)
Y1 = Y(i)
Next
End Sub