I.Информ. Программирование языком VB(кр1)

11

3 ВИБІР ВАРІАНТУ ЗАВДАННЯ

Варіант завдання студент обирає за двома останніми цифрами номеру залікової книжки згідно таблиці, що наведена нижче.

Наприклад, дві останні цифри номеру залікової книжки – 75. На перехресті 7-го рядка та 5-го стовпчика знаходимо номер варіанту – 16.

12

4 ВКАЗІВКИ ДО ВИКОНАННЯ ЗАВДАНЬ КОНТРОЛЬНОЙ РОБОТИ

4.1 Завдання 1 4.1.1 Короткі теоретичні довідки

Тема першого завдання – програмування розгалужених обчислювальних процесів.

Для побудови програми необхідно використати змінні та оператори вибору (перевірки умови). Навчитися записувати арифметичні і логічні вирази.

Змінні призначені для збереження даних.

Змінна – це іменована область пам’яті, призначена для збереження даних, яка в ході виконання програми набуває різних значень.

Будь-яка змінна має своє ім’я. Таким чином, для доступу до вмісту пам’яті досить знати ім’я змінної. Воно є унікальним і незмінним. При виборі імені існують наступні обмеження:

-ім'я змінної повинне починатися з букви (тільки латинські літери), а не з цифри чи іншого символу;

-інші символи – літери та цифри;

-ім'я не повинне містити крапки. Можна використовувати символ підкреслення;

-ім'я повинне бути унікальним у межах даної процедури;

-ім'я не повинне бути ключовим словом Visual Basic;

-довжина імені не повинна перевищувати 255 символів.

Перед використанням змінних, їх необхідно оголосити, застосовуючи оператор

Dim VarName As VarType

де VarName – ім'я змінної; VarType – назва типу змінної.

Назва типу задається придатним ключовим словом, що повідомляє Visual Basic про те, яка інформація буде зберігатися в змінній (цілі числа: Byte, Integer, Long; дійсні числа: Single, Double, Currency;

текстова інформація: String; логічні значення: Boolean та ін.). Алгоритмічна мова VISUAL BASIC є мовою структурного

програмування. Одна з базових структур для опису алгоритмів є структура типу розгалудження:

13

Зміст складається з виконання оператора 1 або оператора 2 так Умова ні залежно від того, виконується

умова чи ні.

Для опису цієї структури є оператор:

IF умова THEN оператор 1 ELSE оператор 2

Цей оператор має назву умовний оператор.

При рішенні задач на розгалужений обчислювальний процес, використовуються умовні оператори, що бувають двох типів: 1) строковий (однорядковий); 2) структурний (багатостроковий). Кожний з цих операторів може застосовуватися в двох формах: 1) коротка форма; 2) повна форма.

Загальна структура умовного оператора:

1)строковий (коротка форма)

If логічний вираз Then оператор

2)строковий (повна форма)

If логічний вираз Then оператор1 Else оператор2

3) структурний (коротка форма)

If логічний вираз Then оператор(и)

End If

4) структурний (повна форма)

If логічний вираз Then оператор(и)

Else

оператор(и)

End If

Логічний вираз – це якась умова, що перевіряється. Воно може включати логічні операції:

Not – логічне заперечення «НІ»; And – логічне «І»; Or – логічне «ЧИ». Умовні оператори відносяться до операторів керування. До операторів керування також відноситься й оператор вибору, що

14

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

Загальна структура оператора вибору: Select Case _Вираз, Що Перевіряється

Case Значення1 Оператор(и) Case Значення2 Оператор(и)

-----------------

[ Case Else

Оператор(и) ]

End Select

Обробка даних виконується у виразах і операторах присвоювання. Структура оператора присвоювання:

ім'я_змінної = вираз Вираз може складатися з констант, змінних, знаків операцій, круглих дужок і функцій.

Функції, убудовані в VB, можна розділити на категорії:

1)фінансово-математичні функції;

2)функції перетворення типів:

CCur(вираз) – перетворить числовий вираз чи рядок у число типу Currency; CDate(вираз) – перетворить числовий вираз чи рядок у дату; CDbl(вираз) – перетворить числовий вираз чи рядок у число типу Double; CInt(вираз) – перетворить числовий вираз чи рядок у число типу Integer; CStr(вираз) – перетворить числовий вираз чи рядок у рядок; Val(рядок) - перетворить рядок цифрових символів у число й ін.

3) математичні функції:

