Порядок выполнения работы

1. Создать Excel-документ и сохранить его в бригадной папке под именем «Сумма чисел».

2. Запустить редактор VBA и вставить в рабочее поле форму проекта.

3. Задать имя проекта «Проба Do_Loop».

4. Задать заголовок на форме «Суммирование ряда целых чисел от 1 до 5».

5. Создать в форме командную кнопку с именем «CmdРешение» и надписью «Пуск».

6. Создать в форме надпись (метку) «Сумма», а под ней – текстовое поле для вывода результата (имя поля оставить стандартным TextBox1).

7. Создать следующий программный модуль:

Private Sub CmdРешение_Click( )

Dim s As Integer, i As Integer

s=0 ‘Начальное значение суммы

i=1 ‘Начальное значение ряда чисел

Do While i<=5

s=s+i ’Накопление суммы

i=i+1 ’Задание очередного числа

Loop

TextBox1.Text=s

End Sub

8. Сохранить разработанный проект и выполнить созданную программу.

9. Закрыть редактор VBA и подготовить для дальнейшей работы 3 копии исходного файла «Сумма чисел» под именами «While в конце», «Until в начале», «Until в конце».

10. Открыть последовательно подготовленные копии исходного файла, выполнить необходимые изменения в тексте исходной программы, поставив как указано, служебные слова While и Until в имени файла, выполнить измененные программы и сохранить их при успешном выполнении.

11. Создать два Excel-документа и сохранить их в бригадной папке под именами «Пробег дня 20 км» и «Сумма пробега 100 км».

12. Начать реализацию расчёта двух показателей тренировок спортсмена-бегуна.

13. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

14. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса <имя группы>».

Содержание отчета

Отчет должен содержать:

• номер, название и цель работы;

• краткую теоретическую часть, включающую описание формата оператора цикла с условием;

• результаты выполнения работы согласно заданию, выданному преподавателем, а именно: текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;

• заключение по работе.

Контрольные вопросы

1. Синтаксис оператора цикла с условием.

2. До каких пор продолжается выполнение цикла Do While … Loop?

3. До каких пор продолжается выполнение цикла Do Until … Loop?

4. С помощью какого оператора реализуется преждевременный выход из цикла?

5. Где в цикле Do While … Loop размещается условие?

ЛАБОРАТОРНАЯ РАБОТА № 5

Редактор VBA. Метод бисекции

Цель работы:

• познакомиться с алгоритмом метода бисекции;

• получить навыки создания программного модуля с использованием оператора цикла с условием Do-While-Loop.

Теоретическая часть

Алгоритм метода бисекции

Решение задачи выполняется в два этапа.

Этап 1. Локализация корня в интервале поиска [a, b]. Условие локализации: корень в интервале единственный, и значения функции на концах интервала имеют разные знаки (f(a)·f(b)<0).

Этап 2. Реализация метода бисекции, а именно: выполнение цикла приближений к корню выделением из интервала поиска половины, содержащей корень. Для этого в середине начального интервала и каждой выделенной его половины берётся пробная точка с= (a+b)/2, и в ней вычисляется значение функции f(с). Далее выполняется сравнение знаков f(a) и f(с) по произведению значений f(a) и f(с) и переопределение той или иной границы интервала поиска:

если f(a)·f(с)<0, то a=с; иначе b=с.

Основным условием окончания процесса (цикла) поиска является сокращение длины интервала поиска до задаваемой малой величины, определяющей допустимую погрешность вычисления корня, например, 0,01. Дополнительным условием окончания процесса поиска служит равенство нолю значения функции в пробной точке (в центре интервала поиска), когда длина интервала ещё большая.