Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Информатика. Метод. пособие

..pdf
Скачиваний:
39
Добавлен:
03.03.2016
Размер:
1.21 Mб
Скачать

Для багаторазового виконання одного або декількох операторів призначені цикли. 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