Dim n As Integer, m As Integer, c As Single

n = Val(InputBox("Введіть n"))

m = Val(InputBox("Введіть m"))

c = fact(n) / (fact(m) * fact(n - m))

MsgBox "c=" & c

End Sub

Private Function fact(n As Integer) As Single

Dim i As Integer, p As Single

p = 1

For i = 1 To n

p =p * i

Next I

fact=p

End Function

Процедура Sub.

Синтаксис процедури Sub:

[Private ½Public ½Static] Sub Ім'я([Список аргументів])

Блок операторів

End Sub

Загаловок Sub аналогічний заголовку Function, тільки в процедурі Sub не вказується тип процедури.

Процедура Sub не повертає значення, присвоює її імені, як це робить процедура Function, однак як і Function, Sub може змінювати значення аргументів, переданих до неї. Тому, якщо процедура Sub призначена для розрахунку якихось величин, то в списку аргументів процедури Sub повинні бути присутнім як вхідні аргументи, так і вихідні.

Процедура Sub, на відміну від Function, не може бути викликана по імені функції усередині виразу. Для її виклику використовується окремий оператор. Застосовуються 2 модифікації виклику:

1) Call Ім'я (Список аргументів )

2) Ім'я Список аргументів

Приклад 3. Знайти напівсуму довжин двох векторів З=(c₁,c₂,c₃,c₄) і D=(d₁,d_2,d₃,d₄,d₅). Обчислення довжини вектора оформити, як процедуру Sub.

Позначення в процедурі обчислення довжини вектора: srv - ім'я процедури, x - вхідний масив з n елементами, s -довжина вектора. Позначення в основній процедурі: s1 - довжина вектора C, s2 - довжина вектора D.

Sub pp3()

Dim c(1 To 4) As Single

Dim d(1 To 5) As Single

Dim k As Integer, s1 As Single

Dim s2 As Single

For k = 1 To 4

c(k) = Val(InputBox("Введіть c(" & k & ")"))

Next k

Call srv(c, 4, s1)

For k = 1 To 5

d(k) = Val(InputBox("Введіть d(" & k & ")"))

Next k

Call srv(d, 5, s2)

MsgBox "rez=" & (s1 + s2) / 2

End Sub

Private Sub srv(x() As Single, n As Integer, s As Single)

s = 0

For k = 1 To n

s = s + x(k) ^ 2

Next k

s = Sqr(s)

End Sub

 

3. СИСТЕМА УПРАВЛІННЯ БАЗАМИ ДАНИХ ACCESS

 

Вступ

Основні ідеї сучасної інформаційної технології базуються на концепції баз даних (БД). Відповідно до цієї концепції, основою сучасної технології є дані, які повинні бути організовані в БД із метою адекватного відображення реального світу, що змінюється, і задоволення інформаційних потреб користувачів. Збільшення обсягу й структурної складності збережених даних, розширення кола користувачів інформаційних систем привело до створення зручних засобів інтеграції збережених даних і управління ними - систем управління базами даних (СУБД). Microsoft Access - один з найбільш сучасних програмних продуктів, застосовуваних для створення, зберігання й обробки баз даних в економіці, управлінні, довідковій службі й інших областях.

У даній роботі показані етапи створення бази даних Access «Навчальний процес», розглянуті питання, пов'язані із проектуванням і обслуговуванням таких додатків.

Що таке бази даних?

У самому загальному змісті база даних - це набір записів і файлів, організованих спеціальним чином. Один з типів баз даних - це документи, набрані за допомогою текстових редакторів і згруповані за темами. Інший тип - файли електронних таблиць, поєднувані в групи за характером їхнього використання. Іноді розв'язуване завдання стає занадто великим, тобто необхідна інформація розкидана по сотнях текстових файлів і електронних таблиць. У цьому випадку виникають проблеми: 1) Як зберегти зв'язки між файлами при введенні нової інформації? 2) Як переконатися, що дані вводяться правильно? 3) Що робити, якщо одна і та ж інформація може знадобитися відразу декільком користувачам і ін. Для рішення подібних проблем необхідні системи управління базами даних.

Майже всі сучасні системи засновані на реляційній моделі управління БД. Назва “реляційна” пов'язана з тим, що кожний запис у такій базі даних містить інформацію, що відноситься тільки до одного конкретного об'єкта.