Приклад 4. 1.
Умова. Скласти блок-схему і програму для рішення наступного завдання. Дано двовимірний масив А=(aij), i=1,2,...,7; j=1,2,...,8. Розділити елементи кожного стовпця на другий елемент стовпця.
Позначення: b - поточний другий елемент стовпця
Блок-схема
Приклад 4.2. Скласти алгоритм і VBA - програму визначення мінімального елемента у кожному рядку двовимірного масива А=aij i=1,2,3; j=1,2,3,4.
Блок-схема
Private Sub CommandButton1_Click()
Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer
For i = 1 To 3 ' Організація цикла для введення массива по рядках
For j = 1 To 4
a(i, j) = Val(InputBox(" Введите a(" & i & " , " & j & ")" & "элемент массива "))
Next j ' Кінець области дії внутрішнього цикла
Next i ' Кінець области дії зовнішнього цикла
For i = 1 To 3 ' Організація цикла для обробки масива по рядках
min = a(i, 1) ' Присвоювання першого элемента кожного рядка змінній min
For j = 1 To 4
If min > a(i, j) Then min = a(i, j) ' Визначення мінімального елемента
Next j ' Кінець области дії внутрішнього цикла
Debug.Print " Строка "; i; "min= "; min
Next i ' Кінець области дії зовнішнього цикла
End Sub
Оформлення протоколу лабораторної роботи
1. В зошиті представити умову і блок-схему рішення кожного з 2-х завдань.
2. Відповісти на контрольні запитання.
Запитання для самоперевірки
1. Визначення масиву.
2. Типи масивів і іх декларування.
3. Введення масивів.
4. Виведення масивів.
Л а б о р а т о р н а я р а б о т а № 5
Обробка масивів даних типу ДАТА/ЧАС
Мета роботи: організація обчислювальних процесів обробки масивів з даними Дата/Час. При підготовці до роботи вивчити теоретичний матеріал (стор. 46-48).
Завдання 1. Скласти алгоритм і програму для рішення завдань, представлених у таблиці Л5.1.
Таблиця Л5.1.
№ вар |
Умова |
1 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Іспанії, а саме: прізвища, стать і дати народження. Вивести прізвища туристів чоловічої статі, що народилися після 1960 року, і визначити їхню кількість. |
2 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Лондона, а саме: прізвища, стать і дати народження. Підрахувати кількість туристів жіночої статі, що народилися в 1980 році, і вивести їхні прізвища. |
3 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Італії, а саме: прізвища, стать і дати виліту. Підрахувати кількість чоловіків, що вилітають у жовтні, і вивести іх прізвища. |
4 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Німеччини, а саме: прізвища, стать і дати виліту. Підрахувати кількість туристів, що вилітають взимку, і вивести прізвища цих туристів. |
5 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Львова, а саме: прізвища, і дати виліту. Підрахувати кількість туристів, що вилітають по понеділках і вівторках, і вивести список їх прізвищ. |
6 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Румунії, а саме: прізвища, стать і дати виліту. Підрахувати кількість туристів, що вилітають у другу декаду місяця, і вивести прізвища. |
7 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Австрії, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вилітають через тиждень, і вивести їхні прізвища. |
8 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Туреччини, а саме: прізвища, стать і дати виліту. Підрахувати кількість чоловіків, що вилітають у вихідні дні, і вивести їхні прізвища. |
9 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Франції, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вилітають у вересні і жовтні, і вивести їхні прізвища. |
10 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Португалії, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вирушили вчора, і вивести їхні прізвища. |
11 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Угорщини, а саме: прізвища, стать і дати народження. Підрахувати кількість пенсіонерів (вік більше 60 років), і вивести їхні прізвища.
|
12 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Ізраїля, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вилітають в середу, і вивести їхні прізвища. |
13 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Іспанії, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вилітають взимку, і вивести їхні прізвища. |
14 |
Відомі дані про групу (35 чол.) туристів, які вилітають до Америки, а саме: прізвища, стать і дати виліту. Підрахувати кількість жінок, що вилітають сьогодні, і вивести їхні прізвища. |
15 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість жінок, яким призначено на завтра, і вивести їхні прізвища. |
16 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість чоловіків, яким призначено на треттю декаду місяца, і вивести їхні прізвища. |
17 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість жінок, яким призначено на сьогодні, і вивести їхні прізвища. |
18 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість жінок, яким призначено на вихідні, і вивести їхні прізвища. |
19 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість чоловіків, яким призначено на другу декаду грудня, і вивести їхні прізвища. |
20 |
Відомі дані про пацієнтів стоматології (35 чол.), а саме: прізвища, стать і дати візиту до лікаря. Підрахувати кількість жінок, яким призначено на другу декаду січня, і вивести їхні прізвища. |
21 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати і вивести оновлену суму вкладу кожного вкладника, враховуючи 3% збільшення суми для тих, хто зробив вклад 3 місяці тому. |
22 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад у 1-ому кварталі року, і вивести їхні прізвища. |
23 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад тиждень тому, і вивести їхні прізвища. |
24 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад у поточному місяці, і вивести їхні прізвища. |
25 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад у поточному році, і вивести їхні прізвища. |
26 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад вчора, і вивести їхні прізвища. |
27 |
Відомі дані про вкладників ПриватБанка (35 чол.), а саме: прізвища, суми і дати вкладів. Підрахувати кількість вкладників, що зробили вклад у поточному місяці, і вивести їхні прізвища. |
28 |
Задано масив S(5) – назви авіакомпаній і масив D(5) – дат виліту в ОАЕ з Одеси. Вивести на екран назву авіакомпаній, якими можна потрапити до ОАЕ влітку і підрахувати іх кількість. |
29 |
Відомі дані про працівників фірми (25 чол.), а саме: прізвища і дати іх прийняття на роботу. Підрахувати кількість працівників, що поступили на роботу 5 років тому, і вивести їхні прізвища. |
30 |
Відомі дані про товари магазина (25 шт.), а саме: назва і термін іх реалізації. Підрахувати кількість товарів, які мають термін реалізації не пізніше 15 травня, і вивести їх назви. |
Приклад 5. 1.
Умова. Скласти блок-схему і програму для рішення наступного завдання. Відомі данні про студентів (5 чол.), а саме: прізвища і дати народження. Підрахувати кількість студентів, що народились у червні або липні, і вивести їхні прізвища.
Програма
Private Sub CommandButton1_Click()
Dim D As Variant, Fam As Variant
Dim i As Integer, k As Integer
Fam = Array("stud1", "stud2", "stud3", "stud4", "stud5")
D = Array(#6/27/2014#, #7/17/2014#, #11/4/2014#, #6/10/2014#, #9/12/2014#)
k = 0
For i = 1 To 5
If Month(D(i)) = 6 Or Month(D(i)) = 7 Then
k = k + 1
Debug.Print "Прізвища студентів-"; Fam(i)
End If
Next i
Debug.Print "k="; k
End Sub