Abs(x) -абсолютне значення (модуль) x, Atn(x)- arctg(x), Cos(x)-cos(x),

Exp(x) - eкспонента(ex ), Log(x) - ln(x), Sin(x) – sin(x), Sqr(x) - x , Tan(x) – tg(x), Int(x) - ціла частина не більша за х, Rand(x)-випадкові числа з діапазону 0..x.

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

b=sqr(x).

15

Мова VISUAL BASIC не містять таких тригонометричних функцій, як ctg(x), arcsin(x), arccos(x), arcctg(x). У цьому випадку необхідно використовувати тригонометричні співвідношення:

ctg(x)=1/tg(x); arcctg(x)=arctg(1/x).

Для функції loga x необхідно використовувати формулу:

loga x = ln x . ln a

У таблиці 4.1 наведено деякі математичні операції, що виконуються у VISUAL BASIC за допомогою відповідних операторів, символи яких зазначено в цієї таблиці.

Таблиця 4.1 Деякі математичні операції, що виконуються у VISUAL BASIC

4.1.2 Приклад виконання завдання

Постановка задачі.

1)Обчислити координати крапки P(x,y) і знайти значення зазначеної функції z.

2)Перевірити, чи належить крапка Р області, заданої умовами. Намалювати цю область.

Рішення Процедура підготовки задач до рішення на ЕОМ містить у собі

кілька основних етапів.

I етап. Математичний опис рішення задачі. Дано: вихідних даних немає.

Знайти: 1) x, y – координати крапки P;

2)z – значення функції;

3)визначити, належить крапка Р області, заданої

Функція z у залежності від умови обчислюється по одній формулі чи

Зробимо креслення для області, заданої умовами

Y2 ≤ X, X2 + (Y-1)2 ≤ 1.

X=Y2 - парабола, симетрична щодо осі ОХ.

X2 + (Y-1)2 = 1 – окружність з центром у крапці (0, 1), радіус = 1.

17

II етап. Блок-схема алгоритму рішення задачі

початок

x = 86.9−0.25 + 20.3

z

кінець

18

IІІ етап. Складання програми мовою Visual Basic

1) Графічний інтерфейс користувача.

Використовуються елементи керування та їхні властивості. Форма (Form1): її властивість

Caption: Разветвляющийся выч. процесс.

Написи (Label). Текстові поля (Textbox), які призначені для висновку результатів X, Y, Z і повідомлення про те, належить крапка Р зазначеної області чи ні. Три командні кнопки (Command Button), з якими зв'язані процедури розрахунку. З першою кнопкою зв'язана процедура розрахунку координат X, Y для крапки Р. З другою кнопкою зв'язується процедура обчислення функції Z. З третьою кнопкою зв'язана процедура, у якій виконується перевірка: чи належить крапка Р с отриманими координатами X, Y області, заданої умовами. У процесі конструювання змінені їхні властивості.

Значення властивостей елементів керування

Рисунок (заштриховану область) робимо в графічному редакторі Paint і копіюємо на форму.

2) Програмні коди мовою Visual Basic.

Тому що програма складається з трьох процедур, що використовують змінні x, y, z, їх описуємо в розділі General:

Dim x As Double

Dim y As Double

Dim z As Double

Програмний код для кнопки cmdXY (подія Click):

Private Sub cmdXY_Click()

x = 86.9 ^ (-0.25) + 2 ^ 0.3

y = 49 ^ (1 - Log(2)) + 5 ^ (-Log(4))

20

txtX.Text = CCur(x)

txtY.Text = CCur(y)

' Змінюємо властивість Enabled для двох командних кнопок cmdZ.Enabled = True

cmdObl.Enabled = True End Sub

Програмний код для кнопки cmdZ (подія Click):

Private Sub cmdZ_Click()

If Abs(x) < Abs(y) Then

z = (3 * x + y) / (x ^ 2 + y ^ 2) Else

z = x * y End If

txtZ.Text = CCur(z) End Sub

Програмний код для кнопки cmdObl (подія Click):

Private Sub cmdObl_Click()

If y ^ 2 <= x And x ^ 2 + (y - 1) ^ 2 <= 1 Then txtObl.Text = "Крапка Р принад. області"

Else

txtObl.Text = "Крапка Р не принад. області" End If

End Sub

V етап. Результати розрахунку.

4.2 Завдання 2 4.2.1 Короткі теоретичні довідки

Тема цього завдання – програмування циклічних алгоритмів. При рішенні практичних задач часто приходиться виконувати

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