Связи и Информатики

Московский Технический Университет

 

 

«Тема 4.7. Программирование алгоритмов формирования и обработки одномерных массивов»

 

 

Морозов Даниил

17 вариант

 

Лабораторная 4-0-7

1. Задание:

Разработать проект приложения, решающий поставленную задачу, который состоит из интерфейса пользователя и соответствующего программного кода, а также написанных ранее процедур обработки и процедур ввода и вывода элементов массива. Все пользовательские процедуры должны находиться в модуле формы. Обмен данными между пользовательскими процедурами должен осуществляться через параметры, без использования глобальных переменных.

17)

Из одномерного массива, содержащего 20 целых элементов (значения элементов массива задать случайными числами из интервала [-4, 7]), получить новый массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях исходного массива, а во второй половине — элементы, стоящие в четных позициях. В полученном массиве найти минимальный элемент и его номер.

2. Блок схемы:

		min=7
		min=y(i)

3. Скриншот

 

4. Листинг программы:

Option Explicit On

Imports System.Math

Public Class Form1

Dim x() As Single

 

Public Sub vivod(ByVal Z As Double, ByVal T As TextBox)

T.Text = CStr(Z)

End Sub

 

Public Sub mas(ByVal x() As Integer, ByRef y() As Integer)

Dim i As Integer

For i = 0 To 9

y(i) = x(2 * i)

Next i

For i = 10 To 19

y(i) = x((i - 10) * 2 + 1)

Next i

End Sub

Public Sub printl(ByRef x() As Integer, ByRef LB As ListBox)

Dim i As Integer

Dim z As String = " "

For i = 0 To UBound(x)

z = z + Format(x(i), "0") + Space(4)

Next i

LB.Items.Add(z)

End Sub

 

Public Sub vvod(ByVal y() As Integer, ByRef min As Integer, ByRef n As Integer)

Dim i As Integer

min = 7

For i = 0 To 19

If y(i) < min Then

min = y(i)

n = i

End If

Next i

End Sub

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

Dim x(19) As Integer

Dim y(19) As Integer

Dim min, n As Integer

For i = 0 To 19

x(i) = Rnd(1) * 11 - 4

Next i

printl(x, ListBox1)

mas(x, y)

printl(y, ListBox2)

vvod(x, min, n)

TextBox1.Text = CStr(min)

TextBox2.Text = CStr(n)

End Sub

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

End

End Sub

End Class