Схемы алгоритмов процедур проектов
Схема алгоритма процедуры Pos() представлена на рис. 4.6.4-6.
Рис. 4.6.4-6. Схема алгоритма процедуры Pos() проекта Проект 6-2:
Вычисление членов заданной последовательности, значения которых по модулю больше заданного числа
5.4) Программный код проекта:
Разработанный программный код проекта приведен на рис. 4.6.4-7.
| Public Class Form1 'Функция ввода исходных данных из TextBox Function vvod(ByVal T As TextBox) As Double Return Val(T.Text) End Function ' Процедура вывода вещественного результата в ListBox Sub vivodList(ByVal Z As Double, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' Процедура вывода целого результата в ListBox Sub vivodint(ByVal Z As Integer, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' Процедура вычисления и вывода членов последовательности с ' заданной точностью Private Sub Pos(ByVal x As Double, ByVal E As Double) Dim n As Integer Dim a As Double a = x - 1 n = 1 Do While a > E vivodint(n, ListBox1) vivodList(a, ListBox2) a = a * (x - 1) / (n + 1) n = n + 1 Loop End Sub Private Sub Button1_Click(sender As Object, e As EventArgs)_ Handles Button1.Click Dim EE, x0, y As Double EE = vvod(TextBox1) : x0 = vvod(TextBox2) Pos(x0, EE) End Sub End Class |
Рис. П.1.6-7. Программный код проекта 2-го задания Проект 6-2:
Вычисление членов заданной последовательности, значения которых по модулю больше заданного числа
Результат выполнения проекта
Результат выполнения проекта приведен на рис. 4.6.4-8.
Рис. 4.6.4-8. Результаты выполнения проекта 2-го заданияПроект 6-2
7) Доказательство правильности работы программы:
Все выведенные значения последовательности больше 0.0001.
Контрольные вопросы
1)Какой алгоритм называется циклическим?
2)Какой вид имеет цикл с оператором Do While…Loop или оператором Do…Loop Until в схемах алгоритмов?
3)Как записывается цикл с оператором Do While…Loop или оператором Do…Loop Until в программах?
4)Как работают циклы с оператором Do While…Loop, Do…Loop Until?
5)Какой цикл называется итеративным?
6)В каком случае целесообразно использовать рекуррентную формулу?
7)Какие формулы называются рекуррентными соотношениями?
8)Назовите условия окончания итерационного процесса?
9)Что представляет собой итеративный цикл?
10)Что представляет собой цикл с предусловием?
11)Что представляет собой цикл с постусловием?
12)Что представляют собой циклы Do и каковы их разновидности?
13)Что такое рекуррентная формула?
14)В чем отличие организации регулярных и итеративных циклов?
15)Какой оператор предназначен в языке VB для организации итеративных циклов?
16)В чем отличие использования в операторе Do конструкции While и Until?
17)Каким образом можно выйти из цикла до его завершения?
18)Как определяется число повторений операторов тела цикла в итеративной циклической структуре?
19)Какие операторы могут находиться в теле цикла оператора Do…Loop?
20)Сколько раз могут выполняться операторы тела цикла Do…Loop?
21)Какой оператор используется для программирования циклических алгоритмических структур с неизвестным числом повторений?
22)Какова алгоритмическая структура цикла итеративного типа?
23)Сколько раз будет выполняться тело цикла, если при программировании циклической структуры используется оператор Do While…Loop?
24)Сколько раз будет выполняться тело цикла, если при программировании циклической структуры используется оператор Do …Loop While?
25)Сколько раз будет выполняться тело цикла, если при программировании циклической структуры используется оператор Do …Loop Until?
26)Какие алгоритмы можно реализовать с использованием итеративных циклических структур?
27)Что записывается после ключевых слов While или Until в операторе итеративного цикла?