8 лаба
.docxФедеральное агентство связи Ордена
Трудового Красного Знамени
федеральное бюджетное образовательное учреждение высшего образования
«Московский Технический Университет Связи и Информатики»
(МТУСИ)
Кафедра Информатики
Лабораторная работа № 8
Тема:
«Программирование алгоритмов формирования и обработки двумерных массивов»
Вариант 00
Выполнил:
Москва 0000
3) Задание
4) формализация и уточнения не требуются
5.1) форма
5.2)схема алгоритма
5.3) код проекта
Option Strict On
Option Explicit On
Public Class Form1
Sub RndRAM(ByRef ZZ(,) As Integer)
Const a As Integer = 10
Const b As Integer = 3
Dim i, j As Integer
Randomize()
For i = 0 To a - 1
For j = 0 To b - 1
ZZ(i, j) = CInt((15 + 2) * Rnd() - 2)
Next j
Next i
End Sub
Sub vivodmassiv2(ByRef zz(,) As Integer, ByRef lb As ListBox)
Dim i, j, a, b As Integer
Dim z, z1 As String
lb.Items.Clear()
a = zz.GetUpperBound(0) - 1
b = zz.GetUpperBound(1) - 1
For i = 0 To a
z = ""
For j = 0 To b
z1 = Format(zz(i, j), "00")
If zz(i, j) < 0 Then
z1 = Space(2) + z1 + Space(4)
Else
z1 = Space(3) + z1 + Space(4)
End If
z = z + z1
Next j
lb.Items.Add(z)
Next i
End Sub
Sub printmassiv1(ByRef p() As Integer, ByRef lb As ListBox)
lb.Items.Clear()
Dim i As Integer
Dim z As String
For i = 0 To UBound(p)
z = CStr(p(i)) + vbNewLine
lb.Items.Add(z)
Next
End Sub
Sub massiv100(ByRef zz(,) As Integer, ByRef p() As Integer)
Dim i, j, k, firstotric, kpol As Integer
For i = 0 To zz.GetUpperBound(0) - 1
kpol = 0
firstotric = 1
For k = 3 To 1 Step -1
If zz(i, k) < 0 Then
firstotric = k
ElseIf zz(i, k) >= 0 Then
kpol = kpol + 1
End If
Next k
For j = firstotric + 1 To zz.GetUpperBound(1)
p(i) = p(i) + zz(i, j)
If kpol = 3 Then
p(i) = 100
End If
Next j
Next i
ReDim Preserve p(i - 1)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim zz(10, 3) As Integer
Dim p(10) As Integer
RndRAM(zz)
vivodmassiv2(zz, listbox1)
massiv100(zz, p)
printmassiv1(p, listbox2)
End Sub
End Class
6) результат
7) проверка результата
Проверил вся программа работает правильно и не выдаёт ошибки