Заказ работы

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

Самые новые

Значок файла Пределы: Метод. указ./ Составители: С.Ф. Гаврикова, И.В. Касымова.–Новокузнецк: ГОУ ВПО «СибГИУ», 2003 (3)
(Методические материалы)

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

Значок файла Дмитрин В.П., Маринченко В.И. Механизированные комплексы для очистных работ. Учебное посо-бие/СибГИУ - Новокузнецк, 2003. – 112 с. (5)
(Методические материалы)

Значок файла Шпайхер Е. Д., Салихов В. А. Месторождения полезных ископаемых и их разведка: Учебное пособие. –2-е изд., перераб. и доп. / СибГИУ. - Новокузнецк, 2003. - 239 с. (4)
(Методические материалы)

Значок файла МЕТОДИЧЕСКИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ ЭКОНОМИЧЕСКОЙ ЧАСТИ ДИПЛОМНЫХ ПРОЕКТОВ Для студентов специальности "Металлургия цветных металлов" (2)
(Методические материалы)

Значок файла Учебное пособие по выполнению курсовой работы по дисциплине «Управление производством» Специальность «Металлургия черных металлов» (110100), специализация «Электрометаллургия» (110103) (2)
(Методические материалы)

Значок файла Контрольные задания по математике для студентов заочного факультета. 1 семестр. Контрольные работы №1, №2, №3/Сост.: С.А.Лактионов, С.Ф.Гаврикова, М.С.Волошина, М.И.Журавлева, Н.Д.Калюкина : СибГИУ. –Новокузнецк, 2004.-31с. (6)
(Методические материалы)

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

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

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


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