Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

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.   

ЕЛЕМЕНТ      КЕРУВАННЯ НАЗВА ВЛАСТИВОСТІ ЗНАЧЕННЯ          ВЛАСТИВОСТІ
Form1 Caption Задача 1
Text1 Text Порожньо
Label1, Label2 Caption Порожньо
Picture1 - (Всі властивості стандартні)
Command1 Caption Обчислення
Command2 Caption Вихід

 

Рис. 1. 1. Приклад початкового розміщення об'єктів на формі

 

2. Ввести програмний код:

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...