Информатика. Метод. пособие
..pdfДля багаторазового виконання одного або декількох операторів призначені цикли. Visual Basic пропонує дві конструкції: цикл For. . . Next дає можливість встановлювати число проходів циклу, а цикл Do. . . Loop завершується при виконанні заданої умови. Цикл For. . .Next є найпростішою конструкцією:
For <Лічильник> = < Початкове_значення> To <Кінцеве_значення> [Step<
Крок>]
<Оператори>
Next [<Лічильник>]
На початку виконання циклу значення <Лічильник> встановлюється в <Початкове значення>. При кожному проході змінна <Лічильник> збільшується на 1 або на величину <Крок>. Якщо вона досягає або стає більше (менше, при негативному кроці) <Кінцеве значення>, то цикл завершується й виконуються наступні за циклом оператори. Різниця між початковим і кінцевим значенням, ділена на величину кроку, становить число проходів.
Приклад виконання роботи:
1.Відкрити Microsoft Excel.
2.Ввести таблицю( у даному прикладі лівий верхній кут таблиці розташований у комірці А1)
Ділене |
Дільник |
Частка |
5 |
-1 |
|
9 |
3 |
|
-4 |
1 |
|
3 |
0 |
|
7 |
2 |
|
-3 |
4 |
|
6 |
6 |
|
8 |
3 |
|
3. Залежно від того, у якому офісі створюється програма, потрібно вибрати або «Сервіс Макрос Редактор VBA», або «Вид Макроси Макроси ». У діалоговому вікні, що з'явилося, потрібно ввести ім'я макросу Створити й у вікні програмного коду ввести текст програми
Sub приклад()
Dim a As Single, b As Single
Dim n As Integer, c As Single
n = Val(Inputbox("уведіть кількість оброблюваних рядків"))
For i = 1 To n
a = Cells(i + 1, 1).Value
b = Cells(i + 1, 2).Value If b = 0 Then
Cells(i + 1, 3) = "ділення на нуль "
Else
c = a / b
Cells(i + 1, 3).Value = c End If
Next i End Sub
61
Закриваємо вікно редактора VBA
4. «Макроси Виконати» . На листі можемо побачити результат роботи програми
Ділене |
Дільник |
Частка |
5 |
-1 |
-5 |
9 |
3 |
3 |
-4 |
1 |
-4 |
3 |
0 |
ділення на нуль |
7 |
2 |
3,5 |
-3 |
4 |
-0,75 |
6 |
6 |
1 |
8 |
3 |
2,666666746 |
Варіанти завдань до лабораторної роботи №4
Варіант 1
Якщо приріст захворювань негативний, вивести повідомлення - "покращилося", якщо дорівнює 0 - "не змінилося", інакше - "погіршилося".
Варіант 2
Якщо приріст випуску виробів негативний, вивести повідомлення - "погіршилося", якщо рівний 0 - "не змінилося", інакше - "покращилося".
Варіант 3
Якщо загальний приріст населення по кожному місту негативний, вивести повідомлення - "смертність вище", якщо дорівнює 0 - "рівні", інакше - "народжуваність вище".
Варіант 4
Якщо кількість пропусків дорівнює 0 вивести "не пропускав", якщо кількість пропусків < 300 - "догана", інакше - " до декана".
Варіант 5
Якщо % травматизму < 1%, вивести повідомлення - "благополучно", якщо від 1% до 3% - "задовільно", інакше - "погано".
Варіант 6
Якщо сума отриманих відсотків до 1000, вивести повідомлення - "дрібний", від 1001 до 100000 - "середній", інакше - "великий".
Варіант 7
Якщо середня зарплата працівника до 1200 грн., видати повідомлення "мінімальна", від 1201 до 2000 - "низька", інакше - "припустима".
Варіант 8
Якщо загальна кількість проданих фірмою путівок <100, видати повідомлення - "немає попиту", від 101 до 500 - "середній попит", >500 - "популярна".
62
Варіант 9
Якщо середня кількість вугілля, що добувається бригадою за тиждень, менше загального середнього, вивести повідомлення - "підвищити", якщо дорівнює - "норма", інакше - "добре".
Варіант 10
Якщо середня кількість пасажирів, перевезених за півріччя в кожне місто, менше загального середнього, вивести повідомлення - "зменшити рейси", якщо дорівнює - "норма", інакше - "побільшати рейси".
Варіант 11
Якщо середня кількість кожного виробу за півріччя менше загального середнього, вивести повідомлення - "нижче середнього", якщо дорівнює - "середнє", інакше - " вище за середнє".
Варіант 12
Якщо середня кількість переговорів за тиждень із кожним містом менше загального середнього, вивести повідомлення - "нижче середнього", якщо дорівнює - "середнє", інакше - " вище за середнє".
Варіант 13
Якщо заробіток продавця менше загального середнього, вивести повідомлення - "нижче середнього", якщо дорівнює - "середній", інакше - " вище за середнє".
Варіант 14
Якщо кількість лікарняних днів для кожної бригади менше загального середнього, вивести повідомлення - "покращилося", якщо дорівнює - "не змінилося", інакше - "погіршилося".
Варіант 15
Якщо вартість харчування до 3, вивести повідомлення - "недостатньо", від 3 до 5 - "задовільно", інакше - "нормально".
Варіант 16
Якщо приріст випуску деталей негативний, вивести повідомлення - " погіршилося ", якщо дорівнює 0 - "не змінилося", інакше - "покращилося ".
|
|
|
Варіант |
17 |
Якщо |
приріст |
негативний, |
вивести |
повідомлення - " погіршилося ", якщо |
дорівнює 0 - "не змінилося", інакше - "покращилося ". |
||||
|
|
|
Варіант |
18 |
Якщо |
приріст |
негативний, |
вивести |
повідомлення - " погіршилося ", якщо |
дорівнює 0 - "не змінилося", інакше - "покращилося ". |
||||
|
|
|
Варіант |
19 |
Якщо |
приріст |
негативний, |
вивести |
повідомлення - " погіршилося ", якщо |
дорівнює 0 - "не змінилося", інакше - "покращилося ".
63
Варіант 20
Якщо кількість рейсів у кожне місто менше загального середнього, вивести повідомлення - "менше середнього", якщо дорівнює - "середнє", інакше - "більше середнього".
Варіант 21
Якщо середня кількість проданих меблів менше загального середнього, вивести повідомлення - "менше середнього", якщо дорівнює - "рівно середньому", інакше - "більше середнього".
Варіант 22
Якщо загальний прибуток кожного банку за 5 років менше середньої по всіх банках, вивести повідомлення - "менше середньої", якщо дорівнює - "середня", інакше - "більше середньої".
Варіант 23
Якщо кількість перевезених у країну пасажирів менше середнього по всіх країнах, вивести повідомлення - "менше середнього", якщо дорівнює - "середнє", інакше - "більше середнього".
Варіант 24
Якщо за друге півріччя продане менше, чим за перше, вивести повідомлення - "продаж поменшився", якщо дорівнює - "продаж не змінився", інакше - "продаж збільшився".
Варіант 25
Якщо піврічна з/плата співробітника менше загального середнього заробітку, вивести повідомлення - "менше середнього", якщо дорівнює - "середнє", інакше - "більше середнього".
Варіант 26
Якщо приріст населення негативний, вивести повідомлення - "смертність вище", якщо дорівнює 0 - "смертність = народжуваності ", інакше - "народжуваність вище".
Варіант 27
Якщо приріст продажу < 0, вивести повідомлення -"положення погіршилося", якщо дорівнює 0 - " не змінилося", інакше - " положення покращилося ".
Варіант 28
Якщо приріст об'єму реалізації < 0, вивести повідомлення - "спад попиту", якщо дорівнює 0 - "на колишньому рівні", інакше - "збільшення попиту".
Варіант 29
Якщо приріст контрактів негативний, вивести повідомлення - "клієнтів менше", якщо дорівнює 0 - "не змінилося", інакше - "клієнтів більше".
Варіант 30
Якщо приріст продажу негативний, вивести повідомлення - "попит упав", якщо дорівнює 0 - "попит стабільний", інакше - "попит збільшився".
64
СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ
1)Годин В.В., Корнеев И.К. Управление информационными ресурсами. М.:
Инфра-М, 2000. – 334 с.
2)Степанов А.Н. Информатика. 4-е издание. Учебник для ВУЗов. –М: 2005 –
683 с.
3)Методичний посібник для виконання лабораторних робіт з інформатики (
для студентів за напрямом підготовки 6.030507 ”Маркетинг)/ Укладачі: І.В. Диннік,
О.А.Тихонова - Донецьк: ДонНТУ, 2011 - 73 с.
4)Еремин Е.А. Популярные лекции об устройстве компьютера. – СПб.: «БХВ
–Петербург». 2003.- 272 с.
5)Информатика. Базовый курс. 2-е издание / Под ред. С.В.Симоновича.-
СПб.:Питер, 2009. – 640 с.
6)Гельман В.Я. Решение математических задач средствами Excel. = СПб.:
Питер, 2009. – 233 с.
65
МЕТОДИЧНИЙ ПОСІБНИК ДЛЯ ВИКОНАННЯ ЛАБОРАТОРНИХ РОБІТ З ІНФОРМАТИКИ
( для студентів за напрямом підготовки 6.030504 « економіка підприємства»)
Автори: І. В. Диннік, ст. викладач
О.А.Тихонова, асистент
66