- •Застосування мови
- •Visual Basic щодо розв’язування фахових задач
- •Верстка макету: Салипа л.М.
- •1 Інтегроване середовище visual basic
- •1.1 Практична робота №1 (Project 1)
- •1.2 Практична робота № 2 (Project 2)
- •2 Основи проектування додатків
- •2.1 Етапи проектування задач
- •2.2 Алгоритмізація задач
- •Елемента одновимірного масиву
- •3 Особливості проектування vb-програм
- •3.1 Об’єкти та їх властивості
- •3.2 Методи
- •3.4 Синтаксис мови vb
- •3.5 Типи даних
- •3.6 Кодування блоків алгоритму
- •3.6.1 Оператор присвоювання
- •3.6.2 Оператор введення-виведення інформації
- •3.6.3 Оператори переходу
- •3.6.4 Оператори циклів
- •4. Виконання програми
- •4.1 Проектування кнопки та написання тексту програми
- •4.2 Приведення програми до читабельного вигляду
- •4.3 Технологія друкування
- •4.4 Оформлення звіту
- •Література
- •Додаток а Завдання для ргр
- •1 Інтегроване середовище visual basic 3
4.4 Оформлення звіту
Звіт по програмі повинен мати:
умову задачі (у відповідності з варіантом, приведеним у додатку А);
блок-схему її реалізації;
роздруковану програму;
роздруковані результати її роботи;
короткі висновки про особливості алгоритмізації та програмування задачі, а також аналіз роботи програми при різних початкових даних.
Зразок виконання приводиться:
Умова: знайти суму додатних елементів в кожному рядку матриці.
Блок-схема
Цей алгоритм можна реалізувати з допомогою такого програмного модуля:
Private Sub Command1_Click()
Dim j As Integer
Dim i As Integer
Dim n As Integer
Dim m As Integer
Dim A(1 To 30, 1 To 30) As Single
n = InputBox("Скільки рядків в матриці?", "Рядки", 1)
m = InputBox("Скільки стовпців в матриці?", "Стовпці", 1)
For i = 1 To n: For j = 1 To m
A(i, j) = InputBox("Введіть А(" + Str(i) + "," + Str(j) + "):", "Матриця", 0)
Next j, i
Print " Програма знаходження суми додатніх елементів"
Print " в кожному рядку матриці"
Print " Розрахунково-графічна робота"
Print " Студента 1 курсу ФЕУ "
Print " групи № У-1"
Print " Петренко Івана Сергійовича"
Print " Початкова матриця"
For i = 1 To n: For j = 1 To m
Print " "; A(i, j);
Next j: Print: Next i
Print " Результати роботи програми"
For i = 1 To n
s = 0
For j = 1 To m
If A(i, j) >= 0 Then s = s + A(i, j)
Next j
Print " В "; i; "-ому рядку сума додатніх елементів ="; s
Next i
Print: Print Tab(15); "Програма роботу закінчила"
End Sub
Результат виконання приведеної програми:
Література
Дибкова Л.М. Інформатика та комп’ютерна техніка. К.: “Академія”, 2002. – 318 с.
Пушкар О.І. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. К.: “Академія”, 2001, – 694 с.
Белоусова Л.И., Бредун Л.Э. “Visual Basic – от простого к сложному”. Харьков: “Консум”, 2000. –256 с.
Visual Basic 6.0. Перевод с анг. СПб.: “БХВ Санкт-Петербург”, 1999. – 476 с.
Харволсон М. Microsoft Visual Basic 6.0 для профессионалов. Шаг за шагом. М.: “ЭКОМ”, 2000. – 1060 с.
Додаток а Завдання для ргр
Варіант 1
Знайти перше число натурального ряду, яке дає значення суми більше заданого числаZ=10.
Підрахувати кількість від’ємних елементів в одновимірному масиві довжиною N.
Визначити мінімальний елемент кожного рядка матриці. Надрукувати його значення та індекси.
Варіант 2
Визначити суму нескінченого ряду з точністю Е=0.00001.
Підрахувати кількість додатніх елементів в одновимірному масиві довжиною N.
Для кожного стовпця матриці визначити і надрукувати суму значень елементів, розміщених в рядках з непарними номерами.
Варіант 3
Визначити суму нескінченого ряду з точністю Е=0.001.
Визначити мінімальний елемент в одновимірному масиві довжиною N.
Визначити і надрукувати кількість додатніх елементів кожного стовпця матриці.
Варіант 4
Визначити суму нескінченого ряду з точністю Е=0.001.
Визначити максимальний елемент в одновимірному масиві довжиною N.
Для кожного рядка матриці надрукувати номери стовпців, що містять додатні елементи.
Варіант 5
Визначити суму нескінченого ряду з точністю Е=0.00001.
x=0.002
Підрахувати суму всіх елементів в одновимірному масиві довжиною N.
Для кожного рядка матриці визначити і надрукувати кількість елементів, значення яких перевищує число Z.
Варіант 6
Визначити суму нескінченого ряду з точністю Е=0.00001.
x=0.002
Кожен елемент масиву розмірністю N помножити на його порядковий номер у масиві.
Знайти і надрукувати суму значень додатніх елементів матриці.
Варіант 7
Визначити суму нескінченого ряду з точністю Е=0.001.
x=0.31
Знайти добуток всіх елементів масиву розмірністю N (якщо елемент дорівнює 0, то пропустити).
Знайти максимальний по модулю елемент матриці. Надрукувати його значення та індекси.
Варіант 8
Визначити суму нескінченого ряду з точністю Е=0.001.
Знайти суму всіх додатніх елементів одновимірного масиву розмірністю N.
Визначити і надрукувати кількість від’ємних елементів у кожному стовпці матриці.
Варіант 9
Визначити суму нескінченого ряду з точністю Е=0.00001.
Знайти суму всіх від’ємних елементів одновимірного масиву розмірністю N
Для кожного стовпця матриці визначити і надрукувати кількість елементів, значення яких перевищує число Z.
Варіант 10
Визначити суму нескінченого ряду з точністю Е=0.00001.
Замінити всі елементи одновимірного масиву розмірністю N по формулі аі=аі+sin aі.
Для кожного рядка матриці знайти і надрукувати суму значень елементів, розміщених в стовпцях з парними номерами.
Варіант 11
Визначити суму нескінченого ряду з точністю Е=0.00001.
Отримати суму тих членів одновимірного масиву розмірністю N, які відповідають умові аі>i3.
Визначити і надрукувати кількість додатніх елементів матриці.
Варіант 12
Визначити суму нескінченого ряду з точністю Е=0.00001.
Отримати суму тих членів одновимірного масиву розмірністю N, які кратні 5.
Для кожного рядка матриці знайти і надрукувати максимальний елемент.
Варіант 13
Визначити суму нескінченого ряду з точністю Е=0.00001.
В одновимірному масиві розмірністю N всі додатні елементи помножити на 10, а всі від’ємні елементи замінити на 0.
Для кожного рядка матриці знайти і надрукувати суму значень від’ємних елементів.
Варіант 14
Знайти кількість членів нескінченого ряду, сума яких не перевищує числаZ.
Отримати суму елементів одновимірного масиву розмірністю N з парними номерами.
Для кожного стовпця матриці знайти і надрукувати номери рядків, що містять від’ємні елементи.
Варіант 15
Знайти перше число натурального ряду, яке дає значення суми не менше числа А=2.
Отримати суму елементів одновимірного масиву розмірністю N з непарними номерами.
Визначити і надрукувати найменший елемент матриці та його індекси.
Варіант 16
Знайти останнє число натурального ряду, яке дає значення суми менше числаY=0.008.
Отримати добуток елементів одновимірного масиву розмірністю N з парними номерами.
Для кожного рядка матриці знайти і надрукувати кількість додатніх елементів.
Варіант 17
Знайти останнє число натурального ряду, яке дає значення суми не більше заданого числа P=1.
Отримати добуток елементів одновимірного масиву розмірністю N з непарними номерами.
Для кожного стовпця матриці знайти і надрукувати суму значень додатніх елементів.
Варіант 18
Визначити суму нескінченого ряду з точністю Е=0.00001.
Отримати суму додатніх елементів одновимірного масиву розмірністю N з номерами від 3 до 7.
Для кожного рядка матриці визначити і надрукувати суму значень елементів, значення яких перевищує число Z.
Варіант 19
Визначити суму нескінченого ряду з точністю Е=0.00001.
Отримати добуток елементів одновимірного масиву розмірністю N з номерами від 3 до 7 (якщо елемент дорівнює 0, то пропустити).
Для кожного стовпця матриці знайти і надрукувати мінімальний елемент.
Варіант 20
Визначити суму нескінченого ряду з точністю Е=0.00001.
Помножити кожен елемент одновимірного масиву розмірністю N на кількість його додатніх елементів.
Для кожного стовпця матриці знайти і надрукувати суму значень від’ємних елементів.
Варіант 21
Знайти кількість членів нескінченого ряду, сума яких не менше заданого числа В.
Замінити перші 6 додатніх елементів одновимірного масиву розмірністю N на 0.
Для кожного рядка матриці визначити і надрукувати номери стовпців, що містять від’ємні елементи.
Варіант 22
Визначити суму нескінченого ряду з точністю Е=0.00001.
Замінити всі парні елементи одновимірного масиву розмірністю N на 1.
Знайти і надрукувати суму значень від’ємних елементів матриці.
Варіант 23
Визначити суму нескінченого ряду з точністю Е=0.00001.
Замінити всі непарні члени одновимірного масиву розмірністю N на 10.
Для кожного рядка матриці знайти і надрукувати суму значень елементів, що розміщені в стовпцях з непарними номерами.
Варіант 24
Визначити суму нескінченого ряду з точністю Е=0.00001
, де А=0.05.
Визначити суму квадратів парних чисел одновимірного масиву розмірністю N.
Знайти і надрукувати добуток значень від’ємних елементів матриці.
Варіант 25
Визначити суму нескінченого ряду з точністю Е=0.00001
, деZ=0.003.
Відібрати і надрукувати із одновимірного масиву розмірністю N ті елементи, які менші числа А.
Для кожного стовпця матриці визначити і надрукувати кількість елементів, значення яких не перевищує число Z.
Варіант 26
Визначити суму нескінченого ряду з точністю Е=0.00001
В одновимірному масиві розмірністю N знайти індекс першого від’ємного елемента
Елементи непарних стовпців матриці збільшити в 10 разів, а елементи парних стовпців збільшити на 10
Варіант 27
Визначити суму нескінченого ряду з точністю Е=0.00001
В одновимірному масиві розмірністю N знайти індекс першого додатного елемента
Елементи непарних рядків матриці збільшити в 10 разів, а елементи парних рядків збільшити на 10
Варіант 28
Визначити суму нескінченого ряду з точністю Е=0.00001
В одновимірному масиві розмірністю N знайти індекс останнього додатного елемента
Знайти суму додатних елементів квадратної матриці, які розміщені на її головній діагоналі
Варіант 29
Визначити суму нескінченого ряду з точністю Е=0.00001
В одновимірному масиві розмірністю N підрахувати кількість додатних елементів, від’ємних елементів та нулів
Знайти суму від’ємних елементів квадратної матриці, які розміщені на її головній діагоналі
Варіант 30
Визначити суму нескінченого ряду з точністю Е=0.00001
В одновимірному масиві розмірністю N визначити середнє арифметичне його елементів додатних елементів
Знайти добуток додатних елементів квадратної матриці, які розміщені на її головній діагоналі
Зміст
Верстка макету: Салипа Л.М. 2
Вступ 3