Файл: posobie_po_informatike_Chast1_Word.doc

	1	2
20		Задана последовательность чисел 3, 5, 6, 8, 9, 11, 15, 16, 20, 21. Вычислить суммы пар чисел: первого и десятого, второго и девятого,…, пятого и шестого.
	21	Вычислить произведение целых нечетных чисел от m до n (m<n).
	22	Вычислить значение многочлена z=3x⁵-x⁴+6x³-2x²+7x+5 при одном значении x.
	23	Задана последовательность из n чисел: 3, 4, 7, 8, -9,12… определить сумму положительных элементов этой последовательности.
	24	Найти сумму всех n-значных чисел (1≤n≤4).
	25	Найти сумму всех n-значных чисел, кратных k (1≤n≤4).
	26	Сумма геометрической прогрессии вычисляется как сумма следующего ряда: Вычислить сумму при =1 и=1/2 с допустимой погрешностью=0.0001, т.е. должно бытьПроверочное значение
	27	Вычислить значение числа (основание натурального логарифма) как сумму рядас погрешностью, не превышающей 0,000001.
	28	Вычислить значение функции прикак сумму ряда с погрешностью, не превышающей 0,000001.
	29	Вычислить значение функции прикак сумму ряда с погрешностью, не превышающей 0,000001.
	30	Вычислить значение функции прикак сумму ряда с погрешностью, не превышающей 0,001.

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

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

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

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

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

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

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

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

PrivateSubCmdРешение_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

EndSub

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

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

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

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

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

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

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

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

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

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

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

Синтаксис оператора цикла с условием.
До каких пор продолжается выполнение цикла Do While … Loop?
До каких пор продолжается выполнение цикла Do Until … Loop?
С помощью какого оператора реализуется преждевременный выход из цикла?
Где в цикле Do While… Loopразмещается условие?

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

Редактор 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. Дополнительным условием окончания процесс поиска служит равенство нолю значения функции в пробной точке (в центре интервала поиска), когда длина интервала ещё большая.

Программная реализация метода бисекции

Function F (Byval x As Single) As Single

F=(x–1)^2–1

End Function

Private Sub Расчёт (Byval xn As Single, Byval xk As Single, _└┘–

Byval e As Single, ByRef x As Variant)

Dim N As Integer, c As Single ‘Объявление локальных переменных

Dim mas () ‘Объявление динамического массива

If F(xn)*F(xk)>0 Then

x =”?”

MsgBox ”на данном интервале корня нет или четное кол-во корней.”_└┘–

+ Chr(13) _└┘ &_└┘ –

”Задайте интервал, содержащий один корень”

Exit Sub

End If

N=0

c=(xn+xk)/2

Do While xk-xn>℮ And Abs(F(c))> ℮

c=(xn+xk)/2

N=N+1

ReDim Preserve mas (1 Tо N)

mas (N) =C

If F(xn)*F(c)>0 Then xn=c Else xk=c

Loop

x=c

If N=0 Then

ReDim Preserve mas(1 To 1)

mas (1)=x

End If

List1.List=mas

End Sub

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

Dim a As Single, b As Single, eps As Single, _└┘––

корень As Variant

a=CSng(Text1.Text)

b=CSng(Text2.Text)

eps=CSng(Text3.Text)

Расчет a, b, eps, корень

Text4.Text = корень

End Sub

Private Sub List1_Click()

Text5.Text=F(CSng(List1))

End Sub

Пояснения

Данный проект является реализацией одного из численных методов поиска корня нелинейного уравнения.

Проект реализован структурированной программой. В главной (командной) подпрограмме с именем “CmdРешение” выполняется считывание с полей формы (ввод) основных исходных данных, вызов вспомогательной подпрограммы с именем “Расчет” и передача в поле формы (вывод) вычисленного значения корня.

В структуре программы содержатся описания

функции с именем “F”, лежащей в основе уравнения;
вспомогательной подпрограммы с именем “Расчет”;
дополнительной подпрограммы с именем “List1”, передающей в поле формы значения функции при последовательных приближениях к корню.

Алгоритм метода поиска корня формально описан во вспомогательной подпрограмме с именем “Расчет”.

При записи в подпрограмме оператора цикла Do…Loop со служебным словом While (пока), помещённым в начале, составное условие для входа и продолжения цикла должно быть истинным, когда длина интервала поиска и значение функции в пробной (центральной) точке больше допустимой погрешности. Такое соединение условий реализуется логической операцией “And” (“и”).

Смотрите также файлы

OTIP.pdf

Missiles_Rockets.doc

Mekhanika_1.doc

List_a4_v_kletku_-_kopia.doc

Lab_1_1_marina.docx

Файл: posobie_po_informatike_Chast1_Word.doc

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

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

Программная реализация метода бисекции

”Задайте интервал, содержащий один корень”

Смотрите также файлы

Информация

Списки файлов

Дополнительно