Sub Pr(). Dim N As Byte. Dim X(1 To 25) As Integer. N=InputBox(“Скільки чисел у масиві?”,"Введення розмірності")
Sub Pr() Dim N As Byte Dim X(1 To 25) As Integer N=InputBox(“Скільки чисел у масиві? ”, " Введення розмірності" ) For i=1 To N X(i)=InputBox(“Введи X(“& i & ”) - ий елемент масиву”) Next i End Sub При виконанні цього фрагмента програми, відбувається наступне: 1. У пам'яті комп'ютера відповідно до оголошення Dim X(1 To 25) As Integer виділяється вільна область обсягом 50 байт, тому що кожне ціле число займає 2 байти, а максимальна кількість елементів у масиві X = 25. Даній області пам'яті дається ім'я X , а вся область розділяється на 25 компонентів по 2 байти кожний. Всім елементам масиву присвоюється нульове значення. 2. Оператором N=InputBox(“Скільки чисел у масиві? ”, " Введення розмірності" ) визначається конкретна кількість компонентів з області пам'яті X, з яким хоче працювати користувач програми. 3. За допомогою циклу For i=1 To N X(i)=InputBox (“Введи x(“& i & ”) - ий елемент масиву”) Next i Здійснюється почергове наповнення N компонент області пам'яті X конкретними значеннями. Спосіб ІІ Значення елементів масиву безпосередньо вводяться на початку роботи програми. Масив при цьому оголошується як Variant
Option Base 1 ‘ Цей оператор має вводитись в секції ‘ ( General ) ( Declarations ) Private Sub Command1_Click() Dim a As Variant a = Array(2, -3, 6, -8, 0, 4, -1, 5, 9, 7, -2, 8) Наприклад, для масиву а, оголошеного як Dim a As Variant вводиться 12 значень. Тобто для другого елементу масиву а введене значення -3 (а(2)=-3). При цьому розмірність масиву буде відповідати кількості введених значень.
Спосіб ІІІ
Option Base 1 ‘ Цей оператор має вводитись в секції ‘ ( General ) ( Declarations ) Private Sub Command1_Click() Dim a(15) n = 0 For i = 1 To 15 a(i) = Val(Text1(n)) n = n + 1 Next
Примітка: на формі створюється масив з п’ятнадцяти елементів керування Text1, які мають індекси Text1(0), Text1(1),... Text1(14), кожному з яких (через властивість Text ) присвоюється значення одного з елементів заданого масиву А(15).
1. 3. Виведення елементів масиву Графічно виведення значень елементів масиву може бути представлений у вигляді наступного фрагмента схеми: Програмна реалізація виводу елементів масиву залежить від методу організації виводу. Приклад 1: . . . For i = 1 To N Picture1. Print Х(i); " "; Next i . . . Примітка: на формі створюється елемент керування Picture1 , в який безпосередньо виводяться значення елементів заданого масиву Х(і). Всі дані виводяться в один рядок. Якщо необхідно результат вивести в стовпчик, то з команди оператора вилучається символ “ ; ” 1. 4. Типові алгоритми обробки одновимірних масивів
Типовими алгоритмами обробки одновимірних масивів є: визначення суми, добутку, кількості, середнього арифметичного елементів масивів; пошук максимальних і мінімальних елементів і іншої інформації в масиві; формування нового масиву, впорядкування даних в масиві.
1. 4. 1. Визначення кількості, суми, середнього арифметичного елементів масиву
Визначення кількості k і суми значень Sum елементів масиву, що задовольняють деякій умові, – це процес нагромадження в змінній k одиниць, а в змінній S значень шуканих елементів масиву по формулах k=k+1 і Sum=Sum+A(i) відповідно. Очевидно, що початкові значення змінних k і Sum повинні дорівнювати нулю, інакше буде отриманий невірний результат.
Для обчислення середнього значення елементів масиву необхідні дві величини: суми ( Sum ) і кількості елементів ( k ). Середнє обчислюється по формулі S r= Оскільки ділення на нуль викликає аварійне завершення роботи програми, то перед обчисленням середнього значення перевірка значення k на нуль повинна бути виконана обов'язково. Приклад 1. 1. Знайти середнє значення чисел одновимірного масиву, що знаходяться на парних місцях і належать проміжку [x; y]. Графічна схема алгоритму рішення задачі представлена на рис. 1. 2, результати тестування програми - на рис. 1. 3. 1. Створити форму за зразком рис. 1. 1, надати всім об’єктам значення властивостей відповідно таблиці 1.
Таблиця 1. Значення властивостей об’єктів до форми рисунку 1. 1.
Рис. 1. 1. Приклад початкового розміщення об'єктів на формі
2. Ввести програмний код:
Воспользуйтесь поиском по сайту: ©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|