МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
||||||||||||||
Приклад розв’язання задачі на одновимірні масивиЗнайти суму елементів одномірного масиву, уведених з робочого листа 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.
Читайте також:
|
|||||||||||||||
|