Задание на разработку проекта

• Название: Задание на разработку проекта
• Дата: 01.04.2022
• Размер: 254.98 Kb.
• Имя файла: primer-vypolneniya-laboratornoy-po-informatike-c96d2ef7006aa4c8f.docx
• Тип: Документы; #433095

1. Задание на разработку проекта

Ввести одномерный массив k = {1, 2, 3, 4, 6, 5, 8, 9, 10}. Если элементы массива образуют возрастающую последовательность, вывести сообщение "ДА"; в противном случае - сообщение "НЕТ". Сжать массив, удалив из него все элементы, принадлежащие отрезку [a, b].

2. Разработка проекта

2.1. Разработка графического интерфейса пользователя



2.2. Написание программного кода с использованием процедур:

Option Strict On

Option Explicit On

Public Class Form1

Sub vvodmas(ByRef a() As Integer) ' Процедура ввода целочисленного одномерного массива с клавиатуры при помощи InputBox

For i = 0 To UBound(a)

a(i) = CInt(InputBox("Введите " & i + 1 & "-й элемент", "Ввод значений элементов массива"))

Next

End Sub

Sub vivodmas(ByVal a() As Integer, ByRef T As TextBox) ' Процедура вывода одномерного массива в ТекстБокс

T.Text = CStr(a(0)) + Space(3)

For i = 1 To UBound(a)

T.Text = T.Text + CStr(a(i)) + Space(3)

Next

End Sub

Function vvod(ByVal T As TextBox) As Integer ' Функция ввода целочисленного значения из TextBox

Return CInt(T.Text)

End Function

Sub szhatie(ByRef k() As Integer, ByVal a As Integer, ByVal b As Integer)

Dim m As Boolean = True 'Переменная для проверки на возрастание массива

Dim n As Integer = b - a + 1 'Переменная, обозначающая длину нового массива

For i = 0 To UBound(k) - 1 'Запускаем цикл для проверки каждого последующего элемента на возрастание

If k(i + 1) <= k(i) Then

m = False

Exit For

End If

Next

If m = True Then MsgBox("ДА") Else MsgBox("НЕТ") 'Выводим сообщение ДА или НЕТ в случае, если элементы в массиве расположены не по возрастанию

For i = b + 1 To UBound(k)

k(i - n) = k(i)

Next

ReDim Preserve k(UBound(k) - n)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n As Integer = vvod(TextBox5)

Dim k(n), a, b As Integer

a = vvod(TextBox3) : b = vvod(TextBox4)

vvodmas(k)

vivodmas(k, TextBox1)

szhatie(k, a, b)

vivodmas(k, TextBox2)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = "" : TextBox2.Text = ""

TextBox3.Text = "" : TextBox4.Text = ""

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

End Class

2.3. Блок-схемы:









2.4. Скриншот программы: