Студопедия
Контакти
 


Тлумачний словник

Реклама: Настойка восковой моли




Авто | Автоматизація | Архітектура | Астрономія | Аудит | Біологія | Будівництво | Бухгалтерія | Винахідництво | Виробництво | Військова справа | Генетика | Географія | Геологія | Господарство | Держава | Дім | Екологія | Економетрика | Економіка | Електроніка | Журналістика та ЗМІ | Зв'язок | Іноземні мови | Інформатика | Історія | Комп'ютери | Креслення | Кулінарія | Культура | Лексикологія | Література | Логіка | Маркетинг | Математика | Машинобудування | Медицина | Менеджмент | Метали і Зварювання | Механіка | Мистецтво | Музика | Населення | Освіта | Охорона безпеки життя | Охорона Праці | Педагогіка | Політика | Право | Програмування | Промисловість | Психологія | Радіо | Регилия | Соціологія | Спорт | Стандартизація | Технології | Торгівля | Туризм | Фізика | Фізіологія | Філософія | Фінанси | Хімія | Юриспунденкция

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

Загрузка...

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

Загрузка...



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

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


 

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


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