Программирование итерационных циклов в среде Visual Basic

ЦЕЛЬ РАБОТЫ

1. Приобретение навыков алгоритмизации и программирования циклических вычислительных процессов с неизвестным числом повторов.

2. Приобретение навыков работы с внешними объектами OLE Microsoft Equation.

3. Приобретение навыков работы с функциями Format и CSng.

4. Приобретение навыков работы с оператором Function.

5. Реализация алгоритма вычислительного процесса на языке Visual Basic.

ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

ТЕКСТ ПРОГРАММЫ

Private Sub cmdStart_Click()' Объявление локальной процедуры

' cmdStart_Click, которая выполняется

' при однократном нажатии на

' командную кнопку cmdStart

E = CSng(cmbl.Text) ' ввод значения точности

x = CSng(txt.Text) ' ввод значения х

S = 1 ' ввод начального значения суммы

Zn = 1 ' ввод переменной, ответственной за смену знака

I = 1 ' ввод переменой, ответственной за порядок факториала

М1: If x / F(I) > E Then 'проверка условия окончания цикла

S = S + x / F(I) * Zn ' расчет искомой суммы

I = I + 2 'увеличение аргумента факториала

Zn = -Zn 'смена знака

GoTo М1 'переход на метку М1

End If 'завершение проверки условия

lblRez.Caption = Format(S, "#0.0000000") 'вывод результата

End Sub ' Конец локальной процедуры

' cmdStart_Click

Private Sub cmdEnd_Click()' Объявление локальной процедуры

' cmdEnd_Click(), которая выполняется

' при однократном нажатии на

' командную кнопку cmdEnd

End ' команда завершает выполнение программы

End Sub ' конец локальной процедуры

' cmdEnd_Click()

Private Sub Form_Load() ' объявление локальной процедуры

' Form_Load(), которая выполняется

' при загрузке формы frmMain

K = 10 ' введение переменной, отвечающей за

' уменьшение порядка точности

En = 0.1 ' ввод переменной, отвечающей за

' начальное значение точности

For I = 1 To 5 ' объявление цикла для отображения пяти

' элементов в списке выбора точности

En = En / K ' текущее значение элемента в списке

' выбора точности

cmbl.AddItem ((En)) ' добавление текущего значения точности

' в список

Next ' конец цикла

cmbl.ListIndex = 0 ' отображение первого значения точности

' по умолчанию на форме в списке

End Sub ' конец локальной процедуры Form_Load

Private Function F(x) As Single ' объявление локальной функции

' пользователя

F = 1 ' ввод переменной, отвечающей

' за значение факториала

For I = 1 To x ' объявление цикла для расчета факториала

F = F * I ' расчет факториала

Next ' конец цикла

End Function ' конец функции пользователя

СОДЕРЖАНИЕ ОТЧЕТА

1. Исходные данные и постановка задачи.

2. Текст кода на языке Visual Basic.

3. Подробное описание использованных свойств, методов и функций при написании программы.

4. Результаты расчета.

5. Блок-схема алгоритма программы.

Варианты заданий

Вариант	Вычислить с точностью до ε = 1×10-4
	Сумму членов ряда: , для х = 1,2
	Произведение членов последовательности:
	Сумму членов ряда:
	Вычислить :
	Вычислить сумму до тех пор пока, ,
	Вычислять сумму до тех пор, пока очередное слагаемое не станет меньше Δ по абсолютной величие, х = n + 5:
	Отпечатать значение членов ряда до члена _ ε и их среднее арифметическое значение:
	Сумму членов ряда: , при х=1,5
	Сумму членов ряда: , при х=0,8
	Произведение членов последовательности: , при х = 4,4
	Сумму членов ряда: , при х = 350
	Вычислить сумму:
	Вычислить сумму:
	Вычислить произведение членов ряда при х = 1,82 + cos(n):

Вариант	Вычислить с точностью до ε = 1×10-4
	Найти сумму тех членов последовательности cos(x), cos(x+n), cos(x+2n),..., cos(x+20n), которые по абсолютной величине больше 0,5
	Вычислить произведение:
	Произведение членов последовательности для х = 10:
	Сумму и количество членов ряда:
	Сумму членов ряда:
	Сумму членов ряда:
	Вычислить значение при х = 1,324- :
	Вычислить значение при х = n +0,725:
	Вычислить значение:
	Вычислить значение:
	Вычислить значение:
	Вычислить значение:
	Вычислить значение:
	Вычислить сумму:
	Вычислить сумму:
	Вычислить значение:

ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ № 5