6 лаба
.docxФедеральное агентство связи
Ордена Трудового Красного Знамени
федеральное бюджетное образовательное учреждение высшего образования
«Московский Технический Университет Связи и Информатики»
(МТУСИ)
Кафедра Информатики
Лабораторная работа № 6
Тема:
«Программирование алгоритмов итеративных циклических структур»
Вариант 00
Выполнил:
Великий студент
-----
Москва 0000
3)Задание на разработку проекта:
4)Формализация и уточнение задания:
Вычислите ln(2)
Будем считать, что заданная точность ε обеспечена, если модуль разности между текущим и предыдущим значениями корня меньше точности ε, то есть для нашего случая |1/a| < ε.
4.1)Элементы, разрабатываемого проекта:
Графический интерфейс пользователя:
Разработанная форма проекта имеет вид, как на рис. 4.6.4-1
5.1) форма
5.2) Cхема алгоритмов процедур проекта:
Начало
procedure(
)
n=1 : a=1
y=a
a=a*(-1*(n/(n+1))
n=n+1
y=y+a
Вывод
y
Abs(a)<ee
Конец
Программа 5.3
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Sub procedure(ByVal x As Double, ByVal ee As Double, ByRef y As Double, ByRef N As Integer)
Dim a As Double
N = 1
a = 1
y = a
Do
a = a * (-1 * (N / (N + 1)))
y = y + a
n = n + 1
Loop Until Abs(a) < ee
End Sub
Sub PROC(ByVal X As Double, ByRef Y1 As Double)
Y1 = Log(X)
End Sub
Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim x, ee, y, Y1 As Double
Dim N As Integer
x = Val(TextBox1.Text)
ee = Val(TextBox2.Text)
procedure(x, ee, y, N)
PROC(x, Y1)
TextBox3.Text = CStr(y)
TextBox4.Text = CStr(Y1)
TextBox5.Text = CStr(N)
End Sub
End Class
6)результат работы
7) проверка результатов