Заказ работы

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

Самые новые

Значок файла Методические указания к научно-исследовательской работе студентов по курсу “Социология”. Ч. 1/ Сост.: Е. А. Сафонова: СибГИУ. - Новокузнецк, 2003. – 45 (3)
(Методические материалы)

Значок файла Методические рекомендации для практических занятий по психологии: Метод. указ./ Сост.: С. Г. Колесов: СибГИУ. – Новокузнецк, 2002. – 29 (9)
(Методические материалы)

Значок файла Методические указания по проведению производственной практики (первой). Специальность «Промышленное и гражданское строительство» (290300) (4)
(Методические материалы)

Значок файла Контроль качества бетона. Определение прочности бетона неразру-шающими методами. Методические указания к выполнению лабора-торных работ по курсу «Технология строительных процессов». Специ-альность «Промышленное и гражданское строительство» (290300) (7)
(Методические материалы)

Значок файла Динамика. Тема 6. ПРИНЦИП ВОЗМОЖНЫХ ПЕРЕМЕЩЕНИЙ: Расч. прак./ Сост.: Г.Т. Баранова, Н.И. Михайленко: СибГИУ.-Новокузнецк, 2003.- с (3)
(Методические материалы)

Значок файла Семенихин А.Я. С 30 Технология подземных горных работ: Учебное пособие / А.Я. Семенихин, В.И. Любогощев, Ю.А. Златицкая. – Новокузнецк: СибГИУ, 2003. - 91 с (23)
(Методические материалы)

Значок файла Огнев С.П., Ляховец М.В. Основы теории управления: методические указания. – Новокузнецк: ГОУ ВПО «СибГИУ», 2004. – 45 с (20)
(Методические материалы)

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

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

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


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