Пример выполнения лабораторной работы по информатике
.docxМосковский технический институт связи и информатики
Кафедра информатики
«Программирование алгоритмов формирования и обработки одномерных массивов»
Москва, 2014
-
Задание на разработку проекта
Ввести одномерный массив k = {1, 2, 3, 4, 6, 5, 8, 9, 10}. Если элементы массива образуют возрастающую последовательность, вывести сообщение "ДА"; в противном случае - сообщение "НЕТ". Сжать массив, удалив из него все элементы, принадлежащие отрезку [a, b].
-
Разработка проекта
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. Скриншот программы: