Заказ работы

Заказать
Каталог тем

Самые новые

Значок файла Галевский Г.В., Калиногорский Н.А., Гусельникова О.В. Учебно-методические основы получения дополнительной квалификации «Разработчик профессионально ориентированных компьютерных технологий»: Учеб.-метод. пособие/СибГИУ. -Новокузнецк, 2003.- 38 с. (29)
(Методические материалы)

Значок файла Банковское дело: Программа, вопросы для самопроверки, экзаменационные вопросы по дисциплине «Банковское дело»: Метод. указ./ Сост.: Е.В. Иванова: СибГИУ. – Новокузнецк, 2001. – 49 с. (28)
(Методические материалы)

Значок файла Федотов В.М., Пушница Н.В., Сверяева Е.В. Аккредитация испытательных лабораторий и центров: Учеб. пособие /ГОУ ВПО «СибГИУ». – Новокузнецк, 2004. - с. (21)
(Методические материалы)

Значок файла Усилители электрических сигналов: Метод. указ./ Сост.: Ю.А.Жаров: СибГИУ. – Новокузнецк, 2002. – 21с (26)
(Методические материалы)

Значок файла Управление качеством: Методические указания к выполнению раздела «Управление качеством» дипломного проекта для студентов специальностей 180400 «Электропривод и автоматика промышленных установок и технологических комплексов» и 200400 «Промышленная электроника» (29)
(Методические материалы)

Значок файла Методические указания и задания к контрольной работе по дисци-плине «Теория бухгалтерского учета». / Сост. Т.А Залышкина, О.А. Надеева.- Новокузнецк. - СибГИУ, 2003. – 31с (33)
(Методические материалы)

Значок файла Программа дисциплины Статистика и контрольные задания / Сост.: Стрекалова С.А.: СибГИУ. – Новокузнецк, 2004. – 27с (17)
(Методические материалы)

Каталог бесплатных ресурсов

ОТЧЕТ по лабораторной работе №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)
Заказ курсовой диплома или диссертации.

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


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