Частина 2.
Для організації ітераційного циклу, коли число повторень операторів тіла циклу заздалегідь невідомо в VBA використовується циклічна структура Do ... Loop.
Існує чотири різновиди даної конструкції. При використанні перших двох цикл або виконується багато разів, або не виконується взагалі.
Do Until <умова>
Оператори тіла циклу
Loop
Якщо результатом перевірки умови є значення False, то блок Оператори виконується, інакше здійснюється перехід на оператор, розташований після службового слова Loop. З іншого боку, якщо перша перевірка умови дасть результат True, то цикл не виконується жодного разу.
Do While <умова>
Оператори тіла циклу
Loop
Якщо умова дійсна, то відбувається виконання блоку Оператори, якщо ж вона хибна, тобто результатом перевірки є значення False, то цикл не виконується жодного разу.
У випадку використання останніх двох конструкцій цикл буде виконуватися хоча б один раз.
Do
Оператори тіла циклу
Loop Until <умова>
Блок Оператори виконується доти, поки результатом перевірки умови є значення False (тобто умова не виконується), інакше виконання циклу закінчується.
Do
Оператори тіла циклу
Loop While <умова>
Блок Оператори виконується, поки умова виконується, інакше відбувається закінчення циклу (вихід з циклу).
У тих випадках, коли необхідно достроково перервати виконання циклу, застосовуються різновиди оператора Exit, що розташовується в конструкції перевірки умови розв’язку (If ...<умова>). При цьому для кожного з циклів Do...Loop застосовується оператор Exit Do. Після виконання даного оператора відбувається негайне завершення циклу без будь-яких додаткових умов.
Завдання 2. Обчислити функцію f(x), як суму членів ряду для k значень х. Обчислення вести за рекурентною формулою: Un+1 = (Un),
де Un – член ряду з номером n, Un+1 – наступний член ряду з номером n+1 і обчислення закінчити при умові: Abs(Un+1 – Un) , де - точність
Хід виконання роботи.
Варіант № ____
1. Ознайомтеся з варіантом завдання. Занесіть його до протоколу.
Функція: ________________________________________
Рекурентна формула: _____________________________
Вибрана точність обчислення: _______________
2. Скласти блок-схему та розробити діалогове вікно (форму) для обчислення заданої функції (згідно варіанту), як суму членів ряду з заданою точністю, використавши оператор циклу Do…Loop. Перше початкове наближення ввести за допомогою текстового поля (TextBox). Значення точності вибирається з елемента Список (ListBox) [0,1; 0,01; 0,001; 0,0001; 0,00001; 0,000001]. На формі розмістити функцію, яку необхідно обчислити (елемент Label). Результати обчислення заданої функції та кількість зроблених ітерацій вивести у відповідні текстові поля. На формі розмістити відповідні командні кнопки (CommandButton).
Створити код обчислення функції. Перевірити роботу розробленого додатку за допомогою розрахунків в Excel, та зробити висновки.
Розробіть ескіз форми:
До протоколу додати звіт, що містить:
1. блок-схему обчислення функції;
2. таблицю зміни властивостей елементів управління;
код програми;
результати обчислень.