Тема. Робота з чергою Мета. Формування навиків програмування черги засобами мови програмування та її використання в обчислювальних програмах Завдання Описати мовою програмування чергу для збереження координат точки у просторі та написати код для додавання координат до черги та читання їх з неї. Зчитані з черги дані слід порядково уводити до текстового поля. Розв’язання Мовою VB.NET Public Class Form1 Structure S_Queue Public x, y, z As Double End Structure Dim Queue(100) As S_Queue 'Масив для збереження черги Dim First As Integer = 0 'Початок черги Dim Last As Integer = -1 'Кінець черги Sub PutQueue(ByVal x As Double, ByVal y As Double, ByVal z As Double) 'Процедура запису даних до черги Last += 1 Queue(Last).x = x Queue(Last).y = y Queue(Last).z = z Label5.Text = Last - First + 1 End Sub Function IsEmpty() As Boolean 'Процедура перевірки черги на порожність IsEmpty = First > Last End Function Function GetQueue(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Boolean 'Процедура читання даних з черги If Not IsEmpty() Then x = Queue(First).x y = Queue(First).y z = Queue(First).z First += 1 GetQueue = True Else GetQueue = False End If Label5.Text = Last - First + 1 End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, z As Double x = TextBox1.Text y = TextBox2.Text z = TextBox3.Text PutQueue(x, y, z) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim x, y, z As Double If GetQueue(x, y, z) Then TextBox4.Text += "X=" + Str(x) + vbTab + "Y=" + Str(y) + vbTab + "Z=" + Str(z) + vbNewLine End If End Sub End Class Завдання для самостійного виконання Варіант | Завдання | 1 | Написати програму для уведення до черги цілих чисел та виводу їх до текстового поля порядково | 2 | Написати програму для уведення до черги цілих чисел та виводу їх до текстового поля через пробіл | 3 | Написати програму для уведення до черги слів (рядків) та виводу їх до текстового поля порядково | 4 | Описати структуру «Геометрична фігура» з параметрами: назва, площа, об’єм, кількість вершин. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 5 | Описати структуру «Працівник підприємства» з параметрами: прізвище,ім’я, по батькові, дата народження, професія, розряд. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 6 | Описати структуру «Погодні умови» з параметрами: температура, атмосферний тиск, швидкість вітру, вологість, напрямок вітру. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 7 | Описати структуру «Пацієнт лікарні» з параметрами: прізвище,ім’я, по батькові, дата народження, діагноз, лікар, дата госпіталізації. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 8 | Описати структуру «Автомобіль» з параметрами: марка, рік випуску, країна виробник, об’єм двигуна, кількість циліндрів, колір. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 9 | Описати структуру «Книга» з параметрами: автор, назва, шифр, рік видання, видавництво, кількість сторінок, жанр. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 10 | Описати структуру «Комп’ютер» з параметрами: марка, процесор, тактова частота, кількість ядер, дата випуску, об’ємRAM, об’єм HDD. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 11 | Описати структуру «Принтер» з параметрами: марка, тип, продуктивність, шумність, мережевий чи ні, кольоровий чи ні, можливість друку з карт пам’яті. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 12 | Описати структуру «Будинок» з параметрами: кількість поверхів, площа, кількість вікон, рік побудови, матеріал стін, матеріал даху. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 13 | Описати структуру «Країна» з параметрами: назва, материк, площа в тис. км2, населення в млн. чол., форма державного устрою, рік утворення. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 14 | Описати структуру «Планета» з параметрами: назва, радіус, маса, густина планети в г/см3, радіус орбіти, наявність атмосфери, середня температура поверхні в К, наявність природних супутників. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами | 15 | Описати структуру «Користувач соціальної мережі» з параметрами: ім’я, по батькові, прізвище, дата народження, стать, адреса електронної пошти, логін, пароль, захоплення, країна, місце проживання, навчальний заклад.. Написати програму для уведення до черги даних даної структури та виводу їх до текстових полів з відповідними підписами |
Література Караванова, Т.П. Інформатика: методи побудови алгоритмів та їх аналіз: Необчисл. алгоритми: Навч. посіб. для 9-10 кл. з поглибл. вивч. інформатики. Т.П.Караванова.– К.: Генеза, 2007. – 216 с.: іл. – Бібліогр.: с. 212. (Сторінки 65-70)
|