• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Приклад розв’язання задачі на одновимірні масиви

Знайти суму елементів одномірного масиву, уведених з робочого листа Excel.

Приклад.

Динамічні масиви

Іноді в процесі виконання програми необхідно змінити розмір масиву. В цьому випадку масив оголошують як динамічний. При цьому не треба вказувати розмір.

Наприклад

Dim R() As Single

Потім в програмі необхідно обчислити необхідний розмір масиву в деякій змінній, наприклад, n і змінити розмір динамічного масиву за допомогою інструкції ReDim.

Синтаксис:

ReDim<Ім’яЗмінної>(<індекси>)[As <Тип>][,<Ім’яЗмінної>(<індекси>)[As Тип>]] …

Нариклад,

ReDim R(1 to n) встановлюються межі динамічного масиву від 1 до n. Якщо, наприклад, n=10, то встановлюються межі динамічного масиву від 1 до 10.

Для вирішення задачі по роботі з масивом потрібно виконати наступне:

1. масив треба оголосити, як динамічний, тобто описати масив з завданням типу елементів динамічного масиву оператором Dimбез вказання розміру

2. обчислити (увести )необхідний розмір масиву в деякій змінній, наприклад, n

3. змінити розмір динамічного масиву за допомогою оператора ReDim

4. здійснити введення \ виведення елементів масиву

5. обчислити масив

6. вивести результати обчислень.

Уведення елементів одновимірного масиву у програму можна здійснити за допомогою одного з наведених способів:

1. Уведення елементів одновимірного масиву за допомогою функції InputBox:

For i = 1 To n

a(i) = Val(InputBox(“Уведіть елемент масиву А”)

Cells(2, i) = a(i) ‘Виведення елементів масиву на робочий лист

Next i

2. Уведення елементів одновимірного масиву за допомогою генератора випадкових чисел Randomize та функції Rnd() :

Randomize

For i = 1 To n

b(i) = Rnd() * 10 ‘ Уведення додатних елементів масиву

b(i) = (-1) ^ Int(Rnd() * 10) * (Rnd() * 10) ‘Уведення від’ємних елементів масиву

Cells(5, i) = b(i) ‘ Виведення елементів масиву на робочий лист

Next i

‘Range(Cells(5, 1), Cells(5, n)) = b ‘Виведення елементів масиву на робочий лист у діапазон (другий спосіб)

3. Уведення елементів одновимірного масиву за допомогою зчитування елементів з комірок робочого листа.

Для цього потрібно попередньо записати елементи у комірки на робочому листі.

For i = 1 To n

a(i)= Worksheets(“Лист1”).Cells(3, i) ‘Зчитування елементів з Лист1, записаних у 3-му рядку, починаючи з стовпця А

Next i

Private Sub sum_mas()

Dim a(), n as Integer

n = InputBox(“Введіть кількість елементів масиву”)

ReDim a(n)

For i = 1 To n

a(i) = Worksheets(“Лист1”).Cells(2, i)

Next i

s = 0

For i = 1 To n

s = s + a(i)

Next i

MsgBox Str(s)

End Sub

Умова задачі: Заданий масив А(n). Обчислити значення змінної D за формулою:

Контрольний приклад: Задамо n =5 і масив А=( 4; -6; 1,3; 2,5; -1). Тоді:

D= (4+(-6)+1,3+2,5+(-1)) / (-6)= 0,8

Блок-схема алгоритму:

Лекція №9.

Читайте також:

1. IV. Перевірка розв’язання і відповідь
2. Абсолютні синоніми (наприклад, власне мовні й запозичені) в одному тексті ділового стилю вживати не рекомендується.
3. Алгоритм однофакторного дисперсійного аналізу за Фішером. Приклад
4. Алгоритм розв’язання задачі
5. Алгоритм розв’язання розподільної задачі
6. Алгоритм розв’язування задачі
7. Алгоритм розв’язування задачі
8. Алгоритм розв’язування задачі
9. Алгоритм розв’язування задачі
10. Алгоритм розв’язування задачі
11. Алгоритм розв’язування задачі
12. Алгоритм розв’язування задачі оптимізації в Excel

Переглядів: 2389