4. Цикли з постумовою.
4.1.Реалізуються за допомогою оператору умовного переходу
4.2.Формат:
Приклад:
10 S=Ø : I=Ø
20 I=I+1 : S=S+I
30 IF I<100 THEN GO TO 20
40 ?”S=”;S
Завдання1: (виконати самостійно на 1-му занятті): написати у конспекті обчислення значення функції S за допомогою різних типів операторів циклу( WHILE_WEND, FOR_NEXT), а також підрахувати кількість (n) повторень циклу:
100
S=∑ 2i = 2+4+6+…+200
i=1
Завдання2(виконати сумісно з викладачем на 2-му занятті): Написати постанову задачи, математичну модель, зобразити ісхідну та вихідну форми, відповідний програмний код інтерфейсу користувача для розрахунку значень функції Sum за допомогою різних типів операторів циклу ( WHILE_WEND, FOR_NEXT):
10
Sum=∑ cos3x = cos3+cos6+…+cos30
x=1
II. Хід роботи:
І. Постанова задачи:
Вхід:
Х
комірка
для значення
аргументу
–
Вихід:
Y
к омірка для значення функції –
Ограніченя:
Немає
ІІ. Математична модель:
10
Sum=∑ cos3x = cos3+cos6 +cos9+…+cos30
x=1
ІІІ. < нема>
ІV. < нема>
V. Розробка програми.
V. 1.Розробка форми інтерфейсу користувача
1.Створити папку С:\STUDENT\ГРУПА\ПРИЗВІЩЕ\VB\LR9
(де ГРУПА – назва ВашоЇ групи, а ПРИЗВІЩЕ –це Ваше призвіще)
2. Завантажити середовище візуального програмування Visual Basic (VB).
3. Активізувати ще два вікна VB: Propertis Window (вікно властивостей), Project1-Form1(Code) (вікно тексту програм).
4. На формі Form1 розмістити ( див. мал. 1 ) наступні компоненти:
Мал.1 Ісхідна форма
5. Встановити відповідні властивості компонент у слідуючи значення:
для форми (об’єкт типу Form1) установити властивість Caption рівною “Циклічний обчислювальний процес”
для кнопок (об’єкти типу CommandButton) з назвами Command1, Command2, Command3, Command4, Command5 і установити властивість Caption рівною “Введення ”, “For-Next”, “While-Wend”, “Do-Loop” та “Вихід”..
V. 2.Розробка програмного коду.
1.Запрограмувати кнопку «Введення даних». Для цього треба два рази натиснути на ліву клавішу миші. У результаті активізується вікно тексту програми з заготівкою процедури Command1_Click. У цю процедуру вставити текст програми, в якої функція InputBox("<коментар: що треба ввести > ") дозволяє вводити дані в окреме динамічне вікно, яке зникає з екрану після вводу даних і його закриття:
Private Sub Command1_Click()
x = Val(InputBox("Введіть x"))
End Sub
2. У процедуру-подію натисканням по другій кнопці розмістити наступні оператори:
Private Sub Command2_Click()
sum = 0
For x = 1 To 10
sum = sum + cos(3*x)
Next
MsgBox ("sum=" & Str(sum))
End Sub
3. У процедуру-подію натисканням по третій кнопці розмістити наступні оператори
Private Sub Command3_Click()
sum= 0: x = 1
While x <= 10
sum= sum + cos(3*x)
x = x + 1
Wend
MsgBox ("sum=" & Str(sum))
End Sub
4. У процедуру-подію натисканням по четвертій кнопці розмістити наступні оператори
Private Sub Command4_Click()
sum = 0
x = 1
Do Until x > 10
sum = sum + cos(3*x)
x = x + 1
Loop
MsgBox ("sum" & Str(sum))
End Sub
5.У процедуру-подію натисканням по четвертій кнопці розмістити наступні оператори:
Private Sub Command5_Click()
End
End Sub