1332231791

— Суму ми обчислимо в будь-якому випадку, — слушно заува­ жив Михась. — А як же інакше ти збираєшся знаходити середнє значення?

Середнє значення кількох чисел дорівнює їх сумі, поділеній на кількість цих чисел.

Вправа 13.2. Середнє значення

Згенеруйте масив із 20 випадкових чисел і обчисліть їх серед­ нє значення. Створіть форму, на якій буде 3 текстові поля — у два можна ввести найменше та найбільше випадкові значен­ ня, а у третьому полі програма виведе результат. Обчислення здійснюватимуться після натискання кнопки.

— Отже, сьогодні залишилося тільки виконати завдання, — завершував урок ВВ. — Уявіть, що ви з друзями домовилися піти серед ночі покататися на циклах. Знаєте, як це класно — навколо темно, немає нікого і тільки ви, цикли та вітер у ву­ хах свище! Так от, оскільки це страшенно небезпечно, мама заборонила вам таким чином розважатись. Але існує цікавий варіант вирішення цієї проблеми — можна тихенько вийти вночі з будинку, щоб вас ніхто не помітив. Інформацію про час та місце зустрічі друзі передадуть за допомогою шифру. А шифрувати й розшифровувати повідомлення буде програма, яку ми зараз напишемо.

Завдання 13. Таємний шифр

Зашифруйте рядок за таким принципом: кожній букві потрібно зіставити певне число (а = 1, б = 2, в = 3 тощо, символу пробілу зіставляється 0), потім це число множиться на 3 і до знайденого добутку додається 2. Отримана послідовність чи­ сел (для її зберігання слід використати масив) записується у зворотному порядку. Створіть форму з двома текстовими полями: у перше користувач вводитиме вихідний текст, а у другому відображатиметься зашифрований результат. Шифрування здійснюватиметься за натисканням кнопки, яку також слід додати до форми.

Додаткове завдання

Напишіть функцію, яка здійснюватиме зворотні обчислення: отримуючи закодований масив як параметр, повертатиме рядок вихідного тексту.

— Дуже добре, що ви виконали завдання. Тепер ми зможемо продовжити нашу прогулянку містом, адже в нас залишився тільки один день, — сказав ВВ.

—А ми ще стільки цікавих місць не побачили, — зауважила Даринка.

—Тоді не будемо гаяти часу, — вигукнув ВВ, і всі троє попря- ­мували до виходу, де на них чекав кодовий замок.

Кодовий замок

1.З чого складається масив?

а) з однакових за значенням елементів; б) з однакових за типом елементів;

в) з однакових за значенням і типом елементів.

2.Яку кількість елементів містить масив? а) фіксовану; б) змінну; в) невизначену.

3.Розмірність масиву дорівнює: а) кількості елементів у ньому;

б) кількості індексів, за допомогою яких нумеруються елементи;

в) завжди дорівнює одиниці.

4.Як називають функції, що повертають масив? а) масивними; б) складеними;

в) вони не мають спеціальної назви.

5.Який з операторів може бути викликом підпрограми f, аргументом якої є масив m із п’яти елементів?

а) f(m);

б) f(m());

в) f(m(5)).

6.Якщо в масиві x 5 елементів, то оператор a=x(6): а) надасть змінній а значення 0;

б) призведе до помилки під час виконання програми; в) спричинить помилку під час компіляції.

7.Від’ємне число:

а) у деяких випадках може бути індексом елемента масиву,

воголошенні якого вказано мінімальний та максималь­ ний індекси;

б) у деяких випадках може бути індексом елемента масиву, в оголошенні якого вказано лише максимальний індекс;

в) не може бути індексом елемента масиву.

8.Для присвоєння одного масиву іншому необхідно, щоб: а) масиви мали однакові довжини; б) типи елементів масивів були однаковими;

в) масиви мали однакові довжини й типи їх елементів були однаковими.

День 14

Обробка масивів

—Сьогодні останній день вашого перебування в майбутньому, — із сумом промовив ВВ, коли Михась і Даринка зайшли до нього в кімнату.

—Нічого, спробуємо провести його так, щоб він приніс нам не тільки користь, а й задоволення! — підбадьорив його Михась.

—Добре, давайте працювати, а потім розважимося, — погодився ВВ. — Тато казав, що ваше повернення призначене на завтрашній ранок.

—Отже, в нас не так багато часу! Ми зараз швиденько розглянемо останню тему, а тоді спробуємо відпочити так, щоб подорож у майбутнє запам’яталася нам назавжди, — сказала Даринка.

Пошук у масиві

— Я буду здивований, якщо ви мені­ скажете, що жодного разу нічого не шукали, — розпочав ВВ свій останній урок. — Пригадайте, як зранку, спросоння, запізнюючись до школи, ви не могли знайти зошит з математики, в якому вчора до но­ чі виконували домашнє завдання. Пригадали? Справді, неприємне відчуття, але мені й самому не раз доводилося його переживати.

Box1 не буде заповнено назвами предметів. Для цього надайте

атрибутам Visible елементів керування, що стосуються пошуку, значення False.

Які масиви нам будуть потрібні? Насамперед масив назв предметів. Ще потрібно позначити місця та спосіб розташування предметів по місцях — усього виходить три масиви:

