Лабораторна робота № 5

На тему: «Програмування задач у VB, що містять складні цикли».

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

Завдання до лабораторної роботи

(див. додаток)

Приклад виконання лабораторної роботи:

Обчислити суму членів ряду . Обчислення припинити, коли

Результат виконання програми:

Програмний код: Private Sub Command1_Click() Dim x, E, z As Single Dim i, n, F As Integer x = Val(Text1) E = Val(Text2) n = 0 Do F = 1 n = n + 1 For i = 1 To n F = F * i Next i z = z + x ^ n / F Loop While x ^ n / F > E Text3 = Format(z, "0.000") End Sub Private Sub Command2_Click() End End Sub

Лабораторна робота № 6

На тему: «Робота з одновимірними масивами».

Мета: навчитися опрацьовувати прості задачі з одновимірними масивами даних.

Завдання до лабораторної роботи

(див. додаток)

Приклад виконання лабораторної роботи:

Задано масив A25(12). Обчислити суму всіх елементів масиву.

Результат виконання програми:

Програмний код:

Private Sub Command1_Click()

Dim A25(1 To 12) As Single

Dim S As Single

Dim i As Integer

For i = 1 To 12

A25(i) = Val(InputBox("Введіть " + Str(i) + " елемент масиву ", i))

Picture1.Print A25(i); " ";

Next i

s = 0

For i = 1 To 12

s = s + A25(i)

Next i

Text1 = s

End Sub

Private Sub Command2_Click()

End

End Sub

Задано масив A25(12). Обчислити середнє арифметичне елементів масиву, що мають непарні індекси.

..3.Програмний код: Private Sub Command1_Click() Dim A25(1 To 12) As Single Dim S, SA As Single Dim i, k As Integer For i = 1 To 12 A25(i) = Val(InputBox("Введіть", i)) Picture1.Print A25(i); " "; Next i S = 0 k = 0 For i = 1 To 12 Step 2 S = S + A25(i) k = k + 1 Next i SA = S / k Text1 = S End Sub Private Sub Command2_Click() End End Sub Результат:

Визначити мінімальний елемент масиву A(10) та його порядковий номер.

Програмний код: Private Sub Command1_Click() Dim A(1 To 10) As Integer Dim i, min, k As Integer For i = 1 To 10 A(i) = Val(InputBox("Введіть", i)) Picture1.Print A(i); " "; Next i min = 1E+38 For i = 1 To 10 If A(i) < min Then min = A(i) k = i End If Next i Text1 = min Text2 = k End Sub Private Sub Command2_Click() End End Sub Результат:

Література

1. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. Під ред. проф. Пушкаря О.І. – К.: ВЦ “Академія”, 2003. – 704 с.

2. Мур М., Фернандес Дж.Н. Изучи сам Visual Basic 4 сегодня / Пер. с англ. Мн.: ООО “Попури”, 1997. –528 с.

3. Дибкова Л.М. Інформатика і комп’ютерна техніка: Навчальний посібник. Видання 2-ге, перероблене, доповнене – К.: Академвидав, 2005. – 416 с.

4. Браун С. Visual Basic 6 учебный курс. С-Петербург, Москва, Харьков, Минск. Питер.1999-573с.

5. Валецька Т.М., Бабій П.І., Григоришин І.А. та ін. Інформатика та комп’ютерна техніка в лабораторних работах: Навчальний посібник: У 3 ч. // За ред. Валецької Т.М. – К.: Центр навчальної літератури, 2005. – Ч.1. – 344 с.

6. Король В.И. Visual Basic 6.0. Язык программирования. Справочник с примерами. Изд. 2-ое исп. – М.: Кудиц-образ, 2000. – 448 с.

7. Інформатика. Методичні вказівки до виконання лабораторних робіт з розділу „Алгоритмізація та програмування задач циклічної структури засобами Visual Basic” для студентів напрямку 6.050502 „Інженерна механіка” денної та заочної форм навчання Уклад: О.Л. Сєдих, Н.М. Бреус, С.В. Конько, В.В. Форкун ─ К.: НУХТ, 2007. ─ 45 с.