Программирование итерационных циклов в среде 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