Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Шпоры по задачам.docx
Скачиваний:
2
Добавлен:
27.10.2018
Размер:
37.36 Кб
Скачать

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

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]