Модуль 1_VBasic
.pdfThis document is created with trial version of Document2PDF Pilot 2.16.100.
4. Завдання для лабораторної роботи № 3 на тему "Програмування розгалужених обчислювальних процесів за допомогою язика програмування Visual Basic”.
Варіант 1
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
|
ìa *c + 8,5x |
при х > 7. |
y |
ï |
= 7 |
= ía *c при х |
||
|
ï |
|
|
î(a *c − b ) /5* x при х < 7 |
|
Варіант 2
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться корис тувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(34,7 + x )*b |
при |
х / 2 > 0 |
y = í |
|
х / 2 £ 0 |
î8,5b *b / c + 2,7x при |
||
Варіант 3
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невід омі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(k |
* z + c )/(x + a )при |
х |
> 6 |
y = í |
+ z )/(x + a ) при |
х |
£ 6 |
î(k |
This document is created with trial version of Document2PDF Pilot 2.16.100.
Варіант 4
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ìa + bx |
при |
х |
£ 9,3 |
|
ï |
+ b + abx |
|
|
при 9,3 < х £ 12 |
y = ía х 2 |
|
|
||
ïk |
|
при |
х |
> 12 |
î |
|
|||
Варіант 5
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюєть ся значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ìa + (ab |
+ cx ) /3x 2 |
+ 50(a 2 + x 2 ) /(a /b + cx ) при x £ 0 |
||
y = í |
|
2 |
при |
х > 0 |
îln(x + a ) |
|
|||
Варіант 6
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
This document is created with trial version of Document2PDF Pilot 2.16.100.
ì(a +16cx )/ cx |
при |
a |
< 0 |
ï |
при |
a |
= 0 |
y = ícx |
|||
ï |
при |
a |
>12 |
î(a − cx )/ c + b |
Варіант 7
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(ax + b ) /(ax + c ) |
|
ï |
+ x /b |
y = ía х |
|
ï |
|
î0 |
|
при |
0 £ x £ 25 |
|
при |
x |
> 25 |
при |
x |
< 0 |
Варіант 8
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При роз робці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ìax + bc
y = ïí(a х + bc )2 − 8
ï1/(ax + bc )
î
при b − c > 0
при b − c = 0 при b − c < 0
Варіант 9
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці прог рами слід створити форму,
This document is created with trial version of Document2PDF Pilot 2.16.100.
програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(a +16cx ) / cx |
при |
a |
< 0 |
ï |
при |
a |
= 0 |
y = ícx + a |
|||
ï |
при |
a |
> 12 |
î(a − cx ) / c + b |
Варіант 10
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(2ax |
+ b ) /(ax + c ) |
ï |
+ x /b |
y = í5a х |
ï4a + x − b
î
при |
0 £ x £ 30 |
|
при |
x |
> 30 |
при |
x |
< 0 |
Варіант 11
Необхідно створити відповідно до індивідуального варіанта програму, у
ході виконання якої вводяться користувачем невідомі числа й |
обчислюється |
|
значення функції |
Y. При розробці програми слід створити |
форму, |
програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ìax + bc
y = ïí(a х + bc )2 − 8
ï1/(ax + bc )
î
при b − c > 0
при b − c = 0 при b − c < 0
This document is created with trial version of Document2PDF Pilot 2.16.100.
Варіант 12
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì4a + x + 2bc y = ïí(a х + bc )2 − 8
ï1/(ax + bc )
î
при b − c > 0
при b − c = 0 при b − c < 0
Варіант 13
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний к од, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
4.Блок-схему алгоритмічного процесу розв’язання задачі.
5.Роздруковану форму програми.
6.Роздрукований код програми.
|
ì7a + x + 2bc |
|
при |
b |
> 0 |
y = |
ï(3a х + 4bc )2 |
− 8 |
|
при b = 0 |
|
|
í |
|
|
|
|
|
ï100/(ax + bc ) |
при |
b |
< 0 |
|
|
î |
|
|||
Варіант 14
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевір ити дію програми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
This document is created with trial version of Document2PDF Pilot 2.16.100.
ì3ax + 7b + 5c |
при |
х |
< 0 |
|
y = í |
− 2c |
при |
х |
> 0 |
9b *6x |
||||
î |
|
|
|
|
Варіант 15
Необхідно створити відповідно до індивідуального варіанта програму, у ході виконання якої вводяться користувачем невідомі числа й обчислюється значення функції Y. При розробці програми слід створити форму, програмний код, перевірити дію пр ограми. Далі необхідно зберегти програму на магнітному диску, надрукувати форму та код програми.
Звіт про роботу повинен вміщувати:
1.Блок-схему алгоритмічного процесу розв’язання задачі.
2.Роздруковану форму програми.
3.Роздрукований код програми.
ì(78,7 + x )*b при |
х / 4 > 0 |
y = í |
х / 4 £ 0 |
î55b *b / c +1,2x при |
5. Завдання для аудиторної контрольної роботи за темою "Програмування циклічних обчислювальних процесів ”.
Циклічними є алгоритмічні процеси, які дозволяють повторювати частину програми декілька разів. Кожне повторювання операторів всередині циклу н азивають ітерацією. Кількість повторювань (ітерацій) може бути відомою заздалегідь або залежати від істинності деякої логічної умови.
5.1. Оператор циклу For . . . Next
Оператор циклу For . . . Next використовується тоді, коли потрібно виконати групу операторів заздалегідь відоме число раз.
Загальна форма оператора:
For I = Start to Finish Step N
Блок_операторів
Next
Процес виконання оператора For . . . Next такий:
a.Змінній I присвоюється значення змінної або виразу Start.
b.Значення I порівнюється зі значенням змінної або виразом Finish.
c. Якщо I <= Finish, виконується блок операторів у тілі циклу - чергова ітерація (повторення). Потім змінна I (лічильник циклу) збільшується на N, викону ється перехід до п. b. Якщо I > Finish, цикл завершує свою роботу.
This document is created with trial version of Document2PDF Pilot 2.16.100.
Приклад використання циклу For … Next
Як приклад розглядається створення програми обчислення суми на рахунку в банку. Користувач повинен ввести такі дані: суму попереднього внеску на рахунок - SPV, банківський відсоток - V, період часу - P. Після натиснення кнопки Розрахунок, програма повинна вивести суму SR, яка буде на рахунку після P років при визначеному банківському відсотку, якщо відома сума первинного внеску. Формула розрахунку суми така:
1.На початок роботи програми SR = SPV.
2.Кожного року сума на рахунку змінюється таким чином SR × 100100+ V .
Блок-схем розв’язання задачі подана на рис. 5.1.
На етапі візуального програмування потрібно створити форму, подану на рис. 5.2.
This document is created with trial version of Document2PDF Pilot 2.16.100.
Початок
Введення суми внеску SPV
Введення
банківського відсотку V
Введення періоду P
|
|
|
|
|
|
|
|
|
|
|
|
SR = SPV |
|
i = 1 |
|
|
|
|
|||
|
|
|
|
|
|
|
ні |
|||
|
i <= P |
|
||||||||
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
так |
|
|
Друкування |
||
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
суми на рахунку |
|
|
SR = SR × |
100 + V |
|
|
||||||
|
|
|
SR |
|||||||
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
100 |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Кінець |
|
|
|
|
|
|
|
|
|
|||
i = i + 1
Рисунок 5.1 - Блок-схема розв’язання задачі «Обчислення суми на рахунку»
Рисунок 5.2 - Вікно програми – прикладу використання оператору For...Next
This document is created with trial version of Document2PDF Pilot 2.16.100.
Характеристика форми, елементів управління форми подана в таблиці.
Об'єкт |
Властивість |
Значення |
1 |
2 |
3 |
Форма (Form) |
Name |
frmExampleFor |
|
Caption |
Програма - приклад циклу For |
|
BackColor |
білий |
Командна кнопка |
Name |
cmdSolve |
(Command Button) |
Caption |
&Розрахунок |
Командна кнопка |
Name |
cmdClear |
(Command Button) |
Caption |
&Очистка |
Командна кнопка |
Name |
cmdExit |
(Command Button) |
Caption |
&Вихід |
Етикетка (Label) |
Name |
lblSPV |
|
Caption |
Сума первинного внеску: |
|
BackColor |
білий |
|
Font |
12 пунктів, напівжирний |
Етикетка (Label) |
Name |
lblV |
|
Caption |
Банківський відсоток: |
|
BackColor |
білий |
|
Font |
12 пунктів, напівжирний |
Етикетка (Label) |
Name |
lblP |
|
Caption |
Період: |
|
BackColor |
білий |
|
Font |
12 пунктів, напівжирний |
Етикетка (Label) |
Name |
lblS |
|
Caption |
Сума на рахунку: |
|
BackColor |
білий |
|
Font |
12 пунктів, напівжирний |
Етикетка (Label) |
Name |
lblSR |
|
Caption |
0 |
|
BackColor |
білий |
|
Font |
12 пунктів, напівжирний |
|
Alignment |
1 – Right Justify (вирівнювання праворуч) |
Текстове поле |
Name |
TxtSPV |
(TextBox) |
Text |
“ëû” (порожній рядок) |
Текстове поле |
Name |
TxtV |
(TextBox) |
Text |
“ëû” (порожній рядок) |
Текстове поле |
Name |
TxtP |
(TextBox) |
Text |
“ëû” (порожній рядок) |
Характеристика коду програми подана в таблиці.
Дані в рядку коду |
Коментар |
1 |
2 |
Option Explicit |
Оголошення змінних: |
Dim SPV, V, P, SR |
SPV – сума первинного внеску; V – банківський відсоток; P |
|
– період; SR – сума на рахунку після P років. |
Private Sub cmdClear_Click() |
Заголовок процедури, яка пов’язана з подією Click на кнопці |
|
cmdClear (Очистка). |
TxtSPV.Text = " " |
Властивості Text текстового поля txtSPV (для введення суми |
|
первинного внеску) привласнюється значення “ëû” (порожній |
|
рядок). |
TxtV.Text = " " |
Властивості Text текстового поля txtV (для введення |
|
банківського відсотку) привласнюється значення “ëû” |
|
(порожній рядок). |
TxtP.Text = " " |
Властивості Text текстового поля txtP (для введення періоду) |
lblSR.Caption = 0 |
привласнюється значення “ëû” (порожній рядок). |
Властивості Caption етикетки lblSR (для виведення |
|
|
результату) привласнюється значення 0. |
End Sub |
Кінець процедури cmdClear_Click. |
This document is created with trial version of Document2PDF Pilot 2.16.100.
Private Sub cmdExit_Click() |
Заголовок процедури, яка виконується у випадку події Click |
|||
End |
– клацання лівою кнопкою миші на кнопці cmdExit (Вихід). |
|||
Кінець роботи програми |
|
|
|
|
End Sub |
Кінець процедури cmdExit_Click. |
|
|
|
Private Sub cmdSolve _Click() |
Заголовок процедури, яка пов’язана з подією Click на кнопці |
|||
|
cmdSolve (Розрахунок). |
|
|
|
SPV = Val(txtSPV.Text) |
Змінній SPV привласнюється значення властивості Text поля |
|||
|
txtSPV – значення суми первинного вн еску, яка введена в |
|||
|
поле txtSPV. При цьому викон |
ується перетворення |
||
|
текстового значення на числове за допомогою функції Val. |
|||
V = Val(txtV.Text) |
Змінній V привласнюється значення властивості |
Text поля |
||
|
txtV – значення банківського відсотка. |
|
|
|
P = Val(txtP.Text) |
Змінній P привласнюється значення властивості |
Text поля |
||
SR=SPV |
txtP – значення періоду. |
|
|
|
Змінній SR перед початком циклу привласнюється значення |
||||
For i=1 To P |
змінної SPV. |
1 до Р (оскільки |
Step N не |
|
Для і, що змінюється від |
||||
|
визначено, крок зміни дорівнює 1), доки і<=P виконується дія |
|||
SR=SR*(100+V)/100 |
змінній SR привласнюється значення |
– попереднє значення |
||
Next |
SR помножене на (100+V)/100 |
|
|
|
Значенню і привласнюється |
і+1, виконується пер ехід до |
|||
|
рядку For. |
|
|
|
lblSR.Caption = str(SR) |
Властивості Caption етикетки lblSR привласнюється |
|||
|
значення SR, яке функцією str перетворюється з числового |
|||
|
типу текстовий. |
|
|
|
End Sub |
Кінець процедури cmdSolve _Click. |
|
|
|
13.2 Оператор циклу Do While . . . Loop
Цикл цього типу ви користовується в тих випадках, коли необхідно повторювати ділянку коду доти, поки виконується деяка умова.
Загальна форма оператора:
Do While <Умова> <Блок_операторів>
Loop
Процес виконання оператора Do While . . . Loop такий:
a.Перевіряється на істинність деяка логічна умова.
b.Якщо умова істинна, виконується блок операторів у тілі циклу. В іншому випадку цикл завершує свою роботу.
При використанні циклу Do While . . . Loop потрібно, на відміну від оператора For...Next, усередині циклу змінювати значення зм інної - лічильника циклу.
У програмі визначення суми на рахунку після декількох років при певному банківському відсотку може бути використаний замість оператора For...Next оператор Do While . . . Loop. У цьому випадку алгоритм виконання програми не зміниться. Процедура cmdSolve _Click() прийме такий вид:
Private Sub cmdSolve _Click()
SPV = Val(txtSPV.Text) V = Val(txtV.Text)
P = Val(txtP.Text) SR = SPV
i = 1
Do While i<= P