Заказ работы

Заказать
Каталог тем
Каталог бесплатных ресурсов

ОТЧЕТ по лабораторной работе №1 " Обработка одномерных массивов ”

1 Цель работы: изучение оператора описания размерности массива, способа обращения к элементу массива, ввода – вывода массива.

 

2 Теоретические сведения.

 

Массивы

Массив (array)- это группа однотипных переменных, которые объединены одним общим именем. Их можно считать одной из разновидностей переменных. Отличие состоит в том, что в массивах можно хранить не одно, а несколько значений. Доступ к заданному элементу массива осуществляется с помощью индекса. Синтаксис объявления массива отличается от синтаксиса объявления переменной тем, что здесь требуется указать также размерность массива и границы изменения индексов. Ниже представлен пример объявления массива:

 

Sub TestSub()

         Dim intTestArray(0 To 10) As Integer

        

End Sub

 

В данном примере объявляется одномерный массив целых чисел с именем intTestArray. Граница изменения индексов массива задается в диапазоне от 0 до 10. для установки элементам данного массива конкретных значений можно использовать цикл ForNext:

 

For inti = 0 to 10

         intTestArray(i) = inti + 1

Next inti

 

Здесь элементами массива intTestArray присваиваются значения одиннадцати целых чисел: 1, 2, …, 11.

 

Динамические массивы

Динамические массивы

 Используются в том случае, когда размерность массива невозможно определить заранее. В момент своего объявления такой массив не с одержит ни одного элемента:

Dim intTestArray() As Integer

Чтобы использовать массив и добавить в него элементы, необходимо использовать инструкцию ReDim:

ReDim intTestArray(100)

Теперь к элементам данного массива можно обращаться точно так же, как и в случае массива с заранее определенным числом элементов. При необходимости количество элементов массива можно снова изменить путем повторного использования инструкции ReDim:

ReDim intTestArray(1000)

 

Замечания: 1. При изменении размерности массива все значения, хранящиеся в массиве, теряются. Чтобы сохранить значения при изменении размерности массива, следует использовать ключевое слово Preserve, например:

ReDim Preserve intTestArray(1000)

2. Если необходимо выполнить нумерацию элементов массива с единицы, то следует вначале программного модуля использовать директиву Obsion Base 1

 

Постановка задачи

Дан массив Х(N), выполнить задания, указанные в таблице 7.1. Вывести на печать исходный массив и полученные результаты.

 

Таблица 7.1 Варианты задания

Варианты задания

Содержание задания

19.

Подсчитать количество элементов массива, равных нулю

 

 

3 Ход работы

 

    

Public Sub OdnomMassN01()

Dim Txt As String, x() As Integer

Txt = "Исходные данные:" & Chr(13)

N = Val(InputBox("Ввод N"))

Txt = Txt & "N=" & Str(N)

ReDim x(N): Txt = Txt & Chr(13) & "x=["

For I = 1 To N

x(I) = Val(InputBox("Ввод x( & Str(I) & )"))

Txt = Txt & Str(x(I)) & ","

Next I: Txt = Txt & "I" & Chr(13): MsgBox Txt

M = 0

For I = 1 To N

If x(I) = 0 Then N = N + 1

Next I

MsgBox "N=" & Str(N)

End Sub



Размер файла: 62 Кбайт
Тип файла: doc (Mime Type: application/msword)
Заказ курсовой диплома или диссертации.

Горячая Линия


Вход для партнеров