Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



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

Знайти суму елементів одномірного масиву, уведених з робочого листа 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 та розділити цю суму на обчислене значення мінімального елементу масиву.

Контрольний приклад: Задамо 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




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

<== попередня сторінка | наступна сторінка ==>
Dim A(1 to 12) As Integer | Тема: Програмування на мові VBA. Двовимірні масиви. Статичні і динамічні масиви. Об’явлення масивів. Використання масивів. Використання ReDim для динамічних масивів.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

  

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.004 сек.