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

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

ВАРИАНТЫ ЗАДАНИЙ К ЛАБОРАТОРНОЙ РОБОТЕ

Организовать вычисления результата расчета по формуле, при x = 0,5; n = 20.

1		11		21
2		12		22
3		13		23
4		14		24
5		15		25
6		16		26
7		17		27
8		18		28
9		19		29
10		20		30

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

Программирование итерационных циклов в среде 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 ' конец функции пользователя

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