Московский технический университет связи и информатики
Кафедра «Информатика»
Лабораторные работы по дисциплине «Информатика»
Выполнил
Студент группы БИН1206
Милитдинов Георгий
Вариант №16
Москва 2012 Лабораторная работа №4.7
Программирование алгоритмов формирования и обработки одномерных массивов
1. Тема и название работы
Программирование алгоритмов формирования и обработки одномерных массивов – Заполнение и преобразование одномерного массива различными способами.
2. Задание на разработку проекта и вариант задания
16)
|
В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [-10, 10]), вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами. Сформировать из этих элементов новый массив. |
3. Написание программного кода
Option Explicit On
Imports System.Math
Public Class Form1
Dim x() As Single
Sub vivodList(ByVal Z As Double, ByVal LB As ListBox)
LB.Items.Add(CStr(Z))
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
Sub vvodSngRnd16(ByRef y() As Integer)
Dim i As Integer
For i = 0 To UBound(y)
y(i) = Rnd(1) * 20 - 10
Next i
End Sub
Public Sub mas(ByRef y() As Integer)
Dim i As Integer
Dim min, max, pr As Integer
max = 1
min = 1
pr = 1
For i = 1 To 15
If y(i) > y(max) Then
max = i
End If
If y(i) < y(min) Then
min = i
End If
Next i
For i = min + 1 To max - 1
pr = pr * y(i)
vivodList(pr, ListBox2)
y(i) = pr
Next i
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x(14) As Integer
Dim y(15) As Integer
vvodSngRnd16(y)
printl(y, ListBox1)
mas(y)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Разработка графического интерфейса пользователя с :
