Программирование алгоритмов итеративных циклических структур. 4.6 Отчёт. Лабораторная работа по теме 6, 7, 8 студент группы москва 2016 г

• Название: Лабораторная работа по теме 6, 7, 8 студент группы москва 2016 г
• Анкор: Программирование алгоритмов итеративных циклических структур
• Дата: 16.11.2021
• Размер: 255.28 Kb.
• Имя файла: 4.6 Отчёт.docx
• Тип: Лабораторная работа; #274025

Федеральное государственное образовательное бюджетное

учреждение высшего профессионального образования
Московский технический университет связи и информатики

КАФЕДРА ИНФОРМАТИКИ

ЛАБОРАТОРНАЯ РАБОТА ПО ТЕМЕ 4.6, 4.7, 4.8

Выполнил:

студент группы
МОСКВА 2016 г.

1. 
   Еремин Василий, БИН1551, вариант 11.
   

2. 
   Реализация задания:
   

1. 
   Тема и название лабораторной работы:
   

Программирование алгоритмов итеративных циклических структур.
2.2) Задание на разработку проекта:

11)	Вычислите и выведите те члены последовательности, значения, которых по модулю больше ε = 0.001 при x = 0.5.

2.3) Формализация и уточнение задания:
Для решения поставленной задачи необходимо вывести рекуррентную формулу вычисления члена последовательности^

; ;

;



2.4) Схема алгоритмов:

2.5) Программный код Проекта 4.6:

Option Explicit On

Option Strict On

Imports System.Math 'Подключение математиечкой библиотеки.
Public Class Form1
Public Sub Resh(ByVal x As Double, ByVal eps As Double)
Dim n As Integer
Dim z As String

Dim z1 As String
' Элемент ряда

Dim a As Double
'Присвоение начальных значений

z = " "

z1 = "|"
n = 1
a = x ^ 2 / 2
ListBox1.Items.Add(z)
'Начало цикла
Do While Abs(a) > eps
z = " "

z1 = "|"
z = z + Space(12) + z1 + Space(12) + Format(n, "0000") + Space(12) + z1 + Space(12) + Format(a, "00000.000000") + Space(12) + z1
ListBox1.Items.Add(z)
n = n + 1

a = a * (-x) / (n + 1)
Loop
End Sub
Sub vivod(ByVal W As String, ByRef T As TextBox)

T.Text = CStr(W)

End Sub
'Function vvod_int(ByVal K As TextBox) As Integer

'Return CInt(Val(K.Text))

'End Function
Function vvod(ByVal T As TextBox) As Double

Return CDbl(Val(T.Text))

End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim x As Double

Dim eps As Double
x = vvod(TextBox1)

eps = vvod(TextBox2)
Resh(x, eps)
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
TextBox1.Clear() 'Очистка окна TextBox1.Text

TextBox2.Clear() 'Очистка окна TextBox2.Text

ListBox1.Items.Clear() 'Очистка ListBox

Exit Sub

End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click

End

End Sub
End Class

2.6) Результат выполнения проекта



2.7) Проверка проекта

	ɛ=	0,001
	x=	0,5
n	a	|a|
1	X^2/2	0,125000	>	0,001
2	-x^3/3!	0,020833	>	0,001
3	-x^4/4!	0,002604	>	0,001
4	-x^5/5!	0,000260	<	0,001