'у масиві places зберігатимуться назви місць

Dim places() As String = {"стіл", "крісло", "шафа", "ліжко", "рюкзак", "акваріум"}

'у масиві units — назви зошитів, які ми шукатимемо

Dim units() As String = {"математика", "право", "історія"} 'масив placed_units відображатиме розміщення зошитів

Dim placed_units(UBound(places)) As String

Вміст масивів places і units буде задано під час оголошення, а заповнювати масив placed_units (розташовувати предмети по місцях) потрібно після натискання користувачем кнопки Заповнити. Отже, в обробнику події клацання кнопки Заповнити має виконуватися такий код:

'оголошуємо змінну-­лічильник

Dim counter As Integer

'створюємо генератор випадкових чисел і заповнюємо

'масив placed_units

Dim rnd As System.Random = New Random

For counter = 0 To UBound(placed_units)

'у випадковий спосіб визначаємо номер зошита і кладемо 'його на місце з номером counter

placed_units(counter) = units(rnd.Next(0, UBound(units)))

Next

'розміщення зошитів відображуємо в полі TextBox1 TextBox1.Text="Місце"+vbTab+vbTab+"Лежить"+vbNewLine+vbNewLine For counter = 0 To UBound(placed_units)

'місце

TextBox1.Text=TextBox1.Text+places(counter)+vbTab+vbTab+ 'зошит

placed_units(counter)+vbNewLine

Next

'відображуємо елементи керування пошуком

Label1.Visible = True TextBox2.Visible = True Button2.Visible = True

Власне пошук виконується в обробнику події клацання кнопки Пошук. Значення кожного елемента масиву placed_units слід порівняти із вмістом поля TextBox2. Якщо вони рівні,

відображатиметься повідомлення про те, що певний зошит знайдено на певному місці. Якщо вміст поля TextBox2 не збі-

гається зі значенням жодного елемента масиву placed_units, слід вивести повідомлення про те, що зошит не знайдено. Для відстеження успішності пошуку призначена змінна found:

якщо зошит не знайдено, її значення становитиме False, інакше — True.

Наведемо відповідний код:

'оголошуємо змінну-­лічильник

Dim counter As Integer

'змінна, яка визначає, чи був пошук успішним

Dim found As Boolean

found = False 'спочатку ще нічого не знайдено 'переглядаємо всі елементи масиву

For counter = 0 To UBound(places) 'якщо знайдено шуканий зошит...

If placed_units(counter) = TextBox2.Text Then

'... виводимо повідомлення про це

MsgBox(TextBox2.Text + " знайдено: " + places(counter))

found = True

End If Next

'якщо нічого не знайдено — повідомити про це користувача

If Not (found) Then MsgBox("Зошит не знайдено.")

Тепер принцип пошуку в масиві має бути більш зрозумілим — переглядайте всі елементи, поки не знайдете той, що дорівнює певній еталонній змінній. Що ж, виконайте вправу на пошук. Спробуйте створити щось серйозне і цікаве, скажімо, гру «Поле чудес». Ви думаєте, що не справитесь? Справитесь і не з таким!

Вправа 14.1. Поле чудес

Розробіть спрощену гру «Поле чудес». Масив із 5 елементів

увипадковий спосіб заповнюватиметься числами від 0 до 9

йвідображатиметься спочатку як *****. Користувач намагаєть-

значення збігатиметься зі значенням певного елемента еталонного масиву, відповідному елементу масиву visible слід на-

дати значення True.

Також після кожної спроби потрібно оновлювати вміст текс­ тового поля TextBox1. Це можна зробити, наприклад, таким

чином (array — еталонний масив чисел):

TextBox1.Text = "" 'робимо поле TextBox1 пустим

For counter = 0 To 4 'переглядаємо масив visible

If visible(counter) Then 'якщо черговий елемент видимий, 'виводимо в полі число

TextBox1.Text = TextBox1.Text + Str(array(counter))

Else 'інакше виводимо *

TextBox1.Text = TextBox1.Text + "*"

Next

Нарешті потрібно перевірити, чи містяться ще значення False в масиві visible. Якщо ні, то час завершувати гру.

Така перевірка є теж задачею з пошуку (шукаємо значення False в масиві visible). Для її розв’язання можна не створю-

вати окремий цикл, а модифікувати той, що наведений вище.

Для пошуку можна використовувати стандартні функції Visual Basic. Наприклад, можна скористатися функцією Array.IndexOf(), що повертає індекс елемента, який ви шукаєте:

Dim Arr(10) as Integer

Dim what as Integer = 50

MsgBox(Str(what)+" is on "+Str(Array.IndexOf(arr,what)))

Інші вбудовані функції можна переглянути у списку автовведення, який буде відображено засобом IntelliSense після введення слова Array. (з крапкою).

Сортування масиву

Ви коли-небудь замислювалися, чому список учнів класу відсортований за алфавітом? А чому мама так любить, коли всі зошити та книжки лежать на своїх місцях? На мою думку, це полегшує пошук. Наприклад, коли вчитель запитує вірш, який вам потрібно було вивчити напам’ять, йому легше руха­ тися за списком, що складений в алфавітному порядку (вам пощастить, якщо ваші прізвища міститимуться у другій його